--- DarthVader/ToFLevel2/src/rdtofcal.for	2006/06/17 12:14:56	1.1.1.1
+++ DarthVader/ToFLevel2/src/rdtofcal.for	2006/11/03 13:01:16	1.3
@@ -15,7 +15,8 @@
 c------------------------------------------------------------------------
       character*250 calname
       character*250 calname1
-      character ch
+c      character ch
+      character*2 ch2 
 c------------------------------------------------------------------
 
       COMMON/QUEST/IQUEST(100)
@@ -40,12 +41,26 @@
 c---------------    open ToF calib rz file 
 c------------------------------------------------------------------------
 
-       do ii=1,250
-         ch=calname(ii:ii)
-         if (ch.eq.'.') goto 100
-       enddo   
+c       do ii=1,250
+c         ch=calname(ii:ii)
+c         if (ch.eq.'.') goto 100
+c       enddo   
+c100   continue
+c      calname1 = calname(1:ii)//'rz'
+
+      do ii=1,250
+c         ch=calname(ii:ii)
+         ch2=calname(ii:ii+1)
+c         write(*,*) ii,ch
+c         if (ch.eq.'.') goto 100
+         if (ch2.eq.'rz') goto 100
+       enddo
 100   continue
-      calname1 = calname(1:ii)//'rz'
+c      calname1 = calname(1:ii)//'rz'
+       calname1 = calname(1:ii+1)
+
+
+
  
        CALL HROPEN(59,'TOFK1131',calname1,'QP',4096,istat)