Il Linguaggio Fortran 90/95

3.13 Costrutto e istruzione WHERE 167
Il Fortran 95 ha esteso il costrutto WHERE dando la possibilità di lavorare anche con più
clausole ELSEWHERE e di assegnare un nome al costrutto. La forma generale di un costrutto
WHERE, secondo lo standard del Fortran 95, è pertanto:
[nome:] WHERE (espressione_schema_1)
istruzioni di assegnazione di array ! primo blocco
ELSEWHERE (espressione_schema_2)[nome]
istruzioni_di_assegnazione_di_array ! secondo blocco
ELSEWHERE [nome]
istruzioni_di_assegnazione_di_array ! terzo blocco
...
END WHERE [nome]
Un costrutto WHERE può avere, così, tutte le clausole ELSEWHERE con maschera che si desiderano
ma ad ogni elemento di array saranno applicate le operazioni di uno ed un solo
blocco. Questo costrutto applica le operazioni del primo blocco a tutti gli elementi dell’array
per i quali espressione_schema_1 risulti .TRUE. e espressione_schema_2 risulti
.FALSE., applica le operazioni del secondo blocco a tutti gli elementi dell’array per i quali
espressione_schema_1 risulti .FALSE. e espressione_schema_2 risulti .TRUE., e applica,
infine, le operazioni delterzo blocco a tutti gli elementi dell’array per i quali risultino.FALSE.
contemporaneamente espressione_schema_1 ed espressione_schema_2. Inoltre, il Fortran
95 ha anche introdotto la possibilità di lavorare con costrutti WHERE innestati, possibilità questa
non prevista dal Fortran 90 standard, potendo così dare vita a costrutti del tipo:
assign1: WHERE(cnd1)
... ! maschera: cnd1
ELSEWHERE(cnd2)
... ! maschera: cnd2.AND.(.NOT.cnd1)
assign2: WHERE(cnd4)
... ! maschera: cnd2.AND.(.NOT.cnd1).AND.cnd4
ELSEWHERE
... ! maschera: cnd2.AND.(.NOT.cnd1).AND.(.NOT.cnd4)
END WHERE assign2
...
ELSEWHERE(cnd3) assign1
... ! maschera: cnd3.AND.(.NOT.cnd1).AND.(.NOT.cnd2)
ELSEWHERE assign1
... ! maschera: .NOT.cnd1.AND.(.NOT.cnd2).AND.(.NOT.cnd3)
END WHERE assgn1
Oltre che il costrutto WHERE, il Fortran 90/95 mette a disposizione anche l’istruzione WHERE che
permette di controllare casi meno complessi. Anche l’istruzione WHERE può essere usata per
eseguire una istruzione di assegnazione ”controllata”, ossia un’istruzione che venga applicata
soltanto se una condizione logica risulti vera. L’istruzione WHERE è, pertanto, un altro modo