/[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.3 by pam-fi, Fri Jul 21 15:27:17 2006 UTC revision 1.4 by pam-fi, Fri Aug 11 15:39:51 2006 UTC
# 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::[-1,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]
# 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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23