test IF en fortran (débutant) Résolu/Fermé

Question

Bonjour,
j'essaie d'écrire un test IF en Fortran avec une inégalité.
Ca ne marche pas.

Mon code est :

a=33000./(3.*365.25*24.)

	t0=0.
	t150=150/a

	write (*,*) 'choisir t inférieur à ',t150
	READ (*,*) t
	IF t = t150 THEN
	write (*,*) 'OK'
	ENDIF

remix1502 · Answer

j'ai oublié de préciser :
Fortran 77
et je ne suis pas non plus sûr de ma syntaxe pour écrire "inférieure ou égale"....

Alors : une idée ???

remix1502 · Answer

bon j'ai trouvé "inférieur ou égal"

Donc ma nouvelle ligne est :

IF t.LE.t150 THEN

mais ca ne marche toujours pas.
j'obtiens comme erreur :

           IF t.LE.t150 THEN
           ^
Invalid form for IF statement at (^)
evolution2.for:47: 
           a=33000./(3.*365.25*24.)
           1
evolution2.for:69: (suite) :
           ENDIF
           2
déclaration à (2) invalide dans le contexte établi par la déclaration à (1)

remix1502 · Answer

il manquait les parentheses pour définir le if...

ingméca · Answer

je crois qu'il manque la commande ELSE pour boucler le IF après le ENDIF viendra ................je crois

ok · Answer

essai if.t.le.t150 then

ta essayer demettre end à la fin de tn programme?

Test IF en fortran (débutant)

5 réponses

Discussions similaires