DPMJET/openfile.f

   1       SUBROUTINE DPMJET_OPENINP()
   2 *
   3 *----------------------------------------------------------------------*
   4 * Opens a file with a given unit number
   5 *
   6 *
   7 * IOUNIT: Input unit to be assiged to the file
   8 * FILNAM: Name of the file
   9 *
  10 *----------------------------------------------------------------------*
  11 *
  12       IMPLICIT NONE
  13       OPEN (10, FILE="dpmjet.inp", STATUS="OLD")
  14       OPEN (23, FILE="dpmjet.dat", STATUS="OLD")
  15       RETURN
  16       END