Il Linguaggio Fortran 90/95

158 Array
cicli in quanto non sempre si può fare completo affidamento sulle scelte operate dal compilatore
per cui una buona conoscenza delle problematiche in esame deve essere sempre alla base, da un
lato, dello sviluppo del codice sorgente, dall’altro della scelta (sempre ponderata) delle direttive
di compilazione da impiegare.
3.9 Array e istruzioni di controllo
Esistono molti casi in cui l’uso degli array può aiutare a rendere il codice molto più semplice ed
efficiente. Già si è visto, a proposito delle operazioni globali, come in taluni casi sia possibile
semplificare se non addirittura fare a meno dei cicli a conteggio grazie ad un uso maturo degli
array; spesso è possibile trarre giovamento dall’uso di array ”di appoggio” anche per snellire e
rendere più efficienti altri tipi di costrutti, come quelli condizionali. Si supponga, ad esempio, di
dover assegnare alla variabile stato un valore che dipende, a sua volta, dal valore assunto dalla
variabile intera x. Si supponga, inoltre, che x possa assumere tutti i valori compresi in un certo
intervallo (a tal riguardo, le variabili x e stato potrebbero essere riguardate, rispettivamente,
come il dominio ed il codominio di una funzione di argomento intero). Tanto per fissare le idee
si può fare riferimento al seguente ramo di programma:
INTEGER :: x, stato
...
IF (x == -1) THEN
stato = 1
ELSE IF (x == +1)
stato = 5
ELSE IF (x == 0) then
stato = 0
ELSE
PRINT*, " Valore di x non significativo! "
END IF
Il precedente frammento di programma assegna alla variabile stato un diverso valore a seconda
che la variabile intera x valga, rispettivamente, -1, +1 o 0; se, invece, il valore assoluto di x
risulta maggiore di1viene segnalata una condizione di errore. In casi come questi si può ridurre
notevolmente il numero di condizioni da analizzare (e, con esse, il numero di clausole ELSE IF
da introdurre) inserendo i possibili valori di x in un array ed utilizzando questo array alla destra
dell’unica istruzione di assegnazione:
INTEGER x, i, stato
INTEGER, DIMENSION(-1:1) :: lookup = (/1,0,5/)
IF ((ABS(x)