/[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.9 by pam-fi, Fri Feb 16 14:56:01 2007 UTC revision 1.10 by pam-fi, Fri Apr 27 10:39:57 2007 UTC
# Line 4  Line 4 
4  *      *    
5  *     contains LEVEL1 ntuple variables definitions  *     contains LEVEL1 ntuple variables definitions
6  *      *    
 *     to be included in:  
 *     - ../reduction/reduction.f  
 *     - ../analysis/analysis.f  
 *     - !???  
 *      
 *     parameters:  
 *     - nclstrmax  
 *     - nclstrp  
 *      
 *     11/9/2005 modified by david fedele to include general variables  
 *     **/8/2006 modified to store info about CN computation and "showers"  
7  *************************************************************************  *************************************************************************
8    
9        parameter (nclstrmax_view = 200) ! maximum number of clusters per view        parameter (nclstrmax_view = 200) ! maximum number of clusters per view
# Line 22  Line 11 
11        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
12        parameter (maxlength      = nclstrmax * nclstrp)        parameter (maxlength      = nclstrmax * nclstrp)
13    
 c      integer good1             !flag to mark good or noise events  
14        integer good1(nviews)        integer good1(nviews)
15    
16  c     CLUSTER block:  c     CLUSTER block:
# Line 41  c     CLUSTER block: Line 29  c     CLUSTER block:
29        real clsigma(maxlength)        real clsigma(maxlength)
30        integer cladc(maxlength)        integer cladc(maxlength)
31        integer clbad(maxlength)        integer clbad(maxlength)
 c      real clped(maxlength)  
32    
33        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
34        real    cnrmsev(nviews,nva1_view) !RMS of CN        real    cnrmsev(nviews,nva1_view) !RMS of CN
# Line 53  c                                       Line 40  c                                      
40       $     ,mult,sgnl,indstart       $     ,mult,sgnl,indstart
41       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
42       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack       $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
 c     $     ,cnev,cnnev,fshower,whichtrack  
43                
44        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23