Il Linguaggio Fortran 90/95

2.3 Istruzioni di ripetizione 101
• indice è una variabile intera usata come contatore;
• inizio è una variabile (o una espressione) intera indicante il valore iniziale di indice ;
• fine è una variabile (o una espressione) intera indicante il valore finale di indice .
• passo è una variabile (o una espressione) intera indicante lo step di cui la variabileindice
viene incrementata. Questo step è opzionale ed ha valore di default unitario.
All’avvio del ciclo, la variabile contatore indice assume il valore inizio , alla seconda iterazione
(dopo, cioè, una prima esecuzione delle istruzioni del blocco ) indice ha valore pari
a inizio +passo (ovvero inizio +1 se passo è omesso), e così via fino all’ultima iterazione
quando assumerà il valore fine (oppure il massimo valore intero minore di fine ma tale che
se incrementato di passo risulterebbe maggiore di fine ).
Il numero di volte che le istruzioni vengono eseguite può essere facilmente calcolato come:
MAX((fine +passo −inizio )/passo , 0)
Pertanto, se il valore di fine è minore del valore di inizio e passo risulta positivo, allora
indice assumerà valore zero ed il ciclo non avrà luogo.
Esempi di applicazione del ciclo a conteggio sono offerte dai seguenti frammenti di codice:
tutti: DO i = 1, 10
WRITE(*,*) i ! stampa i numeri da 1 a 10
END DO tutti
pari: DO j = 10,2,-2
WRITE(*,*) j ! stampa i numeri pari 10,8,6,4,2
END DO pari
Il programmino che segue, invece, stampa la tabellina del 5:
PROGRAM tabellina
IMPLICIT NONE
INTEGER :: i, j=5
PRINT 100, "Tabellina del", j
DO i=1,10
PRINT 200, j,"per",i,"=",i*j
END DO
100 FORMAT(1X,A13,1X,I2)
200 FORMAT(1X,I2,1X,A3,1X,I2,1X,A1,1X,I2)
END PROGRAM tabellina
ed infatti il suo output è: