1 *======================================================================*
2 * Routines to open and close a given file with a given FORTRAN unit *
4 *======================================================================*
6 *=== FLUKA_OPENINP ====================================================*
8 SUBROUTINE FLUKA_OPENINP(IOUNIT,FILNAM)
10 *----------------------------------------------------------------------*
11 * Opens a file with a given unit number
14 * IOUNIT: Input unit to be assiged to the file
15 * FILNAM: Name of the file
17 *----------------------------------------------------------------------*
24 PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
26 OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
28 PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
33 SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
35 *----------------------------------------------------------------------*
36 * Opens a file with a given unit number
39 * IOUNIT: Input unit to be assiged to the file
40 * FILNAM: Name of the file
42 *----------------------------------------------------------------------*
49 PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
51 OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
53 PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
60 *=== FLUKA_CLOSEINP ====================================================*
62 SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
64 *----------------------------------------------------------------------*
65 * Closes the given unit number
68 * IOUNIT: Input unit to be assiged to the file
70 *----------------------------------------------------------------------*
75 PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
79 PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'