Il Linguaggio Fortran 90/95

346 Array Processing
L’argomento opzionale ORDER è un array della stessa forma di SHAPE. I suoi elementi rappresentano
una permutazione della n_pla (/1,2,...,n/), essendo n l’ampiezza di SHAPE. Se
ORDER è omesso, esso è assunto per default pari a (/1,2,...,n/).
Il risultato è un array di forma SHAPE avente stesso tipo e parametri di kind di SOURCE e
ampiezza pari al prodotto dei valori degli elementi di SHAPE. All’interno dell’array risultante gli
elementi di SOURCE sono disposti nell’ordine per dimensione così come specificato da ORDER. Se
ORDER è omesso, gli elementi sono disposti secondo l’ordinamento standard.
Gli elementi diSOURCE sono seguiti (laddove necessario) dagli elementi diPAD (eventualmente
in forma ripetuta) nell’ordine degli elementi di array.
Un semplice esempio di utilizzo della funzione RESHAPE è fornito dalla seguente istruzione:
RESHAPE((/3,4,5,6,7,8/),(/2,3/))
la quale fornisce come risultato la matrice:
3 5 7
4 6 8
mentre l’istruzione:
RESHAPE((/3,4,5,6,7,8/),(/2,4/),(/1,1/),(/2,1/))
fornisce il seguente risultato:
3 4 5 6
7 8 1 1
Il prossimo frammento di programma costituisce un ulteriore esempio di utilizzo della funzione
RESHAPE:
INTEGER, DIMENSION(2,5) :: arr1
REAL, DIMENSION(5,3,8) :: f
REAL, DIMENSION(8,3,5) :: c
...
arr1 = RESHAPE((/1,2,3,4,5,6/),(/2,5/),(/0,0/),(/2,1/))
! questa istruzione fornisce:
! [1 2 3 4 5]
! [6 0 0 0 0]
c = RESHAPE(f,(/8,3,5/),ORDER=(/3,2,1/))
! questa istruzione assegna a c l’array f mutandone l’ordine degli elementi
END
6.6.5 Procedure topologiche
MAXLOC(ARRAY[,DIM][,MASK])
Restituisce la posizione dell’elemento di valore massimo di un array, di una sezione di array o
lungo una specificata dimensione dell’array.