]>
Commit | Line | Data |
---|---|---|
b9d0a01d | 1 | *======================================================================* |
2 | * Routines to open and close a given file with a given FORTRAN unit * | |
3 | * from the C++ world * | |
4 | *======================================================================* | |
5 | * | |
6 | *=== FLUKA_OPENINP ====================================================* | |
7 | * | |
8 | SUBROUTINE FLUKA_OPENINP(IOUNIT,FILNAM) | |
9 | * | |
10 | *----------------------------------------------------------------------* | |
11 | * Opens a file with a given unit number | |
12 | * | |
13 | * | |
14 | * IOUNIT: Input unit to be assiged to the file | |
15 | * FILNAM: Name of the file | |
16 | * | |
17 | *----------------------------------------------------------------------* | |
18 | * | |
19 | ||
20 | IMPLICIT NONE | |
21 | INTEGER IOUNIT | |
22 | CHARACTER*(*) FILNAM | |
23 | ||
b9d0a01d | 24 | OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD") |
b9d0a01d | 25 | RETURN |
26 | 9999 END | |
27 | ||
8e5bf079 | 28 | SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM) |
29 | * | |
30 | *----------------------------------------------------------------------* | |
31 | * Opens a file with a given unit number | |
32 | * | |
33 | * | |
34 | * IOUNIT: Input unit to be assiged to the file | |
35 | * FILNAM: Name of the file | |
36 | * | |
37 | *----------------------------------------------------------------------* | |
38 | * | |
39 | ||
40 | IMPLICIT NONE | |
41 | INTEGER IOUNIT | |
42 | CHARACTER*(*) FILNAM | |
43 | ||
8e5bf079 | 44 | OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN") |
45 | ||
8e5bf079 | 46 | RETURN |
47 | 9999 END | |
b9d0a01d | 48 | |
49 | ||
50 | * | |
51 | *=== FLUKA_CLOSEINP ====================================================* | |
52 | * | |
53 | SUBROUTINE FLUKA_CLOSEINP(IOUNIT) | |
54 | * | |
55 | *----------------------------------------------------------------------* | |
56 | * Closes the given unit number | |
57 | * | |
58 | * | |
59 | * IOUNIT: Input unit to be assiged to the file | |
60 | * | |
61 | *----------------------------------------------------------------------* | |
62 | * | |
63 | IMPLICIT NONE | |
64 | INTEGER IOUNIT | |
65 | ||
b9d0a01d | 66 | |
67 | CLOSE (UNIT=IOUNIT) | |
68 | ||
b9d0a01d | 69 | RETURN |
70 | 9999 END |