Patrick Corde & Anne Fouilloux

Les tests 68
Exemples
PROGRAM structure_if
REAL A,B,SUM
...
IF (A.LT.B) THEN
SUM = SUM + A
IF (SUM > 0.) PRINT *, SUM
END IF
...
END PROGRAM structure_if
PROGRAM structure_if
REAL A,HRS
...
IF (HRS.LE.40.0) THEN
A = HRS*150.0
ELSE IF (HRS.LE.50.) THEN
A = (HRS-40.0)*150.0*1.5
ELSE
A = (HRS-50.0)*150.0*2.0
END IF
...
END PROGRAM structure_if
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux