Discussion :

[inesnoussa2211]

Bonjour tout le monde,

J'ai écrit le programme Fortran suivant (test.f):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

Je ne sais pas quoi faire pour résoudre ce problème
Quelqu'un pourrait-il m'aider s'il vous plait ?

[__dardanos__]

Les fichiers *.f (et *.for) doivent être au format fixe. La structure d'un programme est présenté dans la FAQ.
Le compilateur f77 n'est plus maintenu. Le compilateur GNU est maintenant gfortran.