]>
Commit | Line | Data |
---|---|---|
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 | ||
24 | PRINT *, '==> FLUKA_OPENINP(',IOUNIT,',',FILNAM,')' | |
25 | ||
26 | OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="OLD") | |
27 | ||
28 | PRINT *, '<== FLUKA_OPENINP(',IOUNIT,',',FILNAM,')' | |
29 | ||
30 | RETURN | |
31 | 9999 END | |
32 | ||
33 | SUBROUTINE FLUKA_OPENOUT(IOUNIT,FILNAM) | |
34 | * | |
35 | *----------------------------------------------------------------------* | |
36 | * Opens a file with a given unit number | |
37 | * | |
38 | * | |
39 | * IOUNIT: Input unit to be assiged to the file | |
40 | * FILNAM: Name of the file | |
41 | * | |
42 | *----------------------------------------------------------------------* | |
43 | * | |
44 | ||
45 | IMPLICIT NONE | |
46 | INTEGER IOUNIT | |
47 | CHARACTER*(*) FILNAM | |
48 | ||
49 | PRINT *, '==> FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')' | |
50 | ||
51 | OPEN (UNIT=IOUNIT, FILE=FILNAM, STATUS="UNKNOWN") | |
52 | ||
53 | PRINT *, '<== FLUKA_OPENOUT(',IOUNIT,',',FILNAM,')' | |
54 | ||
55 | RETURN | |
56 | 9999 END | |
57 | ||
58 | ||
59 | * | |
60 | *=== FLUKA_CLOSEINP ====================================================* | |
61 | * | |
62 | SUBROUTINE FLUKA_CLOSEINP(IOUNIT) | |
63 | * | |
64 | *----------------------------------------------------------------------* | |
65 | * Closes the given unit number | |
66 | * | |
67 | * | |
68 | * IOUNIT: Input unit to be assiged to the file | |
69 | * | |
70 | *----------------------------------------------------------------------* | |
71 | * | |
72 | IMPLICIT NONE | |
73 | INTEGER IOUNIT | |
74 | ||
75 | PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')' | |
76 | ||
77 | CLOSE (UNIT=IOUNIT) | |
78 | ||
79 | PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')' | |
80 | RETURN | |
81 | 9999 END |