Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 353
1 2 3
4 5 6
0 0 0
Infine, l’istruzione:
EOSHIFT(M,SHIFT=(/1,-1,0/),BOUNDARY=(/’*’,’?’,’/’/),DIM=2)
applicata all’array:
’a’ ’b’ ’c’
’d’ ’e’ ’f’
’g’ ’h’ ’i’
shifta ogni elemento appartenente alla prima riga di una posizione verso sinistra (inserendo
il carattere ’*’ in coda alla riga), ogni elemento appartenente alla seconda
riga di una posizione verso destra (inserendo il carattere ’?’ in testa alla riga),
non sposta alcun elemento della terza riga (non facendo, quindi, uso, dell’ultimo
elemento, di BOUNDARY, ’/’). Il risultato prodotto sarà, pertanto:
’a’ ’b’ ’*’
’?’ ’e’ ’f’
’g’ ’h’ ’i’
TRANSPOSE(MATRIX)
Traspone un array di rango due.
L’argomento MATRIX può essere un array bidimensionale di tipo qualsiasi.
Il risultato della funzione è un array avente stesso tipo e stessi parametri di kind dell’argomento
MATRIX e forma (/n,m/) essendo (/m,n/) la forma dell’argomento.
L’elemento (i,j)_mo dell’array risultante coincide con il valore di MATRIX(j,i).
A titolo di esempio, definita la seguente matrice mat:
1 2 3
4 5 6
7 8 9
TRANSPOSE(mat) avrà valore:
1 4 7
2 5 8
3 6 9