--- DarthVader/ToFLevel2/src/rdtofcal.for	2006/11/09 17:05:48	1.4
+++ DarthVader/ToFLevel2/src/rdtofcal.for	2009/08/04 14:01:32	1.5
@@ -1,11 +1,12 @@
 C------------------------------------------------
-      FUNCTION RDTOFCAL(calname,cnlen)
+      REAL FUNCTION RDTOFCAL(calname,cnlen)
 C------------------------------------------------
 
       include 'input_tof.txt'
 
 c----- HBOOK
       INTEGER HMEM
+      REAL RDTOFCAL
       parameter (NWPAWC=8500000)
       common/PAWC/HMEM(NWPAWC)
 
@@ -36,6 +37,7 @@
 c
 c------------------------------------------------------------------------
 
+      RDTOFCAL = 0.
       call HLIMIT(NWPAWC)
 
 c------------------------------------------------------------------------
@@ -126,6 +128,6 @@
         call hrend('TOFK1131')
         close(0)
 
-         return
+        return
 	end