Updated instructions according to the suggestions/findings from Federico
[u/mrichter/AliRoot.git] / TFluka / FLUKA_input.f
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
34
35 *
36 *=== FLUKA_CLOSEINP ====================================================*
37 *
38       SUBROUTINE FLUKA_CLOSEINP(IOUNIT)
39 *
40 *----------------------------------------------------------------------*
41 * Closes the given unit number
42 *
43 *
44 * IOUNIT: Input unit to be assiged to the file
45 *
46 *----------------------------------------------------------------------*
47 *
48       IMPLICIT NONE
49       INTEGER IOUNIT
50
51       PRINT *, '==> FLUKA_CLOSEINP(',IOUNIT,')'
52
53       CLOSE (UNIT=IOUNIT)
54
55       PRINT *, '<== FLUKA_CLOSEINP(',IOUNIT,')'
56       RETURN
57  9999 END