Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 351
2 3 1
6 4 5
7 8 9
EOSHIFT(ARRAY,SHIFT[,BOUNDARY][,DIM])
Esegue uno shift di tipo end-off su un array di rango uno o, se applicata ad un array di rango
superiore, uno shift di tipo end-off ad intere sezioni di rango uno (vettori) lungo una data
dimensione dell’array.
Alcuni elementi sono shiftati al di fuori delle dimensioni dell’array e copie degli elementi del
contorno (boundary) vengono inseriti all’altra estremità dell’array.
Sezioni differenti possono essere shiftate in misura diversa oltre che in differenti direzioni.
Relativamente agli argomenti, si ha quanto segue:
• L’argomento ARRAY può essere un array di qualsiasi rango e tipo.
• L’argomento SHIFT può essere uno scalare o anche un array (nel qual caso deve avere
rango minore di un’unità rispetto a ARRAY) di tipo INTEGER.
• L’argomento opzionale BOUNDARY deve avere stesso tipo e parametri di kind diARRAY. Esso
può essere uno scalare oppure un array il cui rango sia par a quello di ARRAY diminuito
di uno. Se il parametro BOUNDARY è assente, sono assunti i seguenti valori di default,
dipendenti dal tipo di ARRAY:
tipo di ARRAY valore di BOUNDARY
INTEGER 0
REAL 0.0
COMPLEX (0.0,0.0)
LOGICAL .FALSE.
CHARACTER(LEN=n) n spazi bianchi
• Il parametro opzionale DIM è, invece, uno scalare intero con valore compreso tra 1 ed n,
con n il rango di ARRAY (DIM è assunto, per default, pari ad uno).
Il risultato è un array avente stesso tipo, parametri di kind e forma di ARRAY. In particolare:
• Se ARRAY ha rango unitario, il medesimo shift è applicato a ciascun elemento. Se qualche
elemento è strappato via dall’array, esso sarà rimpiazzato dal valore di BOUNDARY.
• Se ARRAY ha rango maggiore di uno, ciascuna sezione dell’array risultante è shiftato del
valore diSHIFT se quest’ultimo è uno scalare, del corrispondente valore inSHIFT, se SHIFT
è un array.
• Se un elemento è spostato fuori dall’array, il valore di BOUNDARY è inserito all’altra
estremità della sezione di array.