diff -urN c1/2001/src/geant321/peanut/bimsel.F c0/2001/src/geant321/peanut/bimsel.F
--- c1/2001/src/geant321/peanut/bimsel.F	2002-11-01 22:38:04 +0300
+++ c0/2001/src/geant321/peanut/bimsel.F	2002-11-01 22:37:52 +0300
@@ -47,7 +47,7 @@
      &     PRCOLN, IBTOLD, ICTOLD, KPROJ , NTRIAL, ITFRMI
       SAVE SBHAL0, SBSKI0, SBCEN0, SBCEN1, SBSKI1, SBHAL1
 #ifndef CERNLIB_WINNT
-      SAVE
+C      SAVE
 #endif
       DATA IBTOLD, ICTOLD / 2*0 /
 *