Small fortran routine to open DPMJET input files.

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

diff --git a/DPMJET/openfile.f b/DPMJET/openfile.f
new file mode 100644 (file)
index 0000000..2dbd952
--- /dev/null
+++ b/DPMJET/openfile.f
@@ -0,0 +1,16 @@
+      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