Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 349
4 0 -3 2
3 1 -2 6
-1 -4 5 -5
MINLOC(mat,MASK=mat>-5) fornisce il valore (/3,2/) poiché questi sono gli indici
che puntano all’elemento di valore minimo (-4) fra tutti quelli maggiori di -5.
MINLOC(mat,DIM=1) fornisce il valore (/3,3,1,3/), essendo 3 l’indice di riga del
minimo valore di mat nella prima colonna (-1), 3 l’indice di riga del minimo valore
di mat nella seconda colonna (-4), e così via.
MINLOC(mat,DIM=2) fornisce il valore (/3,3,4/), essendo 3 l’indice di colonna del
minimo valore di mat nella prima riga (-3), 3 l’indice di colonna del minimo valore
di mat nella seconda riga (-2), e così via.
6.6.6 Procedure di manipolazione
CSHIFT(ARRAY,SHIFT[,DIM])
Esegue uno shift circolare su un array di rango unitario o, se applicato ad un array di rango
superiore, uno shift circolare ad intere sezioni di rango uno (vettore) lungo una data dimensione
dell’array.
Gli elementi shiftati al di fuori delle dimensioni dell’array vengono spostati all’altra estremità
dell’array.
Sezioni differenti possono essere shiftate in misura diversa oltre che in differenti direzioni.
Per quanto concerne gli argomenti, ARRAY può essere un array di qualsiasi rango e tipo;
SHIFT può essere uno scalare o anche un array (nel qual caso deve avere rango minore di
un’unità rispetto ad ARRAY) di tipo INTEGER; 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 della funzione è un array avente stesso tipo, parametri di kind e forma di ARRAY.
In particolare:
• Se ARRAY ha rango unitario, allora l’i_mo elemento dell’array risultante sarà pari a
ARRAY(1+MODULO(i+SHIFT-1,SIZE(ARRAY))). (Il medesimo shift è applicato a ciascun
elemento).
• Se ARRAY ha rango maggiore di uno, ciascuna sezione dell’array risultante è shiftato del
valore di SHIFT se quest’ultimo è uno scalare, oppure del corrispondente valore in SHIFT,
se SHIFT è un array.
• 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.