Il Linguaggio Fortran 90/95

322 Array Processing
INTEGER :: station_number
CHARACTER(LEN=several) :: name
REAL, DIMENSION(length) :: date
END TYPE station
TYPE(station), ALLOCATABLE, DIMENSION(:) :: traverse
TYPE(station) :: bench_mark
INTEGER :: loop, n_stations
! start
READ(*,*) n_stations
ALLOCATE(traverse(n_stations))
DO loop = 1, n_stations
READ(*,*) traverse(loop) ! Legge tutti i componenti di una struttura
END DO
bench_mark = traverse(1) ! Assegnazione di un’intera struttura
WRITE(*,*) bench_mark ! Stampa tutti i componenti di una struttura
STOP
END PROGRAM strutture
Un array correntemente allocato può essere deallocato mediante l’istruzione DEALLOCATE che
ha lo scopo di liberare la memoria precedentemente riservata all’array rendendola disponibile
per altre applicazioni. La sintassi dell’istruzione di deallocazione è la seguente:
DEALLOCATE(lista_di_array [, STAT=variabile_di_stato])
dove il significato e l’uso della clausola STAT=variabile_di_stato sono identici a quelli validi
per l’istruzione di allocazione. E’ importante notare che una volta che un array sia stato
deallocato i valori in esso immagazzinati sono perduti per sempre.
L’uso combinato delle istruzioni ALLOCATE e DEALLOCATE consente di lavorare con un array
allocabile di dimensioni continuamente variabili, come ben descritto dal seguente esempio:
REAL, ALLOCATABLE, DIMENSION(:) :: array_variabile
INTEGER :: i, n, alloc_stat, dealloc_stat
...
READ(*,*) n
DO i=1,n
ALLOCATE(array_variabile(-i:i),STAT=alloc_stat)
IF(alloc_stat/=0) THEN
PRINT*, "Spazio insufficiente per allocare l’array quando i = ", i
STOP
END IF
... ! Istruzioni che coinvolgono array_variabile
DEALLOCATE(array_variabile,STAT=dealloc_stat)
IF(dealloc_stat/=0) THEN
PRINT*, "Errore in fase di deallocazione"
STOP