X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=DPMJET%2Fopenfile.f;fp=DPMJET%2Fopenfile.f;h=2dbd952824c1b4a56f0eb45449ecb5aeb12df6c5;hb=ee7c9a1a8c269c41523878397d0f1e1362965e7b;hp=0000000000000000000000000000000000000000;hpb=09b20ad1c29952cef09057dbfdfdb134149c5127;p=u%2Fmrichter%2FAliRoot.git

diff --git a/DPMJET/openfile.f b/DPMJET/openfile.f
new file mode 100644
index 00000000000..2dbd952824c
--- /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