Il Linguaggio Fortran 90/95

108 Istruzioni di controllo
Il seguente frammento di programma illustra in maniera estremamente semplice sia la possibilità
di interrompere il ciclo con un’istruzione EXIT, sia la possibilità di ”saltare” anche solo
una parte del blocco DO mediante una o più istruzioni CYCLE:
i = 0; j = 0
DO
i = i+1
j = j+1
PRINT*, i
IF (i > 4) EXIT
IF (j > 3) CYCLE
i = i+2
END DO
L’output prodotto dal precedente costrutto è, chiaramente:
1
4
7
Ciclo a condizione iniziale
Il ciclo a condizione iniziale (anche detto ciclo while) si caratterizza per la presenza del test
sulla condizione_logica in testa al blocco di istruzioni, subito dopo l’istruzione DO, allo scopo
di determinare se le istruzioni del corpo del ciclo debbano essere o meno eseguite almeno una
volta. La forma generale di tale ciclo è la seguente:
[nome:] DO
IF (espressione_logica) EXIT
blocco_di_istruzioni
END DO [nome]
Un esempio di ciclo a condizione iniziale è il seguente:
REAL :: diff, old_val, new_val
...
diff = ... ! assegna a diff un valore di partenza
DO
IF (diff < 0.001) EXIT
...
new_val = ... !calcola il nuovo valore
diff = old_val-new_val
old_val = new_val
END DO