Patrick Corde & Anne Fouilloux

Les itérations 78
Instruction CYCLE
bloc i peut aussi contenir une instruction CYCLE :
IF (expression) CYCLE
CYCLE permet d’abandonner le traitement de l’itération
courante et de passer à la suivante.
Là aussi, l’instruction IF peut être remplacée par une
instruction de type SELECT CASE.
Exemple
PROGRAM iteration_cycle
INTEGER :: annee
DO
READ(*,*) annee
IF (annee .LE. 0) EXIT
! On élimine les années bissextiles.
IF( ((annee/4*4 .EQ. annee) .AND. &
(annee/100*100 .NE. annee)) .OR. &
(annee/400*400 .EQ. annee) ) CYCLE
PRINT*,’Traitement des années non-bissextiles’
...
END DO
END PROGRAM iteration_cycle
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux