Il Linguaggio Fortran 90/95

2.2 Istruzioni di diramazione 91
x1 = (-b-SQRT(d))/(2.*a)
x2 = (-b+SQRT(d))/(2.*a)
END IF
La forma più completa di costrutto IF va sotto il nome di costrutto IF THEN ELSE. Questo
costrutto permette di eseguire un blocco di istruzioni se una certa condizione è verificata,
oppure un altro blocco se risultano verificate altre condizioni. La struttura di un costrutto IF
THEN ELSE dipende dal numero di condizioni da considerare, e si presenta nella seguente forma
generale:
[nome:] IF (espressione_logica_1) THEN
blocco_1
ELSE IF (espressione_logica_2) THEN [nome]
blocco_2
...
[ELSE [nome]
blocco]
END IF [nome]
in cuiespressione_logica_i può essere una qualunque variabile o espressione di tipoLOGICAL.
Chiaramente ciascun blocco può contenere più istruzioni e, quindi, prevedere più azioni. Il nome
opzionalmente associato al costrutto può avere una lunghezza massima di 31 caratteri, deve
essere unico all’interno di ogni unità di programma e non può coincidere con il nome di una
costante o di una variabile all’interno della stessa unità di programma. Se ad un costrutto IF
è associato un nome, lo stesso nome deve comparire anche nell’istruzione END IF, mentre esso
è facoltativo nelle clausole ELSE ed ELSE IF.
Questa forma di costrutto viene usata quando un certo numero di istruzioni dipende dalla
medesima condizione. Se espressione_logica_1 è vera il programma esegue le istruzioni
del blocco_1 per poi saltare alla prima istruzione eseguibile che segue END IF; altrimenti il
programma verifica lo stato di espressione_logica_2 e, se questa è vera, esegue le istruzioni
del blocco_2 per saltare alla prima istruzione eseguibile che segue END IF. Questo ”percorso”
si può estendere a un qualsivoglia numero di clausole ELSE IF. Se tutte le espressioni logiche
sono false, il programma esegue le istruzioni del gruppo ELSE per cui la parte ELSE agisce come
una possibilità di riserva (o di default) allo scopo di coprire tutte le altre eventualità.
Le istruzioni ELSE ed ELSE IF, così come END IF, devono occupare righe separate e non
possono avere un’etichetta.
Un esempio di uso del costrutto IF THEN ELSE è fornito dal seguente programma che valuta
la radice quadrata di un numero reale a patto che il radicando sia non minore di zero:
PROGRAM radq
! Calcola la radice quadrata di un numero con test sul segno
IMPLICIT NONE
REAL :: radicando
!
WRITE(*,*) " Inserisci un valore: "