1 SUBROUTINE DPMJET_OPENINP()
3 *----------------------------------------------------------------------*
4 * Opens a file with a given unit number
7 * IOUNIT: Input unit to be assiged to the file
8 * FILNAM: Name of the file
10 *----------------------------------------------------------------------*
13 OPEN (10, FILE="dpmjet.inp", STATUS="OLD")
14 OPEN (23, FILE="dpmjet.dat", STATUS="OLD")