/[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.1.1 by pam-fi, Fri Jul 21 11:32:02 2006 UTC revision 1.4 by pam-fi, Fri Aug 11 15:39:51 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 326  C--------------------------------------- Line 326  C---------------------------------------
326    
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,11]
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]
# Line 336  C--------------------------------------- Line 336  C---------------------------------------
336       $     ,qpre(calntrk):R,qpresh(calntrk):R,qtr(calntrk):R       $     ,qpre(calntrk):R,qpresh(calntrk):R,qtr(calntrk):R
337       $     ,qtrack(calntrk):R,qtrackx(calntrk):R,qtracky(calntrk):R       $     ,qtrack(calntrk):R,qtrackx(calntrk):R,qtracky(calntrk):R
338       $     ,dxtrack(calntrk):R,dytrack(calntrk):R,qmean(calntrk):R       $     ,dxtrack(calntrk):R,dytrack(calntrk):R,qmean(calntrk):R
339       $     ,qlow(calntrk):R,dX0l(calntrk):R,good:I::[0,1],perr(4)       $     ,qlow(calntrk):R,dX0l(calntrk):R,tbar(2,22,calntrk):R
340       $     :I::[0,500],swerr(4):I::[0,65535],calcrc(4):I::[0,1]       $     ,good:I::[0,1],perr(4):I::[0,500],swerr(4):I::[0,65535]
341       $     ,selftrigger:I::[0,1],nstrip:I::[0,4225],nx22:I::[0,97]       $     ,calcrc(4):I::[0,1],selftrigger:I::[0,1],nstrip:I::[0,4225]
342       $     ,planemax(2):I::[0,45],qtot:R,qx22:R,qmax:R,qq(4):R       $     ,nx22:I::[0,97],planemax(2):I::[0,45],qtot:R,qx22:R,qmax:R
343       $     ,npcfit(2):I::[0,45],impx:R,impy:R,tanx:R,tany:R       $     ,qq(4):R,npcfit(2):I::[0,45],impx:R,impy:R,tanx:R,tany:R
344       $     ,varcfit(2):R,elen:R,selen:R')       $     ,varcfit(2):R,elen:R,selen:R')
345    
346        return        return
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23