Scripts needed for analysis.

[u/mrichter/AliRoot.git] / TFluka / FLUKA_input.f

diff --git a/TFluka/FLUKA_input.f b/TFluka/FLUKA_input.f
index e64f60bd9f1278c8ac23328f5f0b660dcdec45d4..e1531c6668769feefb09a8147c8b83084bdd7a40 100644 (file)
--- a/TFluka/FLUKA_input.f
+++ b/TFluka/FLUKA_input.f
@@ -21,12 +21,7 @@
       INTEGER IOUNIT
       CHARACTER*(*) FILNAM
 
-      PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
-
       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
-
-      PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
-
       RETURN
  9999 END
 
@@ -46,12 +41,8 @@
       INTEGER IOUNIT
       CHARACTER*(*) FILNAM
 
-      PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
-
       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
 
-      PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
-
       RETURN
  9999 END
 
@@ -72,10 +63,8 @@
       IMPLICIT NONE
       INTEGER IOUNIT
 
-      PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
 
       CLOSE (UNIT=IOUNIT)
 
-      PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
       RETURN
  9999 END