beam replaced by beamcm
[u/mrichter/AliRoot.git] / TFluka / FLUKA_input.f
CommitLineData
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
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
8e5bf079 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
b9d0a01d 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