Compiler un programme Fortran dans un terminal sous Linux
Bonjour tout le monde,
J'ai écrit le programme Fortran suivant (test.f):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
| program progra
integer nwpawc,istat,icycle,i1,n0,years_numb
parameter (nwpawc=1000000)
common /pawc/ h(nwpawc)
real h,lampb,p,muge,mual
call hlimit(nwpawc)
call hropen(32,'tdir','atmo.hist','N',1024,istat)
call hbook1(1,'Spectrum Cs137',100,0.,800.,0)
e = 150.! Mev
mual = 1.317*0.1 ! cm2/g
rhoal = 2.7 ! g/cm3
muge = 0.225
rhoge = 5.323 ! g/cm3
dsd = 2.47 ! cm distance point sensitive surface of the detector
althick = 0.07 ! cm
gethick = 0.1 ! cm
dethick = 5.4 ! cm
detradius = 5.5/2. !!!cm
n0 = 1000000
pi =acos(-1.)
zref = dsd + dethick
eff = 0.
do i =1,n0
phi = 2.*pi*rndm(0)
theta = pi*rndm(0)
ux = sin(theta)*cos(phi)
uy = sin(theta)*sin(phi)
uz = cos(theta)
if(uz.lt.0.)then
t = (dsd-zref)/uz
xint = t*ux
yint = t*uy
zint = dsd
dd = sqrt(xint**2+yint**2)
if(dd.le.detradius)then
dnext= - 1./muge*log(rndm(0))
xnext = xint + dnext*ux
ynext = yint + dnext*uy
znext = zint + dnext*uz
if(znext.le.dethick.and.znext.ge.0.)then
dd = sqrt(xnext**2+ynext**2)
if(dd.le.detradius)then
dge = abs(gethick/uz)
dal = abs(althick/uz)
eff = eff + exp(-dge*muge-dal*mual)
end if
end if
end if
end if
end do
eff = eff/float(n0)
print *, eff
call hrout(0,icycle,' ' )
call hrend('tdir')
end |
Lorsque j'essaie de le compiler sous Linux avec f77 -exe test.f dans le terminal, celui-ci m'affiche :
test2.f:1:
program progra
^
Continuation indicator at (^) invalid on first non-comment line of file or following END or INCLUDE [info -f g77 M LEX]
Quelqu'un pourrait-il m'aider s'il vous plait ?
