Test IF en fortran (débutant)
Résolu
remix1502
Messages postés
64
Date d'inscription
Statut
Membre
Dernière intervention
-
ok -
ok -
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
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:
- Test IF en fortran (débutant)
- Test performance pc - Guide
- Test disque dur - Télécharger - Informations & Diagnostic
- Test steam deck oled - Guide
- Test composant pc - Guide
- Test batterie pc - Guide
5 réponses
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 ???
Fortran 77
et je ne suis pas non plus sûr de ma syntaxe pour écrire "inférieure ou égale"....
Alors : une idée ???
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)
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)
je crois qu'il manque la commande ELSE pour boucler le IF après le ENDIF viendra ................je crois
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question