Small fortran routine to open DPMJET input files.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 14 Mar 2008 15:59:28 +0000 (15:59 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 14 Mar 2008 15:59:28 +0000 (15:59 +0000)
DPMJET/openfile.f [new file with mode: 0644]

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