tracker/commonyoda/trk_calib_parameters.f

      

      integer DAQmode(nplanes)   !
      integer DSPnumber(nplanes)     !view number
      integer calibnumber(nplanes)
      integer ncalib_event(nplanes)
      integer ped_l1(nplanes),ped_l2(nplanes),ped_l3(nplanes)
      integer sig_l1(nplanes),sig_l2(nplanes),sig_l3(nplanes)
      integer nbad_l1(nplanes),nbad_l2(nplanes),nbad_l3(nplanes)
      integer cal_flag(nplanes)
      integer checksum(nplanes)
      integer DSPbad_par(nplanes,nstrips_view) !online bad strips
      real DSPped_par(nplanes,nstrips_view) !online pedestal
      real DSPsig_par(nplanes,nstrips_view) !online sigma
      
      common/trkcalib/DAQmode,DSPnumber
     $     ,calibnumber,
     $     ncalib_event,
     $     ped_l1,ped_l2,ped_l3,
     $     sig_l1,sig_l2,sig_l3,
     $     nbad_l1,nbad_l2,nbad_l3,
     $     cal_flag
     $     ,DSPped_par,DSPsig_par,DSPbad_par
      SAVE/trkcalib/


1	kusanagi	1.1
2
3			integer DAQmode(nplanes) !
4			integer DSPnumber(nplanes) !view number
5			integer calibnumber(nplanes)
6			integer ncalib_event(nplanes)
7			integer ped_l1(nplanes),ped_l2(nplanes),ped_l3(nplanes)
8			integer sig_l1(nplanes),sig_l2(nplanes),sig_l3(nplanes)
9			integer nbad_l1(nplanes),nbad_l2(nplanes),nbad_l3(nplanes)
10			integer cal_flag(nplanes)
11			integer checksum(nplanes)
12			integer DSPbad_par(nplanes,nstrips_view) !online bad strips
13			real DSPped_par(nplanes,nstrips_view) !online pedestal
14			real DSPsig_par(nplanes,nstrips_view) !online sigma
15
16			common/trkcalib/DAQmode,DSPnumber
17			$ ,calibnumber,
18			$ ncalib_event,
19			$ ped_l1,ped_l2,ped_l3,
20			$ sig_l1,sig_l2,sig_l3,
21			$ nbad_l1,nbad_l2,nbad_l3,
22			$ cal_flag
23			$ ,DSPped_par,DSPsig_par,DSPbad_par
24			SAVE/trkcalib/
25
26
27