--- DarthVader/ToFLevel2/src/rdtofcal.for	2009/08/04 14:01:32	1.5
+++ DarthVader/ToFLevel2/src/rdtofcal.for	2009/08/11 12:58:23	1.7
@@ -6,7 +6,7 @@
 
 c----- HBOOK
       INTEGER HMEM
-      REAL RDTOFCAL
+c      REAL RDTOFCAL
       parameter (NWPAWC=8500000)
       common/PAWC/HMEM(NWPAWC)
 
@@ -129,5 +129,5 @@
         close(0)
 
         return
-	end
+        end