/[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.2 by pam-fi, Fri Jul 21 15:02:55 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23