Il Linguaggio Fortran 90/95

166 Array
in cui espressione_schema è un array logico avente la stessa forma dell’array da manipolare
nelle istruzioni di assegnazione incluse nel costrutto WHERE. Questo costrutto applica le operazioni
del primo blocco a tutti gli elementi dell’array per i quali espressione_schema risulti
.TRUE., altrimenti applica le operazioni del secondo blocco.
E’ possibile assegnare un nome al costrutto WHERE, in tal caso anche la corrispondente
istruzione END WHERE deve avere lo stesso nome, mentre questo è facoltativo nella clausola
ELSEWHERE.
La clausola ELSEWHERE è, in realtà, opzionale; in sua assenza il costrutto WHERE assume la
forma particolarmente semplice:
[nome:] WHERE (espressione_schema)
istruzioni_di_assegnazione_di_array
END WHERE [nome]
Il precedente esempio può, pertanto, essere implementato in maniera estremamente elegante
ed efficiente mediante il seguente costrutto WHERE:
WHERE (matrice>0.)
log_matrice = LOG(matrice)
ELSEWHERE
log_matrice = valore_fittizio
END WHERE
Una particolare forma di costrutto WHERE è quello cosiddetto con maschera, in cui l’espressione_schema
è rappresentata da un array di tipo logico. Un valido esempio è il seguente:
PROGRAM prova
! Demo WHERE con maschera
IMPLICIT NONE
LOGICAL, DIMENSION(5) :: mask=(/.TRUE.,.FALSE.,.TRUE.,.TRUE.,.FALSE./)
REAL, DIMENSION(5) :: x=0.0
! start
WHERE(mask)
x = 1.0
ELSEWHERE
x = 2.0
END WHERE
WRITE(*,*) x
STOP
END PROGRAM prova
il cui output è:
1.000000 2.000000 1.000000 1.000000 2.000000