/[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.8 by pam-fi, Thu Jan 11 10:20:57 2007 UTC revision 1.9 by pam-fi, Fri Feb 16 14:56:01 2007 UTC
# Line 32  c     CLUSTER block: Line 32  c     CLUSTER block:
32                                  ! value belongs to                                  ! value belongs to
33        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
34        integer mult(nclstrmax)   !cluster multiplicity        integer mult(nclstrmax)   !cluster multiplicity
35        real dedx(nclstrmax)      !cluster multiplicity        real    sgnl(nclstrmax)   !cluster multiplicity
36        integer indstart(nclstrmax) !cluster starting point index in clsignal array        integer indstart(nclstrmax) !cluster starting point index in clsignal array
37        integer indmax(nclstrmax) !cluster maximum point index in clsignal array        integer indmax(nclstrmax) !cluster maximum point index in clsignal array
38        integer totCLlength       !sum of all clusters length (to assign        integer totCLlength       !sum of all clusters length (to assign
39                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
40        real clsignal(maxlength)  !sgnal values of all strips belonging to clusters        real clsignal(maxlength)  !sgnal values of all strips belonging to clusters
   
41        real clsigma(maxlength)        real clsigma(maxlength)
42        integer cladc(maxlength)        integer cladc(maxlength)
43        integer clbad(maxlength)        integer clbad(maxlength)
# Line 51  c      real clped(maxlength) Line 50  c      real clped(maxlength)
50  c                                        !(in this case clusters are not saved)  c                                        !(in this case clusters are not saved)
51        integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track        integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
52        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
53       $     ,mult,dedx,indstart       $     ,mult,sgnl,indstart
54       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
55       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
56  c     $     ,cnev,cnnev,fshower,whichtrack  c     $     ,cnev,cnnev,fshower,whichtrack

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.23