Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 337
invece, un assumed-size array se il parametro DIM è presente con un valore minore del rango di
ARRAY.
L’argomento opzionale DIM deve essere uno scalare di tipo INTEGER con valore compreso tra
1 ed n , essendo n il rango di ARRAY.
Il risultato è sempre uno scalare di tipo INTEGER. In particolare, esso è pari al numero totale
di elementi di ARRAY nel caso in cui il parametro DIM non sia specificato; se, invece, DIM è
presente, il risultato rappresenta l’estensione di ARRAY nella dimensione DIM.
A titolo di esempio, se l’array b è dichiarato come:
REAL, DIMENSION(2:4,-3:1) :: b
le istruzioni:
SIZE(b,DIM=2)
SIZE(b)
forniscono i valori 5 e 15, rispettivamente.
UBOUND(ARRAY[,DIM])
Restituisce un array monodimensionale formato dai limiti superiori di tutte le dimensioni di
ARRAY, oppure, se DIM è presente, uno scalare avente come valore il limite superiore relativo
alla dimensione specificata. Il risultato è, in ogni caso, di tipo INTEGER.
L’argomento ARRAY è un array di tipo e rango qualsiasi con l’unica restrizione che non può
essere né un allocatable array non correntemente allocato né un puntatore deassociato. Può,
invece, essere un assumed-size array se il parametro DIM è presente con un valore minore del
rango di ARRAY.
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 che non coincida con l’intero array,
allora UBOUND(ARRAY,DIM) avrà un valore pari al numero di elementi nella dimensione specificata.
Allo stesso modo, se ARRAY(DIM) ha dimensione nulla, il corrispondente elemento del
risultato avrà valore nullo.
Le seguenti istruzioni serviranno a chiarire l’utilizzo della funzione UBOUND:
REAL, DIMENSION(1:3,5:8) :: a
INTEGER, DIMENSION(2:8,-3:20) :: b
...
UBOUND(a) ! ris.: (/3,8/)
UBOUND(a,DIM=2) ! ris.: (/8/)
UBOUND(b) ! ris.: (/8,20/)
UBOUND(b(5:8,:)) ! ris.: (/7,24/)