Discussion :

[Maxims]

Bonjour,

J'essaie de programmer une subroutine sur Fortran90 comme suit :

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
        subroutine thomas(m,a,b,c,F,T)
 
		integer m,i
 
	    real dimension 	(a(m),b(m),c(m),alpha(m),beta(m),y(m),F(m),T(m))
 
	 !--- boucle vecteur alpha(i), beta(i)
 
 
		 alpha(1)=a(1)
		 do i=2,m
		 beta(i)=b(i)/alpha(i-1)
		 alpha(i)=a(i)-beta(i)*c(i-1)
		 enddo
 
		 !--- boucle y(i)
		 y(1)= F(1)
		 do i=2,m
		 y(i)= F(i)- (beta(i)*y(i-1))
		 enddo
		!--- boucle T(i)
		T(m)=y(m)/alpha(m)
		do i=m-1,1,-1
		T(i)= ((y(i)-c(i)*T(i+1))/alpha(i))
		enddo	   
		return
 
	end subroutine 
 
 
	 end program main.

--------
mais le programme ne tourne pas. Voilà les erreurs :

C:\MSDEV\Projects\ADIf.f90(260): error FOR3852: syntax error detected between END and SUBROUTINE
C:\MSDEV\Projects\ADIf.f90(260): error FOR1768: missing END statement or missing program unit (possibly free-form source in fixed-form file) detected between END and SUBROUTINE
Error executing fl32.exe.

Merci de votre aide.

[Sylvain Bergeron]

Que veux-tu fermer avec le « end program main » ? Le « end subroutine » termine la subroutine. Pour avoir ensuite un « end program main », il faut que la subrooutine soit incluse dans une section « contains » d'un « program main ». Est-ce le cas ?