Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 107
Allo stesso modo è facile comprendere che, dato il seguente costrutto:
! Esempio 3: cicli innestati completati
DO i=1,10
DO j=i,i**2
DO k=j+1,i*10
sum = i+j+k
END DO
END DO
END DO
PRINT*, i, j, k, sum
il risultato da esso prodotto sarà il record:
11 101 101 209
2.3.2 Il ciclo a condizione
Un ciclo a condizione rappresenta un particolare blocco di istruzioni che viene ripetuto finché
non risulti soddisfatta una particolare condizione logica. La forma generale di un ciclo a
condizione è:
[nome:] DO
...
IF (espressione_logica) EXIT
...
END DO [nome]
Il blocco di istruzioni compreso fra DO e END DO viene ripetuto finché l’espressione logica
non diventi vera; a questo punto viene eseguita l’istruzione EXIT e il controllo delle operazioni
passa alla prima istruzione che segue END DO. Come si nota dallo schema precedente, normalmente
il blocco di istruzioni del corpo del ciclo è diviso in più ”frammenti” separati da una o
più istruzioni ”di uscita”.
L’istruzione IF può trovarsi in qualsiasi punto all’interno del corpo del ciclo e viene eseguita
ad ogni passaggio. Chiaramente, se espressione_logica risulta vera già la prima volta che
viene raggiunto il ciclo le istruzioni che, nel blocco, seguono l’istruzione IF non vengono mai
eseguite.
In generale, il test sulla condizione_logica può essere inserito in un punto qualsiasi fra
le istruzioni DO e END DO, ma le varianti più comuni sono quelle note come ciclo a condizione
iniziale e ciclo a condizione finale, utilizzate spesso nella programmazione di problemi di carattere
iterativo. Inoltre, è possibile inserire anche più di una istruzione IF all’interno dello
stesso loop, ciascuna con la relativa clausola di uscita, sebbene un ”eccesso” di clausole CYCLE
ed EXIT può rendere il codice più difficile da leggere e da gestire. Infine, per l’attribuzione di
un nome al costrutto DO condizionale, valgono le stesse regole e le raccomandazioni già discusse
a proposito del ciclo DO a conteggio.