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       PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
  25
  26       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD")
  27
  28       PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')'
  29
  30       RETURN
  31  9999 END
  32
  33
  34
  35 *
  36 *=== FLUKA_CLOSEINP ====================================================*
  37 *
  38       SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
  39 *
  40 *----------------------------------------------------------------------*
  41 * Closes the given unit number
  42 *
  43 *
  44 * IOUNIT: Input unit to be assiged to the file
  45 *
  46 *----------------------------------------------------------------------*
  47 *
  48       IMPLICIT NONE
  49       INTEGER IOUNIT
  50
  51       PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
  52
  53       CLOSE (UNIT=IOUNIT)
  54
  55       PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
  56       RETURN
  57  9999 END