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 OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
28 SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
30 *----------------------------------------------------------------------*
31 * Opens a file with a given unit number
34 * IOUNIT: Input unit to be assiged to the file
35 * FILNAM: Name of the file
37 *----------------------------------------------------------------------*
44 OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
51 *=== FLUKA_CLOSEINP ====================================================*
53 SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
55 *----------------------------------------------------------------------*
56 * Closes the given unit number
59 * IOUNIT: Input unit to be assiged to the file
61 *----------------------------------------------------------------------*