Erreurs de compilation

[ESTERMIQUE]

Bonjour,

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

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.
-----

[jiherve]

Bonjour
https://fortran.developpez.com/faq/?page=section8
donc sans doute: end subroutine thomas ?
et où est déclaré le program main ?
Bien souvent la plupart des compilo perdent toute logique dans leurs messages s'il y a plusieurs erreurs en chaine.
JR

[jacknicklaus]

bonjour,

tu as omis le mot clé CONTAINS.

[ESTERMIQUE]

Bonjour,
Le programme main est en haut, je l'ai pas copié.
Je ne comprends pas ! qu'est ce qu'il insinue par syntax error alors que la syntaxe de déclaration est correcte.

[A voir en vidéo sur Futura]

[ESTERMIQUE]

bonjour,

tu as omis le mot clé CONTAINS.

Bonjour Jack
Le mot CONTAINS, je dois le mettre où ?

[jiherve]

Bonjour
avant la subroutine.
5s avec gogol :http://www.personal.psu.edu/jhm/f90/.../contains.html
il faut tout de même faire un peu de recherche soi même!
JR

[Calvert]

Salut,

plusieurs problèmes dans ton code, la syntaxe est généralement assez fausse, ce qui perturbe beaucoup le compilateur.

1. Le bloc de code contenant la sous-routine ne doit PAS être incluse dans le corps principal du programme (program main --> end program main). Sinon, comme mentionné plus haut, il faut ajouter contains avant la déclaration de la fonction/sous-routine.

2. En fortran 90, les tableaux se déclarent par exemple de la manière suivante:

real, dimension(m):: a,b,c,alpha,beta,y,F,T

le compilateur accepte la syntaxe fortran 77:

real a(m),b(m),c(m),alpha(m),beta(m),y(m),F(m),T(m)

mais pas un mélange des deux.

3. Il faut enlever le point après end program main.

Au sujet des réponses précédentes:

end subroutine thomas ?

C'est sûrement mieux de le préciser, mais c'est facultatif en fortran.

[ESTERMIQUE]

Bonjour,

Un grand merci à vous tous