inc/F77/level1.f

*************************************************************************
*     
*     Common level1.f
*     
*     contains LEVEL1 ntuple variables definitions
*     
*************************************************************************

      parameter (nclstrmax_view = 200) ! maximum number of clusters per view
      parameter (nclstrmax      = nclstrmax_view * nviews)
      parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
      parameter (maxlength      = nclstrmax * nclstrp) 

      integer good1(nviews)

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    sgnl(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)  !sgnal values of all strips belonging to clusters
      real clsigma(maxlength)
      integer cladc(maxlength)
      integer clbad(maxlength)

      real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
      real    cnrmsev(nviews,nva1_view) !RMS of CN
      integer cnnev(nviews,nva1_view)    !n.strips used for CN computation 
      integer fshower(nviews)            !flag to tag views with too many clusters
c                                        !(in this case clusters are not saved)
      integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
      common/level1event/good1,nclstr1,view,ladder,maxs
     $     ,mult,sgnl,indstart
     $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
     $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
      
      SAVE/level1event/
1	mocchiut	1.1	*************************************************************************
2			*
3			* Common level1.f
4			*
5			* contains LEVEL1 ntuple variables definitions
6			*
7			*************************************************************************
8
9	pam-fi	1.6	parameter (nclstrmax_view = 200) ! maximum number of clusters per view
10	pam-fi	1.3	parameter (nclstrmax = nclstrmax_view * nviews)
11	pam-fi	1.5	parameter (nclstrp = 20) ! maximum number of stored strips per cluster
12	pam-fi	1.3	parameter (maxlength = nclstrmax * nclstrp)
13
14	pam-fi	1.4	integer good1(nviews)
15	mocchiut	1.1
16			c CLUSTER block:
17			integer nclstr1 !cluster number
18	pam-fi	1.8	integer view(nclstrmax) !view the cluster belongs to
19	mocchiut	1.1	integer ladder(nclstrmax) !ladder the strip carrying the largest signal
20			! value belongs to
21			integer maxs(nclstrmax) !cluster strip carrying the largest signal value
22			integer mult(nclstrmax) !cluster multiplicity
23	pam-fi	1.9	real sgnl(nclstrmax) !cluster multiplicity
24	mocchiut	1.1	integer indstart(nclstrmax) !cluster starting point index in clsignal array
25			integer indmax(nclstrmax) !cluster maximum point index in clsignal array
26			integer totCLlength !sum of all clusters length (to assign
27			! dimension to clsignal array)
28	pam-fi	1.7	real clsignal(maxlength) !sgnal values of all strips belonging to clusters
29	pam-fi	1.3	real clsigma(maxlength)
30			integer cladc(maxlength)
31			integer clbad(maxlength)
32
33	pam-fi	1.2	real cnev(nviews,nva1_view) !CN of the event for a certain view and VA1
34	pam-fi	1.5	real cnrmsev(nviews,nva1_view) !RMS of CN
35	pam-fi	1.3	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	pam-fi	1.8	integer whichtrack(nclstrmax) !flag to tag clusters associated to a track
39	mocchiut	1.1	common/level1event/good1,nclstr1,view,ladder,maxs
40	pam-fi	1.9	$ ,mult,sgnl,indstart
41	pam-fi	1.5	$ ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
42			$ ,cnev,cnnev,cnrmsev,fshower,whichtrack
43	mocchiut	1.1
44			SAVE/level1event/