/[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.2 by pam-fi, Fri Aug 4 08:18:06 2006 UTC revision 1.9 by pam-fi, Fri Feb 16 14:56:01 2007 UTC
# Line 14  Line 14 
14  *     - nclstrp  *     - nclstrp
15  *      *    
16  *     11/9/2005 modified by david fedele to include general variables  *     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        integer good1             !flag to mark good or noise events        parameter (nclstrmax_view = 200) ! maximum number of clusters per view
21  c$$$      integer nev1              !level1 event number        parameter (nclstrmax      = nclstrmax_view * nviews)
22  c$$$      integer which_calib1       !calibration file identifier. see DW_DATE_NUM_calib.txt file        parameter (nclstrp        = 20) ! maximum number of stored strips per cluster
23  c$$$      integer swcode1            !version of the software        parameter (maxlength      = nclstrmax * nclstrp)
24  c$$$  
25  c$$$      integer pkt_type1         !CPU packet type identifier. see http://people.roma2.infn.it/~cpu/HB_list.txt  c      integer good1             !flag to mark good or noise events
26  c$$$      integer pkt_num1          !CPU packet number        integer good1(nviews)
 c$$$      integer obt1              !CPU on-board time  
 c$$$      integer cpu_crc1           !CPU crc controll  
27    
28  c     CLUSTER block:  c     CLUSTER block:
29        integer nclstr1           !cluster number        integer nclstr1           !cluster number
30        integer view(nclstrmax)   !view the cluster belongs to        integer view(nclstrmax)   !view the cluster belongs to    
31        integer ladder(nclstrmax) !ladder the strip carrying the largest signal        integer ladder(nclstrmax) !ladder the strip carrying the largest signal
32                                  ! value belongs to                                  ! value belongs to
33        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value        integer maxs(nclstrmax)   !cluster strip carrying the largest signal value
34        integer mult(nclstrmax)   !cluster multiplicity        integer mult(nclstrmax)   !cluster multiplicity
35        real dedx(nclstrmax)      !cluster multiplicity        real    sgnl(nclstrmax)   !cluster multiplicity
36        integer indstart(nclstrmax) !cluster starting point index in clsignal array        integer indstart(nclstrmax) !cluster starting point index in clsignal array
37        integer indmax(nclstrmax) !cluster maximum point index in clsignal array        integer indmax(nclstrmax) !cluster maximum point index in clsignal array
38        integer totCLlength       !sum of all clusters length (to assign        integer totCLlength       !sum of all clusters length (to assign
39                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
40        real clsignal(maxlength)  !signal values of all strips belonging to clusters        real clsignal(maxlength)  !sgnal values of all strips belonging to clusters
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        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
47        integer cnevflag(nviews,nva1_view) !CN flag        real    cnrmsev(nviews,nva1_view) !RMS of CN
48          integer cnnev(nviews,nva1_view)    !n.strips used for CN computation
49  c$$$      common/level1general/good1,nev1,which_calib1,swcode1,crc1        integer fshower(nviews)            !flag to tag views with too many clusters
50  c$$$      common/level1cpu/pkt_type1,pkt_num1,obt1,cpu_crc1  c                                        !(in this case clusters are not saved)
51  c$$$      common/level1cluster/nclstr1,view,ladder,maxs,mult,dedx,indstart        integer whichtrack(nclstrmax)      !flag to tag clusters associated to a track
 c$$$     $     ,indmax,totCLlength,clsignal,cnev  
   
   
52        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
53       $     ,mult,dedx,indstart       $     ,mult,sgnl,indstart
54       $     ,indmax,totCLlength,clsignal,cnev,cnevflag       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
55         $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
56    c     $     ,cnev,cnnev,fshower,whichtrack
57                
58        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23