--- DarthVader/ToFLevel2/src/rdtofcal.for	2006/11/03 13:01:16	1.3
+++ DarthVader/ToFLevel2/src/rdtofcal.for	2009/08/11 12:58:23	1.7
@@ -1,11 +1,12 @@
 C------------------------------------------------
-      FUNCTION RDTOFCAL(calname)
+      REAL FUNCTION RDTOFCAL(calname,cnlen)
 C------------------------------------------------
 
       include 'input_tof.txt'
 
 c----- HBOOK
       INTEGER HMEM
+c      REAL RDTOFCAL
       parameter (NWPAWC=8500000)
       common/PAWC/HMEM(NWPAWC)
 
@@ -16,7 +17,8 @@
       character*250 calname
       character*250 calname1
 c      character ch
-      character*2 ch2 
+c      character*2 ch2 
+      integer cnlen
 c------------------------------------------------------------------
 
       COMMON/QUEST/IQUEST(100)
@@ -35,6 +37,7 @@
 c
 c------------------------------------------------------------------------
 
+      RDTOFCAL = 0.
       call HLIMIT(NWPAWC)
 
 c------------------------------------------------------------------------
@@ -48,16 +51,18 @@
 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
+c      do ii=1,250
+cc         ch=calname(ii:ii)
+c         ch2=calname(ii:ii+1)
+cc         write(*,*) ii,ch
+cc         if (ch.eq.'.') goto 100
+c         if (ch2.eq.'rz') goto 100
+c       enddo
+c100   continue
 c      calname1 = calname(1:ii)//'rz'
-       calname1 = calname(1:ii+1)
+c       calname1 = calname(1:ii+1)
+
+      calname1 = calname(1:cnlen)
 
 
 
@@ -123,6 +128,6 @@
         call hrend('TOFK1131')
         close(0)
 
-         return
-	end
+        return
+        end