inc/F77/level1.f

*************************************************************************
*     
*     Common level1.f
*     
*     contains LEVEL1 ntuple variables definitions
*     
*     to be included in:
*     - ../reduction/reduction.f
*     - ../analysis/analysis.f
*     - !???
*     
*     parameters:
*     - nclstrmax
*     - nclstrp
*    
*     11/9/2005 modified by david fedele to include general variables
*************************************************************************

      integer good1             !flag to mark good or noise events
c$$$      integer nev1              !level1 event number
c$$$      integer which_calib1       !calibration file identifier. see DW_DATE_NUM_calib.txt file
c$$$      integer swcode1            !version of the software
c$$$
c$$$      integer pkt_type1         !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt
c$$$      integer pkt_num1          !CPU packet number
c$$$      integer obt1              !CPU on-board time
c$$$      integer cpu_crc1           !CPU crc controll

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

      real cnev(nviews,nva1_view) !common noise of the event for a certain view and
                                ! VA1
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


      common/level1event/good1,nclstr1,view,ladder,maxs
     $     ,mult,dedx,indstart
     $     ,indmax,totCLlength,clsignal,cnev
      
      SAVE/level1event/
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	* 11/9/2005 modified by david fedele to include general variables
17	*************************************************************************
18
19	integer good1 !flag to mark good or noise events
20	c$$$ integer nev1 !level1 event number
21	c$$$ integer which_calib1 !calibration file identifier. see DW_DATE_NUM_calib.txt file
22	c$$$ integer swcode1 !version of the software
23	c$$$
24	c$$$ integer pkt_type1 !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt
25	c$$$ integer pkt_num1 !CPU packet number
26	c$$$ integer obt1 !CPU on-board time
27	c$$$ integer cpu_crc1 !CPU crc controll
28
29	c CLUSTER block:
30	integer nclstr1 !cluster number
31	integer view(nclstrmax) !view the cluster belongs to
32	integer ladder(nclstrmax) !ladder the strip carrying the largest signal
33	! value belongs to
34	integer maxs(nclstrmax) !cluster strip carrying the largest signal value
35	integer mult(nclstrmax) !cluster multiplicity
36	real dedx(nclstrmax) !cluster multiplicity
37	integer indstart(nclstrmax) !cluster starting point index in clsignal array
38	integer indmax(nclstrmax) !cluster maximum point index in clsignal array
39	integer totCLlength !sum of all clusters length (to assign
40	! dimension to clsignal array)
41	real clsignal(maxlength) !signal values of all strips belonging to clusters
42
43	real cnev(nviews,nva1_view) !common noise of the event for a certain view and
44	! VA1
45	c$$$ common/level1general/good1,nev1,which_calib1,swcode1,crc1
46	c$$$ common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1
47	c$$$ common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart
48	c$$$ $ ,indmax,totCLlength,clsignal,cnev
49
50
51	common/level1event/good1,nclstr1,view,ladder,maxs
52	$ ,mult,dedx,indstart
53	$ ,indmax,totCLlength,clsignal,cnev
54
55	SAVE/level1event/