Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 341
Un esempio appena più complesso è il seguente. Se TSOURCE è l’array:
1 3 5
2 4 6
FSOURCE è l’array:
8 9 0
1 2 3
e MASK è l’array:
.FALSE. .TRUE. .TRUE.
.TRUE. .TRUE. .FALSE.
allora l’istruzione:
MERGE(TSOURCE,FSOURCE,MASK)
produce il risultato:
8 3 5
2 4 3
PACK(ARRAY,MASK[,VECTOR])
Legge gli elementi di un array e li ”compatta” in un array di rango unitario sotto il controllo di
una maschera.
L’argomento ARRAY è un array di tipo qualsiasi.
MASK è un array logico compatibile con ARRAY. Esso determina quali elementi vengono
acquisiti da ARRAY.
L’argomento opzionaleVECTOR è un array monodimensionale avente lo stesso tipo e parametri
di kind di ARRAY e la cui dimensione deve essere almeno t , essendo t il numero di elementi
.TRUE. di MASK.
Se MASK è uno scalare con valore .TRUE., VECTOR deve avere un numero di elementi almeno
pari adARRAY. Gli elementi diVECTOR sono inseriti nell’array risultante se non esistono sufficienti
elementi selezionati da MASK.
Il risultato è un array di rango unitario avente stesso tipo e stessi parametri di kind di
ARRAY.
Se VECTOR è presente, l’ampiezza dell’array risultante coincide con quella di VECTOR. In caso
contrario, l’ampiezza dell’array risultante è pari al numero di elementi .TRUE. di MASK, o al
numero degli elementi di ARRAY (se MASK è uno scalare con valore .TRUE.).
Gli elementi di ARRAY vengono processati secondo l’array element order, per formare l’array
risultante, in modo tale che l’elemento i del risultato coincida con l’elemento di ARRAY
corrispondente all’i_mo elemento .TRUE. di MASK. Se VECTOR è presente ed ha un numero di
elementi maggiore del numero di elementi .TRUE. di MASK, tutti gli elementi mancanti vengono
acquisiti dalle corrispondenti posizioni in VECTOR.
Ad esempio, se mat è il seguente array: