/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/level1.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/level1.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mocchiut, Fri May 19 13:15:53 2006 UTC revision 1.2 by pam-fi, Fri Aug 4 08:18:06 2006 UTC
# Line 40  c     CLUSTER block: Line 40  c     CLUSTER block:
40                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
41        real clsignal(maxlength)  !signal values of all strips belonging to clusters        real clsignal(maxlength)  !signal values of all strips belonging to clusters
42    
43        real cnev(nviews,nva1_view) !common noise of the event for a certain view and        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
44                                  ! VA1        integer cnevflag(nviews,nva1_view) !CN flag
45    
46  c$$$      common/level1general/good1,nev1,which_calib1,swcode1,crc1  c$$$      common/level1general/good1,nev1,which_calib1,swcode1,crc1
47  c$$$      common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1  c$$$      common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1
48  c$$$      common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart  c$$$      common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart
# Line 50  c$$$     $     ,indmax,totCLlength,clsig Line 51  c$$$     $     ,indmax,totCLlength,clsig
51    
52        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
53       $     ,mult,dedx,indstart       $     ,mult,dedx,indstart
54       $     ,indmax,totCLlength,clsignal,cnev       $     ,indmax,totCLlength,clsignal,cnev,cnevflag
55                
56        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23