/[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.3 by pam-fi, Tue Sep 5 12:52:20 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          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        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  
26    
27  c     CLUSTER block:  c     CLUSTER block:
28        integer nclstr1           !cluster number        integer nclstr1           !cluster number
# Line 40  c     CLUSTER block: Line 38  c     CLUSTER block:
38                                  ! dimension to clsignal array)                                  ! dimension to clsignal array)
39        real clsignal(maxlength)  !signal values of all strips belonging to clusters        real clsignal(maxlength)  !signal values of all strips belonging to clusters
40    
41        real    cnev(nviews,nva1_view)     !CN of the event for a certain view and VA1        real clsigma(maxlength)
42        integer cnevflag(nviews,nva1_view) !CN flag        integer cladc(maxlength)
43          integer clbad(maxlength)
44  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  
   
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        common/level1event/good1,nclstr1,view,ladder,maxs
52       $     ,mult,dedx,indstart       $     ,mult,dedx,indstart
53       $     ,indmax,totCLlength,clsignal,cnev,cnevflag       $     ,indmax,totCLlength,clsignal,clsigma,cladc,clbad!,clped
54         $     ,cnev,cnnev,fshower,whichtrack
55                
56        SAVE/level1event/        SAVE/level1event/
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23