INTEGER IOUNIT
CHARACTER*(*) FILNAM
- PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
-
OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
+ RETURN
+ 9999 END
- PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
+ SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
+*
+*----------------------------------------------------------------------*
+* Opens a file with a given unit number
+*
+*
+* IOUNIT: Input unit to be assiged to the file
+* FILNAM: Name of the file
+*
+*----------------------------------------------------------------------*
+*
+
+ IMPLICIT NONE
+ INTEGER IOUNIT
+ CHARACTER*(*) FILNAM
+
+ OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
RETURN
9999 END
-
*
*=== FLUKA_CLOSEINP ====================================================*
*
IMPLICIT NONE
INTEGER IOUNIT
- PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
CLOSE (UNIT=IOUNIT)
- PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
RETURN
9999 END