/[PAMELA software]/c3po/F77/ntuples_functions.f
ViewVC logotype

Diff of /c3po/F77/ntuples_functions.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pam-fi, Fri Jul 21 11:32:02 2006 UTC revision 1.3 by pam-fi, Fri Jul 21 15:27:17 2006 UTC
# Line 96  C--------------------------------------- Line 96  C---------------------------------------
96                
97        call HBNAME(tofntp,'tof',tof_j_flag,'tof_j_flag(6):I        call HBNAME(tofntp,'tof',tof_j_flag,'tof_j_flag(6):I
98       $     ,ntoftrk:I::[0,10],toftrkseqno(ntoftrk):I       $     ,ntoftrk:I::[0,10],toftrkseqno(ntoftrk):I
99       $     ,npmttdc(ntoftrk):I::[0,48],pmttdc(10,48):I::[0,48]       $     ,npmttdc(ntoftrk):I::[0,48],pmttdc(48,ntoftrk):I::[0,48]
100       $     ,beta(10,13):R,npmtadc(ntoftrk):I::[0,48]       $     ,beta(13,ntoftrk):R,npmtadc(ntoftrk):I::[0,48]
101       $     ,pmtadc(10,48):I::[0,48]       $     ,pmtadc(48,ntoftrk):I::[0,48]
102       $     ,dedx(10,48):R,xtofpos(10,3):R       $     ,dedx(48,ntoftrk):R,xtofpos(3,ntoftrk):R
103       $     ,ytofpos(10,3):R,npmt:I::[0,48],pmt_id(npmt):I::[0,48]       $     ,ytofpos(3,ntoftrk):R,npmt:I::[0,48],pmt_id(npmt):I::[0,48]
104       $     ,adc(npmt):R,tdc_tw(npmt):R')       $     ,adc(npmt):R,tdc_tw(npmt):R')
105    
106        return        return
# Line 327  C--------------------------------------- Line 327  C---------------------------------------
327        call HBNT(calontp,'CALO',' ')        call HBNT(calontp,'CALO',' ')
328                
329        call HBNAME(calontp,'calo',calntrk,'calntrk:I::[0,51]        call HBNAME(calontp,'calo',calntrk,'calntrk:I::[0,51]
330       $     ,caltrkseqno(calntrk):I::[0,11],ncore(calntrk):I::[0,500000]       $     ,caltrkseqno(calntrk):I::[-1,11],ncore(calntrk):I::[0,500000]
331       $     ,noint(calntrk):I::[0,2000],ncyl(calntrk):I::[0,2000]       $     ,noint(calntrk):I::[0,2000],ncyl(calntrk):I::[0,2000]
332       $     ,nlast(calntrk):I::[0,2000],npre(calntrk):I::[0,2000]       $     ,nlast(calntrk):I::[0,2000],npre(calntrk):I::[0,2000]
333       $     ,npresh(calntrk):I::[0,2000],ntr(calntrk):I::[0,2000]       $     ,npresh(calntrk):I::[0,2000],ntr(calntrk):I::[0,2000]
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23