Il Linguaggio Fortran 90/95

168 Array
per far sì che una operazione ”globale” sia applicata soltanto ad alcuni elementi di un array, e
non a tutti. La sua sintassi è:
WHERE(espressione_schema) istruzione_di_assegnazione_di_array
Un classico esempio di utilizzo dell’istruzione WHERE è quello che permette di evitare, in
corrispondenza di un rapporto, l’errore associato ad una divisione per zero:
INTEGER, DIMENSION(5,5) : num, den
REAL, DIMENSION(5,5) : rapp
...
WHERE(den/=0) rapp = REAL(num)/REAL(den)
oppure consente di applicare un ”filtro” ad una serie di dati:
REAL, DIMENSION(100) : aaa
...
WHERE(aaa