Il Linguaggio Fortran 90/95

350 Array Processing
Esempi:
Sia v l’array monodimensionale (/1,2,3,4,5,6/). Si ha quanto segue:
CSHIFT(v,SHIFT=2) trasla gli elementi di v in maniera circolare verso sinistra di
due posizioni, producendo il vettore: (/3,4,5,6,1,2/). Come si può notare, gli
elementi 1 e 2 sono strappati dalle loro posizioni di testa e inseriti in coda all’array.
CSHIFT(v,SHIFT=-2) trasla gli elementi di v in maniera circolare verso destra di
due posizioni, producendo il vettore: (/5,6,1,2,3,4/). Ancora, si noti come gli
elementi 5 e 6 siano stati strappati dalla coda dell’array e inseriti alla sua testa.
Sia, ora, m il seguente array bidimensionale:
1 2 3
4 5 6
7 8 9
L’istruzione:
CSHIFT(m,SHIFT=1,DIM=2)
shifta a sinistra, di due posizioni, ciascun elemento nelle tre righe, producendo il
seguente risultato:
2 3 1
5 6 4
8 9 7
Invece, l’istruzione:
CSHIFT(m,SHIFT=-1,DIM=1)
shifta verso il basso, di una sola posizione, ciascun elemento nelle tre colonne,
producendo il seguente risultato:
7 8 9
1 2 3
4 5 6
Infine, l’istruzione:
CSHIFT(m,SHIFT=(/1,-1,0/),DIM=2)
shifta ogni elemento appartenente alla prima riga di una posizione verso sinistra,
ogni elemento appartenente alla seconda riga di due posizioni verso destra, non
sposta alcun elemento della terza riga. Il risultato prodotto sarà, pertanto: