Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 103
Una cosa su cui fare particolarmente attenzione è la necessità di non modificare mai la
variabile indice all’interno di un ciclo. Modificare il valore di questa variabile può portare a
risultati inaspettati come, ad esempio, il generarsi di un ciclo infinito. Il seguente programma
mostra un esempio di tale tipo di errore:
PROGRAM errore
IMPLICIT NONE
INTEGER :: i
DO i=1,4
...
i = 2 ! Errore: e’ vietato modificare il contatore
...
END DO
END PROGRAM errore
Come si nota, ad ogni passaggio del ciclo il valore della variabile i viene impostato a 2 per cui
l’indice del ciclo non potrà mai essere maggiore di 4. Si noti, però, che quasi tutti i compilatori
sono in grado di riconoscere un errore di questo tipo e generano, di conseguenza, un errore in
fase di compilazione.
Due cicli si dicono annidati quando un ciclo giace interamente all’interno dell’altro. Un
”nido” di DO è, ad esempio, il seguente:
DO i=1,3
DO j=1,3
prod = i*j
PRINT*, prod
END DO
END DO
In questo esempio, il ciclo esterno assegna il valore 1 all’indice i, poi viene eseguito il ciclo
interno, per tre volte, con l’indice j che assume in successione i valori 1, 2 e 3. Quando il ciclo
interno è stato completato, il ciclo esterno assegna il valore 2 alla variabile i e viene eseguito
nuovamente il ciclo interno. Il processo viene iterato fino ad esaurimento del ciclo esterno.
In ogni caso il ciclo interno viene sempre eseguito completamente prima che l’indice del ciclo
esterno venga incrementato.
Dal momento che non è possibile modificare la variabile indice all’interno del corpo di un
ciclo DO non è possibile utilizzare lo stesso indice per due cicli annidati in quanto il ciclo interno
tenterebbe di cambiare il valore dell’indice all’interno del corpo del ciclo esterno.
In presenza di cicli annidati può tornare particolarmente utile assegnare un nome a ciascun
ciclo così da avere un ”riferimento” a ciascuno di essi. Ciò può facilitare la manutenzione di
programmi complessi e l’individuazione di eventuali errori commessi in fase di editing. Le regole
da seguire per assegnare un nome ad un ciclo sono le stesse viste con i costrutti IF: il nome può
essere lungo al massimo 31 caratteri, deve essere unico all’interno della unità di programma
che ospita il ciclo, non può coincidere con il nome di una variabile o di una costante usata
all’interno della stessa unità di programma. Inoltre, se il nome è presente nell’istruzione DO