/[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.4 by pam-fi, Thu Sep 28 14:04:39 2006 UTC revision 1.5 by pam-fi, Thu Oct 26 16:22:37 2006 UTC
# Line 17  Line 17 
17  *     **/8/2006 modified to store info about CN computation and "showers"  *     **/8/2006 modified to store info about CN computation and "showers"
18  *************************************************************************  *************************************************************************
19    
20        parameter (nclstrmax_view = 200) ! maximum number of clusters per view        parameter (nclstrmax_view = 50) ! maximum number of clusters per view
21        parameter (nclstrmax      = nclstrmax_view * nviews)        parameter (nclstrmax      = nclstrmax_view * nviews)
22        parameter (nclstrp        = 19)  ! maximum number of stored strips per cluster        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
23        parameter (maxlength      = nclstrmax * nclstrp)        parameter (maxlength      = nclstrmax * nclstrp)
24    
25  c      integer good1             !flag to mark good or noise events  c      integer good1             !flag to mark good or noise events
# Line 45  c     CLUSTER block: Line 45  c     CLUSTER block:
45  c      real clped(maxlength)  c      real clped(maxlength)
46    
47        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
48          real    cnrmsev(nviews,nva1_view) !RMS of CN
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 relate the cluster to the track it belongs to
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!,clped       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
56       $     ,cnev,cnnev,fshower,whichtrack       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
57    c     $     ,cnev,cnnev,fshower,whichtrack
58                
59        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23