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