/[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.6 by pam-fi, Fri Oct 27 16:08:18 2006 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
# Line 40  c     CLUSTER block: Line 39  c     CLUSTER block:
39                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
40        real clsignal(maxlength)  !signal values of all strips belonging to clusters        real clsignal(maxlength)  !signal values of all strips belonging to clusters
41    
42        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1        real clsigma(maxlength)
43        integer cnevflag(nviews,nva1_view) !CN flag        integer cladc(maxlength)
44          integer clbad(maxlength)
45  c$$$      common/level1general/good1,nev1,which_calib1,swcode1,crc1  c      real clped(maxlength)
 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  
   
46    
47          real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1
48          real    cnrmsev(nviews,nva1_view) !RMS of CN
49          integer cnnev(nviews,nva1_view)    !n.strips used for CN computation
50          integer fshower(nviews)            !flag to tag views with too many clusters
51    c                                        !(in this case clusters are not saved)
52          integer whichtrack(nclstrmax)      !flag to relate the cluster to the track it belongs to
53        common/level1event/good1,nclstr1,view,ladder,maxs        common/level1event/good1,nclstr1,view,ladder,maxs
54       $     ,mult,dedx,indstart       $     ,mult,dedx,indstart
55       $     ,indmax,totCLlength,clsignal,cnev,cnevflag       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad
56         $     ,cnev,cnnev,cnrmsev,fshower,whichtrack
57    c     $     ,cnev,cnnev,fshower,whichtrack
58                
59        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23