Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 331
elementi dell’array argomento hanno valore .TRUE.
Siano a la matrice:
1 5 7
3 6 8
e b la matrice:
0 5 7
2 6 9
COUNT(a/=b,DIM=1) conta quanti elementi in ciascuna colonna di a abbiano valore
diverso dai corrispondenti elementi nelle colonne di b. Il risultato sarà, pertanto,
(/2,0,1/), poiché la prima colonna di a e la prima colonna di b hanno entrambi
gli elementi di valore differente, la seconda colonna di a e la seconda colonna di b
hanno tutti e due gli elementi in comune (e, quindi, nessun valore differente), la
terza colonna di a e la terza colonna di b differiscono per un solo elemento.
COUNT(a==b,DIM=2) conta quanti elementi in ciascuna riga di a abbiano lo stesso
valore dei corrispondenti elementi nelle righe di b. In tal caso il risultato è (/2,
1/), poiché la prima riga di a ha due elementi in comune con la prima riga di b,
mentre la seconda riga di a ha un solo valore in comune con la corrispondente riga
di b.
MAXVAL(ARRAY[,DIM][,MASK])
Restituisce il valore massimo di un array, di una sezione di array o di in una specificata
dimensione di un array.
L’argomento ARRAY è un array di tipo intero o reale.
L’argomento opzionale DIM è uno scalare di tipo intero con valore compreso nell’intervallo
1÷n , essendo n il rango di ARRAY. Si noti che questo parametro non è previsto dal Fortran 90
ma soltanto dal Fortran 95.
L’argomento opzionale MASK è un array logico compatibile con ARRAY.
Il risultato della funzione è un array o uno scalare avente stesso tipo di ARRAY. Il risultato
è uno scalare se DIM è omesso oppure se ARRAY ha rango unitario.
Nel caso in cui il parametro DIM sia omesso valgono le seguenti regole:
• Se MASK è assente, il risultato rappresenta il valore massimo fra quelli di tutti gli elementi
di ARRAY.
• Se MASK è presente, il risultato rappresenta il valore massimo fra tutti gli elementi di
ARRAY che siano compatibili con la condizione specificata da MASK.
Nel caso in cui il parametro DIM sia presente valgono le seguenti regole: