Il Linguaggio Fortran 90/95

336 Array Processing
L’argomento ARRAY è un array di tipo e rango qualsiasi con l’unica restrizione che esso non
può essere né un allocatable array non correntemente allocato né un puntatore deassociato.
L’argomento opzionale DIM deve essere uno scalare di tipo INTEGER con valore compreso tra
1 ed n , essendo n il rango di ARRAY.
Se DIM è presente, il risultato è uno scalare. In caso contrario, esso sarà un array di rango
unitario con ogni elemento riferito alla corrispondente dimensione di ARRAY.
Se ARRAY è una sezione di array o una espressione array (diversa, però, dall’intero array),
ciascun elemento del risultato avrà valore pari ad uno. Allo stesso modo, se ARRAY(DIM) ha
dimensione nulla il corrispondente elemento del risultato avrà valore unitario.
Le seguenti istruzioni serviranno a chiarire l’utilizzo della funzione LBOUND:
REAL, DIMENSION(1:3,5:8) :: a
INTEGER, DIMENSION(2:8,-3:20) :: b
...
LBOUND(a) ! ris.: (/1,5/)
LBOUND(a,DIM=2) ! ris.: (/5/)
LBOUND(b) ! ris.: (/2,-3/)
LBOUND(b(5:8,:)) ! ris.: (/1,1/) N.B.: l’argomento è una sezione di array
SHAPE(SOURCE)
Restituisce la forma di un array o di un argomento scalare.
L’argomentoSOURCE può essere uno scalare o un array di tipo qualsiasi con l’unica restrizione
che non può essere un assumed-size array, un allocatable array non correntemente allocato o
un puntatore deassociato.
Il risultato è un array di tipo INTEGER di rango unitario e di ampiezza pari al rango di
SOURCE. Il valore del risultato coincide con la forma di SOURCE.
Ad esempio, SHAPE(2) fornisce come risultato un array monodimensionale di ampiezza nulla.
Dato, invece, l’array b così definito:
REAL, DIMENSION(2:4,-3:1) :: b
l’istruzione:
SHAPE(SOURCE=b)
fornirà il valore (/3,5/).
SIZE(ARRAY[,DIM])
Restituisce il numero totale degli elementi in un array, oppure l’estensione di un array lungo
una dimensione specificata.
L’argomento ARRAY può essere un array di tipo qualsiasi, con l’unica restrizione che non può
essere un puntatore deassociato o un allocatable array non correntemente associato. Può essere,