Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 343
NCOPIES è uno scalare di tipo INTEGER. Esso rappresenta l’estensione della dimensione
addizionale.
Il risultato è un array dello stesso tipo diSOURCE e di rango pari a quello diSOURCE aumentato
di un’unità. In particolare, valgono le seguenti regole:
• Se SOURCE è un array, ciascun elemento dell’array risultante nella dimensione DIM è pari
al corrispondente elemento di SOURCE.
• Se SOURCE è uno scalare, il risultato è un array di rango unitario formato da NCOPIES
elementi, ciascuno con il valore di SOURCE.
• Se NCOPIES è minore o uguale a zero, il risultato è un array di ampiezza nulla.
Un esempio di utilizzo della funzione SPREAD è fornito dalla seguente istruzione:
SPREAD ("c",1,4)
la quale produce l’array di caratteri: (/c,c,c,c/). Ancora, se vet è l’array (/3,4,5/) ed nc
ha valore 4, allora l’istruzione:
SPREAD(vet,DIM=1,NCOPIES=nc)
produrrà l’array:
3 4 5
3 4 5
3 4 5
3 4 5
mentre l’istruzione:
SPREAD(vet,DIM=2,NCOPIES=nc)
produce l’array:
3 3 3 3
4 4 4 4
5 5 5 5
UNPACK(VECTOR,MASK,FIELD)
Legge gli elementi di un array monodimensionale e li ”scompatta” in un altro array (possibilmente
maggiore) sotto il controllo di una maschera.
L’argomento VECTOR è un array monodimensionale di tipo qualsiasi e la cui dimensione deve
essere almeno t , essendo t il numero di elementi .TRUE. di MASK.
MASK è un array logico. Esso determina dove saranno disposti gli elementi di VECTOR una
volta scompattati.