Print statements removed.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 20 Dec 2005 14:16:23 +0000 (14:16 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 20 Dec 2005 14:16:23 +0000 (14:16 +0000)
TFluka/FLUKA_input.f

index e64f60bd9f1278c8ac23328f5f0b660dcdec45d4..e1531c6668769feefb09a8147c8b83084bdd7a40 100644 (file)
       INTEGER IOUNIT
       CHARACTER*(*) FILNAM
 
-      PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
-
       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
-
-      PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
-
       RETURN
  9999 END
 
       INTEGER IOUNIT
       CHARACTER*(*) FILNAM
 
-      PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
-
       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
 
-      PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
-
       RETURN
  9999 END
 
       IMPLICIT NONE
       INTEGER IOUNIT
 
-      PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
 
       CLOSE (UNIT=IOUNIT)
 
-      PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
       RETURN
  9999 END