--- c3po/F77/ntuples_functions.f	2006/07/21 11:32:02	1.1
+++ c3po/F77/ntuples_functions.f	2006/08/11 15:39:51	1.4
@@ -96,11 +96,11 @@
       
       call HBNAME(tofntp,'tof',tof_j_flag,'tof_j_flag(6):I
      $     ,ntoftrk:I::[0,10],toftrkseqno(ntoftrk):I
-     $     ,npmttdc(ntoftrk):I::[0,48],pmttdc(10,48):I::[0,48]
-     $     ,beta(10,13):R,npmtadc(ntoftrk):I::[0,48]
-     $     ,pmtadc(10,48):I::[0,48]
-     $     ,dedx(10,48):R,xtofpos(10,3):R
-     $     ,ytofpos(10,3):R,npmt:I::[0,48],pmt_id(npmt):I::[0,48]
+     $     ,npmttdc(ntoftrk):I::[0,48],pmttdc(48,ntoftrk):I::[0,48]
+     $     ,beta(13,ntoftrk):R,npmtadc(ntoftrk):I::[0,48]
+     $     ,pmtadc(48,ntoftrk):I::[0,48]
+     $     ,dedx(48,ntoftrk):R,xtofpos(3,ntoftrk):R
+     $     ,ytofpos(3,ntoftrk):R,npmt:I::[0,48],pmt_id(npmt):I::[0,48]
      $     ,adc(npmt):R,tdc_tw(npmt):R')
 
       return
@@ -326,8 +326,8 @@
 
       call HBNT(calontp,'CALO',' ')
       
-      call HBNAME(calontp,'calo',calntrk,'calntrk:I::[0,51]
-     $     ,caltrkseqno(calntrk):I::[0,11],ncore(calntrk):I::[0,500000]
+      call HBNAME(calontp,'calo',calntrk,'calntrk:I::[0,11]
+     $     ,caltrkseqno(calntrk):I::[-1,11],ncore(calntrk):I::[0,500000]
      $     ,noint(calntrk):I::[0,2000],ncyl(calntrk):I::[0,2000]
      $     ,nlast(calntrk):I::[0,2000],npre(calntrk):I::[0,2000]
      $     ,npresh(calntrk):I::[0,2000],ntr(calntrk):I::[0,2000]
@@ -336,11 +336,11 @@
      $     ,qpre(calntrk):R,qpresh(calntrk):R,qtr(calntrk):R
      $     ,qtrack(calntrk):R,qtrackx(calntrk):R,qtracky(calntrk):R
      $     ,dxtrack(calntrk):R,dytrack(calntrk):R,qmean(calntrk):R
-     $     ,qlow(calntrk):R,dX0l(calntrk):R,good:I::[0,1],perr(4)
-     $     :I::[0,500],swerr(4):I::[0,65535],calcrc(4):I::[0,1]
-     $     ,selftrigger:I::[0,1],nstrip:I::[0,4225],nx22:I::[0,97]
-     $     ,planemax(2):I::[0,45],qtot:R,qx22:R,qmax:R,qq(4):R
-     $     ,npcfit(2):I::[0,45],impx:R,impy:R,tanx:R,tany:R
+     $     ,qlow(calntrk):R,dX0l(calntrk):R,tbar(2,22,calntrk):R
+     $     ,good:I::[0,1],perr(4):I::[0,500],swerr(4):I::[0,65535]
+     $     ,calcrc(4):I::[0,1],selftrigger:I::[0,1],nstrip:I::[0,4225]
+     $     ,nx22:I::[0,97],planemax(2):I::[0,45],qtot:R,qx22:R,qmax:R
+     $     ,qq(4):R,npcfit(2):I::[0,45],impx:R,impy:R,tanx:R,tany:R
      $     ,varcfit(2):R,elen:R,selen:R')
 
       return