Bonjour
j'ai écrie le programme suivant ou j'ai une double boucle , le compilateur me dit que j'ai une erreur a la ligne 39
cette erreur est: parse error, unexpected integer const, expecting identifier or end of statement.
integer, parameter :: n = 20
real, dimension(n,n) :: r, fi
real, dimension (n) :: z
integer :: i, j
real a, a1, b1, b2, b3, b4, hfi, hz
r(1,1) = 700.0
r(n,1) = 1000.0
fi(1,1) = 0.0
fi(n,1) = 33.0
z(1) = 0.0
z(n) = 2000.0
a = z(n)
b1 = r(1,1)
b2 = r(n,1)
b3 = fi(1,1)
b4 = fi(n,1)
hz= (z(n)-z(1))/(n-1)
do 2 i=2, n
2 z(i)= z(1) + hz * (i-1)
r(1,i)= b1*((a**2-z(i)**2.)**0.5)/a
r(n,i)= b2*((a**2-z(i)**2.)**0.5)/a
fi(1,i)= b3*((a**2-z(i)**2.)**0.5)/a
fi(n,i)= b4*((a**2-z(i)**2.)**0.5)/a
hfi=(fi(1,i-1)-fi(n,i-1))/(n-1)
do 3 j=2, n-1
3 fi(j,i)=fi(1,i) + hfi*(j-1)
a1= (r(n,i)*sin(fi(n,i)))/((r(n,i)*cos(fi(n,i)))**2
$ -(2.*r(1,i)*r(n,i)*cos(fi(n,i))) + r(1,i))
b = (-1.*2.*r(n,i)*r(1,i)*sin(fi(n,i)))/((r(n,i)*cos(fi(n,i)))**2
$ - r(1,i)*2.*r(n,i))*cos(fi(n,i) + r(1,i))
r(j,i)=(sin(fi(j,i))-(b*cos(fi(j,i))))/(a1*(cos (fi(j,i)))**2.)
write (*,15) r(j,i), fi(j,i), z(i)
15 format (5x, f10.5, 10x , f10.5, 10x, f10.5, /)
end do 3
end
