[u/mrichter/AliRoot.git] / DPMJET / openfile.f

      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
Commit	Line	Data
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