Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 105
CYCLE [nome]
L’istruzioneCYCLE può essere inserita in un qualsiasi punto all’interno di un cicloDO. Quando
una istruzione CYCLE viene eseguita, tutte le istruzioni che la seguono all’interno del ciclo
vengono ignorate ed il controllo ritorna all’inizio del ciclo. L’indice del ciclo viene quindi
incrementato e l’esecuzione riprende dall’inizio purché l’indice non abbia raggiunto il suo valore
limite.
Si noti che, in presenza di cicli DO innestati, un’istruzione CYCLE senza nome ha effetto
sempre sul ciclo più interno mentre un’istruzione CYCLE con nome ha effetto sul ciclo avente
quel nome, anche se non è quello più interno.
Il costrutto che segue mostra un esempio di funzionamento dell’istruzione CYCLE:
DO i = 1,5
PRINT*, i
IF(i>3) CYCLE
PRINT*, i
END DO
PRINT*, "Fatto!"
Il suo output è, chiaramente, il seguente:
1
1
2
2
3
3
4
5
Fatto!
Un esempio di utilizzo comparato delle istruzioni EXIT e CYCLE è, infine, fornito dal seguente
frammento di codice:
loop1: DO i = 1,10
loop2: DO j = 1,10
n = n+1
IF (n > nmax) EXIT loop1 ! esce dal ciclo esterno
CYCLE loop2 ! salta la prossima istruzione
n = n*2
END DO loop2
END DO loop1
Si noti come la presenza di cicli con nome aumenti la leggibilità di un costrutto in presenza di
istruzioni EXIT o CYCLE.