source/common/level1-2003.f

*************************************************************************
*     
*     Common level1.f
*     
*     contains LEVEL1 ntuple variables definitions
*     
*     to be included in:
*     - ../reduction/reduction.f
*     - ../analysis/analysis.f
*     - !???
*     
*     parameters:
*     - nclstrmax
*     - nclstrp
*     
*************************************************************************


c     EVENT block:
      logical good1             !flag to mark good or noise events
      integer nev1              !level1 event number

c     CPU block (only for ground data):
      integer pkt_type1         !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt
c     0x12 --> calibration board 0                  
c     0x13 --> calibration board 1              
c     0x10 --> event                            
c     0x30 --> full event for calib special     
c     0x83 --> tracker ALARM (control register) 
      integer pkt_num1          !CPU packet number
      integer obt1              !CPU on-board time
      integer which_calib1      !calibration file identifier. see DW_DATE_NUM_calib.txt file

c     CLUSTER block:
      integer nclstr1           !cluster number
      integer view(nclstrmax)   !view the cluster belongs to
      integer ladder(nclstrmax) !ladder the strip carrying the largest signal 
                                ! value belongs to
      integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
      integer mult(nclstrmax)   !cluster multiplicity
      real dedx(nclstrmax)      !cluster multiplicity
      integer indstart(nclstrmax) !cluster starting point index in clsignal array
      integer indmax(nclstrmax) !cluster maximum point index in clsignal array
      integer totCLlength       !sum of all clusters length (to assign
                                ! dimension to clsignal array)
      real clsignal(maxlength)  !signal values of all strips belonging to clusters

c     CNOISE block:
      real cnev(nviews,nva1_view) !common noise of the event for a certain view and
                                ! VA1
      common/level1_general/good1,nev1
      common/level1_cpu/pkt_type1,pkt_num1,obt1,which_calib1
      common/level1_cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart
     $     ,indmax,totCLlength,clsignal,cnev
1	pam-fi	1.1	*************************************************************************
2			*
3			* Common level1.f
4			*
5			* contains LEVEL1 ntuple variables definitions
6			*
7			* to be included in:
8			* - ../reduction/reduction.f
9			* - ../analysis/analysis.f
10			* - !???
11			*
12			* parameters:
13			* - nclstrmax
14			* - nclstrp
15			*
16			*************************************************************************
17
18
19			c EVENT block:
20			logical good1 !flag to mark good or noise events
21			integer nev1 !level1 event number
22
23			c CPU block (only for ground data):
24			integer pkt_type1 !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt
25			c 0x12 --> calibration board 0
26			c 0x13 --> calibration board 1
27			c 0x10 --> event
28			c 0x30 --> full event for calib special
29			c 0x83 --> tracker ALARM (control register)
30			integer pkt_num1 !CPU packet number
31			integer obt1 !CPU on-board time
32			integer which_calib1 !calibration file identifier. see DW_DATE_NUM_calib.txt file
33
34			c CLUSTER block:
35			integer nclstr1 !cluster number
36			integer view(nclstrmax) !view the cluster belongs to
37			integer ladder(nclstrmax) !ladder the strip carrying the largest signal
38			! value belongs to
39			integer maxs(nclstrmax) !cluster strip carrying the largest signal value
40			integer mult(nclstrmax) !cluster multiplicity
41			real dedx(nclstrmax) !cluster multiplicity
42			integer indstart(nclstrmax) !cluster starting point index in clsignal array
43			integer indmax(nclstrmax) !cluster maximum point index in clsignal array
44			integer totCLlength !sum of all clusters length (to assign
45			! dimension to clsignal array)
46			real clsignal(maxlength) !signal values of all strips belonging to clusters
47
48			c CNOISE block:
49			real cnev(nviews,nva1_view) !common noise of the event for a certain view and
50			! VA1
51			common/level1_general/good1,nev1
52			common/level1_cpu/pkt_type1,pkt_num1,obt1,which_calib1
53			common/level1_cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart
54			$ ,indmax,totCLlength,clsignal,cnev