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
*     **/8/2006 modified to store info about CN computation and "showers"
*************************************************************************

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

      integer good1             !flag to mark good or noise events

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 clsigma(maxlength)
      integer cladc(maxlength)
      integer clbad(maxlength)
c      real clped(maxlength)

      real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
      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 relate the cluster to the track it belongs to
      common/level1event/good1,nclstr1,view,ladder,maxs
     $     ,mult,dedx,indstart
     $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad!,clped
     $     ,cnev,cnnev,fshower,whichtrack
      
      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	* **/8/2006 modified to store info about CN computation and "showers"
18	*************************************************************************
19
20	parameter (nclstrmax_view = 200) ! maximum number of clusters per view
21	parameter (nclstrmax = nclstrmax_view * nviews)
22	parameter (nclstrp = 19) ! maximum number of stored strips per cluster
23	parameter (maxlength = nclstrmax * nclstrp)
24
25	integer good1 !flag to mark good or noise events
26
27	c CLUSTER block:
28	integer nclstr1 !cluster number
29	integer view(nclstrmax) !view the cluster belongs to
30	integer ladder(nclstrmax) !ladder the strip carrying the largest signal
31	! value belongs to
32	integer maxs(nclstrmax) !cluster strip carrying the largest signal value
33	integer mult(nclstrmax) !cluster multiplicity
34	real dedx(nclstrmax) !cluster multiplicity
35	integer indstart(nclstrmax) !cluster starting point index in clsignal array
36	integer indmax(nclstrmax) !cluster maximum point index in clsignal array
37	integer totCLlength !sum of all clusters length (to assign
38	! dimension to clsignal array)
39	real clsignal(maxlength) !signal values of all strips belonging to clusters
40
41	real clsigma(maxlength)
42	integer cladc(maxlength)
43	integer clbad(maxlength)
44	c real clped(maxlength)
45
46	real cnev(nviews,nva1_view) !CN of the event for a certain view and VA1
47	integer cnnev(nviews,nva1_view) !n.strips used for CN computation
48	integer fshower(nviews) !flag to tag views with too many clusters
49	c !(in this case clusters are not saved)
50	integer whichtrack(nclstrmax) !flag to relate the cluster to the track it belongs to
51	common/level1event/good1,nclstr1,view,ladder,maxs
52	$ ,mult,dedx,indstart
53	$ ,indmax,totCLlength,clsignal,clsigma,cladc,clbad!,clped
54	$ ,cnev,cnnev,fshower,whichtrack
55
56	SAVE/level1event/