TFluka/FLUKA_input.f

   1 *======================================================================*
   2 * Routines to open and close a given file with a given FORTRAN unit    *
   3 * from the C++ world                                                   *
   4 *======================================================================*
   5 *
   6 *=== FLUKA_OPENINP ====================================================*
   7 *
   8       SUBROUTINE FLUKA_OPENINP(IOUNIT,FILNAM)
   9 *
  10 *----------------------------------------------------------------------*
  11 * Opens a file with a given unit number
  12 *
  13 *
  14 * IOUNIT: Input unit to be assiged to the file
  15 * FILNAM: Name of the file
  16 *
  17 *----------------------------------------------------------------------*
  18 *
  19
  20       IMPLICIT NONE
  21       INTEGER IOUNIT
  22       CHARACTER*(*) FILNAM
  23
  24       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
  25       RETURN
  26  9999 END
  27
  28       SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
  29 *
  30 *----------------------------------------------------------------------*
  31 * Opens a file with a given unit number
  32 *
  33 *
  34 * IOUNIT: Input unit to be assiged to the file
  35 * FILNAM: Name of the file
  36 *
  37 *----------------------------------------------------------------------*
  38 *
  39
  40       IMPLICIT NONE
  41       INTEGER IOUNIT
  42       CHARACTER*(*) FILNAM
  43
  44       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
  45
  46       RETURN
  47  9999 END
  48
  49
  50 *
  51 *=== FLUKA_CLOSEINP ====================================================*
  52 *
  53       SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
  54 *
  55 *----------------------------------------------------------------------*
  56 * Closes the given unit number
  57 *
  58 *
  59 * IOUNIT: Input unit to be assiged to the file
  60 *
  61 *----------------------------------------------------------------------*
  62 *
  63       IMPLICIT NONE
  64       INTEGER IOUNIT
  65
  66
  67       CLOSE (UNIT=IOUNIT)
  68
  69       RETURN
  70  9999 END