Il Linguaggio Fortran 90/95

334 Array Processing
• Se l’argomento MASK è presente, il risultato rappresenta il prodotto di tutti gli elementi
di ARRAY che corrispondano ad elementi .TRUE. di MASK. Se ARRAY ha dimensione nulla,
oppure tutti gli elementi di MASK hanno valore .FALSE., il risultato vale 1.
Nel caso, invece, in cui DIM venga specificato, si ha:
• Se ARRAY ha rango unitario, il valore della funzione è pari a PRODUCT(ARRAY[,MASK]).
• L’array risultante ha rango pari a quello di ARRAY diminuito di un’unità.
Esempi:
PRODUCT((/2,3,4/)) restituisce valore 24 (tale essendo il risultato del prodotto
2×3×4).
PRODUCT((/2,3,4/),DIM=1) restituisce, chiaramente, lo stesso valore.
Sia a l’array:
1 4 7 2
2 3 5 1
PRODUCT(a,DIM=1) restituisce il valore (/2,12,35,2/), che è il prodotto degli elementi
di ciascuna colonna (ossia 1×2, nella prima colonna, 4×3 nella seconda colonna,
e così via).
PRODUCT(a,DIM=2) restituisce il valore (/56,30/), che è il prodotto degli elementi
di ciascuna riga (ossia 1×2×7×2, nella prima riga, 2×3×5×1, nella seconda riga).
SUM(ARRAY[,DIM][,MASK])
Restituisce il valore della somma di tutti gli elementi di un intero array oppure degli elementi
din un array in una data dimensione.
L’argomento ARRAY deve essere un array di tipo INTEGER, REAL o COMPLEX.
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’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 non sia specificato, valgono le seguenti regole:
• Se l’argomento MASK è assente, il risultato rappresenta la somma di tutti gli elementi di
ARRAY. Se ARRAY ha dimensione nulla, il risultato vale zero.
• Se l’argomento MASK è presente, il risultato rappresenta la somma di tutti gli elementi
di ARRAY che corrispondano ad elementi .TRUE. di MASK. Se ARRAY ha dimensione nulla,
oppure se tutti gli elementi di MASK hanno valore .FALSE., il risultato vale zero.