Il Linguaggio Fortran 90/95

330 Array Processing
ANY((/.FALSE.,.TRUE.,.FALSE./)) restituisce il valore .TRUE. poiché un elemento
di MASK (per l’esattezza, il secondo) è .TRUE.
Siano a la matrice:
1 5 7
3 6 8
e b la matrice:
0 5 7
2 6 9
ANY(a==b,DIM=1) verifica se qualche elemento di una qualsiasi colonna di a sia
uguale al corrispondente elemento di b. Il risultato della funzione sarà, pertanto:
(/.FALSE.,.TRUE.,.TRUE./)
poiché i due array hanno elementi comuni soltanto nella seconda e nella terza colonna.
ANY(a==b,DIM=2) verifica se qualche elemento di una qualsiasi riga di a sia uguale
al elemento di b. Il risultato della funzione sarà, pertanto:
(/.TRUE.,.TRUE./).
in quanto le prime righe hanno in comune gli elementi 5 e 7, le seconde l’elemento
6.
COUNT(MASK[,DIM])
Questa funzione conta il numero di ricorrenze del valore .TRUE. nell’array logico MASK. Se viene
specificato l’argomento opzionale DIM, la suddetta operazione viene effettuata esclusivamente
nella dimensione specificata. Quando specificato, il parametro DIM deve essere uno scalare di
tipo INTEGER con valore compreso tra 1 ed n , essendo n il rango di MASK.
Il risultato di COUNT è 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:
COUNT((/.TRUE.,.FALSE.,.TRUE./)) restituisce il valore 2 perché tanti sono gli
elementi .TRUE. dell’array argomento.
COUNT((/.TRUE.,.TRUE.,.TRUE./)) restituisce il valore 3 perché tutti e tre gli