Il Linguaggio Fortran 90/95

128 Array
3.3.2 Costruttore di array
Un costruttore di array crea un array di rango uno (ossia un vettore) contenente dei valori
specificati. Questi ultimi possono essere forniti da lista oppure attraverso un ciclo DO implicito,
o, al limite, a mezzo di una combinazione dei due sistemi.
La forma generale del costruttore di array è la seguente:
(/ lista_dei_valori_del_costruttore di_array /)
A titolo di esempio, si possono considerare le seguenti istruzioni di assegnazione di array:
REAL, DIMENSION(5) :: a
a=(/(i,i=1,5)/) != (/1,2,3,4,5/)
a=(/7,(i,i=1,3),9/) != (/7,1,2,3,9/)
a=(/1./REAL(i),i=1,5)/) != (/1./1.,1./2.,1./3.,1./4.,1./5./)
a=(/((i+j,i=1,2),j=1,2),5/) != (/((1+j,2+j,3+j),j=1,2)/) = (/2,3,3,4,5/)
a=(/a(i,2:4),a(1:4:2,i+3)/) != (/a(i,2),a(i,3),a(i,4),a(1,i+3),a(3,i+3)/)
Esiste una restrizione secondo cui sono possibili unicamente costruttori di array monodimensionali.
E’ possibile, tuttavia, ”trasferire” i valori di un array di rango unitario in un array di
rango qualsiasi a mezzo della funzione intrinseca RESHAPE. La funzione RESHAPE ha la seguente
sintassi:
RESHAPE(SOURCE,SHAPE[,PAD][,ORDER])
in cui l’argomento SOURCE può essere, in generale, un array di forma qualsiasi (nel caso specifico
un array di rango unitario). Il risultato dell’applicazione della funzione RESHAPE al vettore
SOURCE fa sì che gli elementi di quest’ultimo vengano ”riarrangiati” in modo da formare un
array di forma SHAPE.
Si noti che se SOURCE contiene un numero di elementi maggiori del risultato di RESHAPE,
allora gli elementi superflui saranno ignorati. Se, al contrario, il numero di elementi del risultato
di RESHAPE è maggiore di quelli di SOURCE, allora l’argomento PAD deve essere presente.
L’argomento PAD è un array dello stesso tipo di SOURCE, ed i suoi elementi vengono usati (se
necessario, in maniera ripetuta) in sostituzione degli elementi ”mancanti” di RESHAPE. Infine,
l’argomento opzionale ORDER consente agli elementi di RESHAPE di essere disposti secondo un
ordine alternativo rispetto al consueto ordinamento degli elementi di array. A tale scopo è
necessario che l’argomento ORDER sia un array avente stessa ampiezza e stessa forma di SHAPE,
e che contenga le dimensioni di RESHAPE nell’ordine desiderato.
Un semplice esempio servirà a chiarire l’utilizzo della funzione RESHAPE. Le seguenti istruzioni:
REAL, DIMENSION(3,2) :: arr
arr=RESHAPE((/((i+j,i=1,3),j=1,2)/),SHAPE=(/3,2/))
⎡ ⎤
2 3
creano l’array: arr = ⎣ 3 4 ⎦
4 5
Se venisse incluso anche l’argomento ORDER, come nel seguente esempio: