Small fortran routine to open DPMJET input files.
[u/mrichter/AliRoot.git] / DPMJET / openfile.f
CommitLineData
ee7c9a1a 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