]>
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 |