From: morsch Date: Tue, 20 Dec 2005 14:16:23 +0000 (+0000) Subject: Print statements removed. X-Git-Url: http://git.uio.no/git/?a=commitdiff_plain;h=c2107f97044421e8ec3bb41fcf9787fd946fea64;p=u%2Fmrichter%2FAliRoot.git Print statements removed. --- diff --git a/TFluka/FLUKA_input.f b/TFluka/FLUKA_input.f index e64f60bd9f1..e1531c66687 100644 --- 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