Test IF en fortran (débutant)

Résolu/Fermé
remix1502 Messages postés 64 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 4 août 2009 - 11 déc. 2008 à 14:50
 ok - 30 oct. 2010 à 16:54
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
A voir également:

5 réponses

remix1502 Messages postés 64 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 4 août 2009 1
11 déc. 2008 à 15:04
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 ???
0
remix1502 Messages postés 64 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 4 août 2009 1
11 déc. 2008 à 15:09
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)
0
remix1502 Messages postés 64 Date d'inscription dimanche 26 octobre 2008 Statut Membre Dernière intervention 4 août 2009 1
11 déc. 2008 à 15:22
il manquait les parentheses pour définir le if...
0
ingméca Messages postés 6 Date d'inscription dimanche 9 décembre 2007 Statut Membre Dernière intervention 20 février 2009
20 févr. 2009 à 23:31
je crois qu'il manque la commande ELSE pour boucler le IF après le ENDIF viendra ................je crois
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
essai if.t.le.t150 then

ta essayer demettre end à la fin de tn programme?
0