Come fare un loop in Fortran
Per realizzare una struttura ciclica ( loop ) in linguaggio Fortran posso utilizzare l'istruzione DO oppure DO WHILE.
DO CONTINUE / END DO
La struttura ciclica DO / CONTINUE realizza un ciclo definito di N iterazioni.
E' necessario indicare il numero di linea che conclude il blocco di istruzioni.
DO 100 I=1,10,2
WRITE(*,*) I
100 CONTINUE
In alternativa si può usare la forma con DO / END DO senza indicare il numero di linea.
DO I=1,10,2
WRITE(*,*) I
END DO
DO WHILE
Questa struttura ciclica compie un ciclo indefinito.
Il numero di iterazioni è legato al verificarsi o meno di un evento.
DO 100 WHILE ( I .LT. 10 )
WRITE(*,*) I
I=I+1 100
100 CONTINUE
Esiste anche una forma alternativa DO WHILE / END DO che mi permette di non indicare il numero di linea della fine del blocco.
DO WHILE ( I .LT. 10 )
WRITE(*,*) I
I=I+1 100
END DO
E così via.