Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 329
ALL((/.TRUE.,.FALSE.,.TRUE./)) restituisce il valore .FALSE. poiché il secondo
elemento di MASK è .FALSE.
ALL((/.TRUE.,.TRUE.,.TRUE./)) restituisce il valore .TRUE. poiché tutti gli elementi
di MASK sono .TRUE.
Siano a la matrice:
1 5 7
3 6 8
e b la matrice:
0 5 7
2 6 9
ALL(a==b,DIM=1) verifica che tutti gli elementi in ciascuna colonna di a risultino
uguali agli elementi nelle corrispondenti colonne di b. Pertanto in questo caso il
risultato sarà:
(/.FALSE.,.TRUE.,.FALSE./)
poiché soltanto gli elementi della seconda colonna sono ordinatamente uguali nelle
due matrici.
ALL(a==b,DIM=2) verifica se tutti gli elementi in ciascuna riga di a risultino uguali
agli elementi nelle corrispondenti righe dib. Il risultato della funzione sarà, pertanto:
ANY(MASK[,DIM])
(/.FALSE.,.FALSE./).
Restituisce il valore .TRUE. se almeno un elemento dell’array logico MASK ha valore .TRUE.,
in caso contrario fornisce il valore .FALSE. Il risultato è .FALSE. anche nel caso in cui MASK
abbia dimensione nulla. Se viene specificato l’argomento opzionale DIM, la suddetta verifica
viene effettuata esclusivamente nella dimensione specificata.
Se l’argomento DIM viene specificato, esso dovrà essere uno scalare di tipo INTEGER con
valore compreso tra 1 ed n , essendo n il rango di MASK.
Il risultato di ANY è uno scalare (se l’argomento DIM è omesso o se MASK ha rango unitario)
oppure un array (se DIM è presente) di tipo LOGICAL. In particolare, un risultato array ha sempre
lo stesso tipo e gli stessi parametri di kind di MASK, e rango pari a quello di MASK diminuito
di un’unità.
Esempi: