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       SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM)
  34 *
  35 *----------------------------------------------------------------------*
  36 * Opens a file with a given unit number
  37 *
  38 *
  39 * IOUNIT: Input unit to be assiged to the file
  40 * FILNAM: Name of the file
  41 *
  42 *----------------------------------------------------------------------*
  43 *
  44
  45       IMPLICIT NONE
  46       INTEGER IOUNIT
  47       CHARACTER*(*) FILNAM
  48
  49       PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
  50
  51       OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN")
  52
  53       PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')'
  54
  55       RETURN
  56  9999 END
  57
  58
  59 *
  60 *=== FLUKA_CLOSEINP ====================================================*
  61 *
  62       SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
  63 *
  64 *----------------------------------------------------------------------*
  65 * Closes the given unit number
  66 *
  67 *
  68 * IOUNIT: Input unit to be assiged to the file
  69 *
  70 *----------------------------------------------------------------------*
  71 *
  72       IMPLICIT NONE
  73       INTEGER IOUNIT
  74
  75       PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
  76
  77       CLOSE (UNIT=IOUNIT)
  78
  79       PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
  80       RETURN
  81  9999 END