--- c3po/F77/ntuples_functions.f	2006/07/21 11:32:02	1.1
+++ c3po/F77/ntuples_functions.f	2006/07/21 15:27:17	1.3
@@ -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
@@ -327,7 +327,7 @@
       call HBNT(calontp,'CALO',' ')
       
       call HBNAME(calontp,'calo',calntrk,'calntrk:I::[0,51]
-     $     ,caltrkseqno(calntrk):I::[0,11],ncore(calntrk):I::[0,500000]
+     $     ,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]