Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 333
Nel caso in cui il parametro DIM sia presente valgono le seguenti regole:
• L’array risultante ha rango pari quello di ARRAY diminuito di un’unità.
• Se ARRAY ha rango unitario, allora il valore di MINVAL(ARRAY,DIM[,MASK]) sarà pari a
quello di MINVAL(ARRAY[,MASK]).
• Se ARRAY ha ampiezza nulla, oppure se tutti gli elementi di MASK hanno valore .FALSE., il
valore del risultato (se DIM è assente) oppure il valore degli elementi dell’array risultante
(se DIM è presente) è pari al più grande numero positivo supportato dal processore per il
tipo ed i parametri di kind di ARRAY.
Esempi:
Il valore di MINVAL((/2,4,-1,7/)) è -1, essendo questo il valore minimo dell’array.
Sia mat l’array:
2 6 4
5 3 7
MINVAL(mat,MASK=mat>3) fornisce il valore 4 poiché questo è il valore minimo di
mat fra quelli maggiori di 3.
MINVAL(mat,DIM=1) fornisce il valore [2,3,4], essendo 2 il minimo valore di mat
nella prima colonna, 3 il minimo valore di mat nella seconda colonna, e 4 il minimo
valore di mat nella terza colonna.
MINVAL(mat,DIM=2) fornisce il valore[2,3], essendo 2 il minimo valore di mat nella
prima riga e 3 il minimo valore di mat nella seconda riga.
PRODUCT(ARRAY[,DIM][,MASK])
Restituisce il valore del prodotto di tutti gli elementi di un intero array oppure degli elementi
di un array in una data dimensione.
L’argomento ARRAY deve essere un array di tipo INTEGER o REAL.
L’argomento opzionale DIM deve essere uno scalare di tipo INTEGER con valore compreso tra
1 ed n , essendo n il rango di ARRAY.
L’altro argomento opzionale MASK deve essere un array di tipo LOGICAL compatibile con
ARRAY.
Il risultato della funzione è uno scalare (se l’argomento DIM è assente oppure se ARRAY ha
rango unitario) oppure un array (se DIM è presente) dello stesso tipo di ARRAY.
Nel caso in cui DIM sia assente, valgono le seguenti regole:
• Se l’argomento MASK è assente, il risultato rappresenta il prodotto di tutti gli elementi di
ARRAY. Se ARRAY ha dimensione nulla, il risultato vale 1.