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,')'
36 *=== FLUKA_CLOSEINP ====================================================*
38 SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
40 *----------------------------------------------------------------------*
41 * Closes the given unit number
44 * IOUNIT: Input unit to be assiged to the file
46 *----------------------------------------------------------------------*
51 PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
55 PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'