/[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.1.1 by mocchiut, Fri May 19 13:15:53 2006 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  
7  *************************************************************************  *************************************************************************
8    
9        integer good1             !flag to mark good or noise events        parameter (nclstrmax_view = 200) ! maximum number of clusters per view
10  c$$$      integer nev1              !level1 event number        parameter (nclstrmax      = nclstrmax_view * nviews)
11  c$$$      integer which_calib1       !calibration file identifier. see DW_DATE_NUM_calib.txt file        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
12  c$$$      integer swcode1            !version of the software        parameter (maxlength      = nclstrmax * nclstrp)
13  c$$$  
14  c$$$      integer pkt_type1         !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt        integer good1(nviews)
 c$$$      integer pkt_num1          !CPU packet number  
 c$$$      integer obt1              !CPU on-board time  
 c$$$      integer cpu_crc1           !CPU crc controll  
15    
16  c     CLUSTER block:  c     CLUSTER block:
17        integer nclstr1           !cluster number        integer nclstr1           !cluster number
18        integer view(nclstrmax)   !view the cluster belongs to        integer view(nclstrmax)   !view the cluster belongs to    
19        integer ladder(nclstrmax) !ladder the strip carrying the largest signal        integer ladder(nclstrmax) !ladder the strip carrying the largest signal
20                                  ! value belongs to                                  ! value belongs to
21        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
22        integer mult(nclstrmax)   !cluster multiplicity        integer mult(nclstrmax)   !cluster multiplicity
23        real dedx(nclstrmax)      !cluster multiplicity        real    sgnl(nclstrmax)   !cluster multiplicity
24        integer indstart(nclstrmax) !cluster starting point index in clsignal array        integer indstart(nclstrmax) !cluster starting point index in clsignal array
25        integer indmax(nclstrmax) !cluster maximum point index in clsignal array        integer indmax(nclstrmax) !cluster maximum point index in clsignal array
26        integer totCLlength       !sum of all clusters length (to assign        integer totCLlength       !sum of all clusters length (to assign
27                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
28        real clsignal(maxlength)  !signal values of all strips belonging to clusters        real clsignal(maxlength)  !sgnal values of all strips belonging to clusters
29          real clsigma(maxlength)
30        real cnev(nviews,nva1_view) !common noise of the event for a certain view and        integer cladc(maxlength)
31                                  ! VA1        integer clbad(maxlength)
 c$$$      common/level1general/good1,nev1,which_calib1,swcode1,crc1  
 c$$$      common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1  
 c$$$      common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart  
 c$$$     $     ,indmax,totCLlength,clsignal,cnev  
   
32    
33          real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
34          real    cnrmsev(nviews,nva1_view) !RMS of CN
35          integer cnnev(nviews,nva1_view)    !n.strips used for CN computation
36          integer fshower(nviews)            !flag to tag views with too many clusters
37    c                                        !(in this case clusters are not saved)
38          integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
39        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
40       $     ,mult,dedx,indstart       $     ,mult,sgnl,indstart
41       $     ,indmax,totCLlength,clsignal,cnev       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
42         $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
43                
44        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23