Come creare un loop in Fortran

Per fare un ciclo in Fortran si può usare la struttura DO. Il blocco di istruzioni da ripetere è inserito tra DO e END DO.

DO var = i , f , p
...
END DO

• var è il nome della variabile indice
• i è il valore iniziale della variabile indice
• f è il valore finale della variabile indice
• p è l'incremento della variabile indice dopo ogni iterazione ( opzionale, di default è +1 )

La struttura iterativa DO / END DO esegue il blocco di istruzioni per N volte.

Nota. La sintassi dell'istruzione DO cambia in base alla versione del linguaggio. Nel Fortran77 si usa la struttura DO/CONTINUE.

Esempi

Esempio 1 ( Fortran 95 )

Questo programma visualizza i numeri da 1 a 10.

PROGRAM loop
DO var=1,10
WRITE (*,*) var
END DO
END

Il risultato in output è il seguente:

1
2
3
4
5
6
7
8
9
10

Esempio 2 ( Fortran 77 )

Nel Fortran 77 si usa la struttura DO / CONTINUE ed è necessario indicare il numero di riga alla fine del blocco.

PROGRAM loop
DO 100 var=1,10,2
WRITE (*,*) var
100 CONTINUE
END

Questo programma stampa a video i numeri dispari da 1 a 10.

In questo caso il passo ( incremento ) dopo ogni iterazione è +2.

Il risultato in output è il seguente:

1
3
5
7
9