Il Linguaggio Fortran 90/95

2.2 Istruzioni di diramazione 97
Introdurre i coefficienti:
1 5 3
Le radici sono: -0.6972244 -4.302776
Così come per il costruttoIF, è possibile assegnare unnome anche ad un costruttoSELECT CASE.
Tale nome deve essere unico all’interno di ogni unità di programma e non può coincidere con
il nome di una variabile o di una costante usata all’interno della stessa unità di programma.
Se a un costrutto SELECT CASE è associato un nome, lo stesso nome deve comparire anche
nell’istruzione END SELECT, mentre la sua presenza è facoltativa nelle clausole CASE.
A titolo di esempio, si consideri il seguente frammento di programma:
INTEGER :: mese
stagioni: SELECT CASE(mese)
CASE(3:5)
WRITE(*,*) ’Primavera’
CASE(6:8)
WRITE(*,*) ’Estate’
CASE(9:11)
WRITE(*,*) ’Autunno’
CASE(12,1,2)
WRITE(*,*) ’Inverno’
CASE DEFAULT
WRITE(*,*) "Non e’ un mese"
END SELECT stagioni
L’esempio precedente stampa il nome della stagione associata al mese indicato. Se il valore del
mese non appartiene all’intervallo intero 1÷12 viene applicata l’istruzione di default e viene,
pertanto, stampato un messaggio di errore, altrimenti viene applicata una delle istruzioni CASE.
Si noti che non esiste alcun ordine preferenziale nei valori di una istruzione CASE.
Così come i costrutti IF, anche i costrutti SELECT CASE possono essere innestati allo scopo
di gestire condizioni più complesse, come esemplificato dal seguente insieme di istruzioni:
zero: SELECT CASE(n)
CASE DEFAULT zero
altri: SELECT CASE(n)
CASE(:-1)
segno = -1
CASE(1:) altri
segno = 1
END SELECT altri
CASE(0)
segno = 0
END SELECT zero