Il Linguaggio Fortran 90/95

352 Array Processing
• Il valore di SHIFT determina l’entità e la direzione dello shift. Un valore positivo di SHIFT
provoca uno spostamento a sinistra (nelle righe) o verso l’alto (nelle colonne). Un valore
negativo di SHIFT, al contrario, provoca uno spostamento a destra (nelle righe) o verso
il basso (nelle colonne). Un valore nullo di SHIFT, chiaramente, non determina alcuna
variazione.
Esempi:
Sia v l’array monodimensionale (/1,2,3,4,5,6/). Si ha quanto segue:
EOSHIFT(v,SHIFT=2) trasla gli elementi di v verso sinistra di due posizioni, producendo
il vettore: (/3,4,5,6,0,0/). Come si può notare, gli elementi 1 e 2 sono
strappati dalle loro posizioni di testa e sostituiti, in coda al vettore, dal valore di
default 0.
EOSHIFT(v,SHIFT=-3,BOUNDARY=99) trasla gli elementi di v verso destra di tre
posizioni, producendo il vettore: (/99,99,99,2,3,4/). Ancora, si noti come gli
elementi 4, 5 e 6 siano stati strappati dalla coda dell’array e rimpiazzati, in testa
all’array, dal valore di BOUNDARY.
Sia, ora, m il seguente array bidimensionale:
1 2 3
4 5 6
7 8 9
L’istruzione:
EOSHIFT(m,SHIFT=1,BOUNDARY=’9’,DIM=2))
shifta a sinistra, di una posizione, ciascun elemento nelle tre righe, rimpiazzando
con il valore 9 gli elementi che rimangono ”scoperti”, producendo, così, il seguente
risultato:
2 3 9
5 6 9
8 9 9
Invece, l’istruzione:
EOSHIFT(EOSHIFT (m,SHIFT=-1,DIM=1)
shifta verso il basso, di una sola posizione, ciascun elemento nelle tre colonne, e
inserisce l’elemento0(corrispondente al valore di default diBOUNDARY) negli elementi
della terza riga, producendo, pertanto, il seguente risultato: