SUBROUTINE DPMJET_OPENINP()
*
*----------------------------------------------------------------------*
* Opens a file with a given unit number
*
*
* IOUNIT: Input unit to be assiged to the file
* FILNAM: Name of the file
*
*----------------------------------------------------------------------*
*
      IMPLICIT NONE
      OPEN (10, FILE="dpmjet.inp", STATUS="OLD")
      OPEN (23, FILE="dpmjet.dat", STATUS="OLD")
      RETURN
      END