/[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.7 by pam-fi, Tue Nov 7 15:55:10 2006 UTC revision 1.8 by pam-fi, Thu Jan 11 10:20:57 2007 UTC
# Line 27  c      integer good1             !flag t Line 27  c      integer good1             !flag t
27    
28  c     CLUSTER block:  c     CLUSTER block:
29        integer nclstr1           !cluster number        integer nclstr1           !cluster number
30        integer view(nclstrmax)   !view the cluster belongs to        integer view(nclstrmax)   !view the cluster belongs to    
31        integer ladder(nclstrmax) !ladder the strip carrying the largest signal        integer ladder(nclstrmax) !ladder the strip carrying the largest signal
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
# Line 49  c      real clped(maxlength) Line 49  c      real clped(maxlength)
49        integer cnnev(nviews,nva1_view)    !n.strips used for CN computation        integer cnnev(nviews,nva1_view)    !n.strips used for CN computation
50        integer fshower(nviews)            !flag to tag views with too many clusters        integer fshower(nviews)            !flag to tag views with too many clusters
51  c                                        !(in this case clusters are not saved)  c                                        !(in this case clusters are not saved)
52        integer whichtrack(nclstrmax)      !flag to relate the cluster to the track it belongs to        integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
53        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
54       $     ,mult,dedx,indstart       $     ,mult,dedx,indstart
55       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad

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

  ViewVC Help
Powered by ViewVC 1.1.23