Shuttle debugging line removed.
[u/mrichter/AliRoot.git] / 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