Il Linguaggio Fortran 90/95

6.6 Procedure intrinseche per gli array 335
Nel caso, invece, in cui DIM venga specificato, si ha:
• Se ARRAY ha rango uno, il valore della funzione è pari a SUM(ARRAY[,MASK]).
• L’array risultante ha rango pari a quello di ARRAY diminuito di un’unità.
Esempi:
SUM((/2,3,4/)) restituisce valore9(tale essendo il risultato della somma: 2+3+4).
SUM((/2,3,4/),DIM=1) restituisce, chiaramente, lo stesso valore.
Sia a l’array:
1 4 7 2
2 3 5 1
SUM(a,DIM=1) restituisce il valore (/3,7,12,3/), che è la somma degli elementi di
ciascuna colonna (ossia 1+2, nella prima colonna, 4+3 nella seconda colonna, e così
via).
SUM(a,DIM=2) fornisce come risultato l’array (/14,11/), che è la coppia formata
dalla somma degli elementi di ciascuna riga (ossia 1+2+7+2, nella prima riga,
2+3+5+1, nella seconda riga).
6.6.2 Procedure di interrogazione
ALLOCATED(ARRAY)
Indica se l’allocatable array ARRAY risulti o meno allocato. Il risultato è uno scalare di tipo
LOGICAL avente valore .TRUE. se lo stato di allocazione di ARRAY è correntemente allocato,
.FALSE. se esso è non allocato oppure è indefinito.
Un esempio di utilizzo della funzione intrinseca ALLOCATE è fornito dal seguente frammento
di programma:
REAL, ALLOCATABLE, DIMENSION (:,:,:) :: arr
...
PRINT*, ALLOCATED(arr) ! stampa il valore .FALSE.
ALLOCATE(arr(12,15,20))
PRINT*, ALLOCATED(arr) ! stampa il valore .TRUE.
LBOUND(ARRAY[,DIM])
Restituisce un array monodimensionale formato dai limiti inferiori di tutte le dimensioni di
ARRAY, oppure, se DIM è presente, uno scalare avente come valore il limite inferiore relativo alla
dimensione specificata. In entrambi i casi il risultato è di tipo INTEGER.