--- DarthVader/ToFLevel2/src/rdtofcal.for	2009/08/04 14:01:32	1.5
+++ DarthVader/ToFLevel2/src/rdtofcal.for	2011/11/23 21:19:38	1.8
@@ -6,7 +6,7 @@
 
 c----- HBOOK
       INTEGER HMEM
-      REAL RDTOFCAL
+c      REAL RDTOFCAL
       parameter (NWPAWC=8500000)
       common/PAWC/HMEM(NWPAWC)
 
@@ -29,6 +29,8 @@
 
       INTEGER lrec
       INTEGER istat, ierr, icycle
+
+c      REAL x_coor_lin11(8,2),y_coor_lin12(6,2)
       PARAMETER (lrec=4096)
 
 C-------------------------------------------------------------------------
@@ -97,6 +99,8 @@
 
         call HBNAME(ntp_tofcalib,'TOFLIN11',y_coor_lin11,'$SET')
         call HBNAME(ntp_tofcalib,'TOFLIN12',x_coor_lin12,'$SET')
+c        call HBNAME(ntp_tofcalib,'TOFLIN11',x_coor_lin11,'$SET')
+c        call HBNAME(ntp_tofcalib,'TOFLIN12',y_coor_lin12,'$SET')
         call HBNAME(ntp_tofcalib,'TOFLIN21',x_coor_lin21,'$SET')
         call HBNAME(ntp_tofcalib,'TOFLIN22',y_coor_lin22,'$SET')
         call HBNAME(ntp_tofcalib,'TOFLIN31',y_coor_lin31,'$SET')
@@ -122,6 +126,7 @@
 
         do iev=1,iemax_cal
            call HGNT(ntp_tofcalib,iev,ierr) !reads an event
+c           print *,' ierr ',ierr
         enddo
 
         call hrout(ntp_tofcalib,icycle,' ')
@@ -129,5 +134,5 @@
         close(0)
 
         return
-	end
+        end