Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 347
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 di tipo intero.
Nel caso in cui il parametro DIM sia omesso (come è sempre nel Fortran 90) valgono le
seguenti regole:
• Se MASK è assente, gli elementi dell’array risultante rappresentano gli indici della locazione
dell’elemento di ARRAY avente valore massimo.
• SeMASK è presente, gli elementi dell’array risultante rappresentano gli indici della locazione
dell’elemento di ARRAY avente valore massimo fra quelli compatibili con la condizione
specificata da MASK.
Nel caso in cui il parametro DIM sia presente (e, quindi, solo nel Fortran 95) valgono le
seguenti regole:
• L’array risultante ha rango pari a quello di ARRAY diminuito di un’unità.
• Se ARRAY ha rango unitario, allora il valore di MAXLOC(ARRAY,DIM[,MASK]) sarà pari a
quello di MAXLOC(ARRAY[,MASK]).
• Se più elementi hanno valore pari al valore massimo, è l’indice del primo di tali elementi
(secondo l’ordine degli elementi di array) quello che viene restituito.
• Se ARRAY ha ampiezza nulla, oppure se tutti gli elementi di MASK hanno valore .FALSE.,
il valore del risultato è indefinito.
Esempi:
Il valore di MAXLOC((/3,7,4,7/)) è 2, essendo questo l’indice della posizione della
prima occorrenza del valore massimo (7) nell’array monodimensionale specificato
come argomento.
Sia mat l’array:
4 0 -3 2
3 1 -2 6
-1 -4 5 -5
MAXLOC(mat,MASK=mat