Il Linguaggio Fortran 90/95

368 Puntatori
...
NULLIFY(pt1) ! pt1 deassociato
test = ASSOCIATED(pt1) ! .F. (pt1 è stato deassociato)
test = ASSOCIATED(pt1,pt2) ! .F. (pt1 non è associato a pt2)
test = ASSOCIATED(pt2,TARGET=t2) ! .T. (pt2 è associato a t2)
test = ASSOCIATED(pt2,TARGET=t1) ! .F. (pt2 non è associato a t1)
NULLIFY(pt1,pt2) ! pt1 e pt2 deassociati
7.4 Allocazione dinamica della memoria con i puntatori
Oltre che ad una variabile dichiarata con attributo TARGET o POINTER, un puntatore può anche
essere associato a blocchi di memoria dinamica. Questa memoria viene allocata attraverso
l’istruzione ALLOCATE la quale crea una variabile o un array (di dimensioni specificate) senza
nome e avente il tipo ed il rango del puntatore. Dualmente, l’istruzione DEALLOCATE ha lo scopo
di rimuovere la precedente allocazione.
La forma generale delle istruzioni ALLOCATE e DEALLOCATE è identica a quelle dell corrispondenti
istruzioni valide per gli allocatable array:
ALLOCATE(puntatore(dim) [, STAT=stato])
DEALLOCATE(puntatore [, STAT=stato])
in cui puntatore è il nome di un puntatore alla variabile o all’array che si sta creando, dim
è la specificazione delle dimensioni nel caso in cui l’oggetto che si sta creando sia un array, e
stato è una variabile intera avente valore zero in caso di operazione terminata con successo,
positivo (e dipendente dal processore) in caso contrario. La clausola STAT= è opzionale ma il
suo utilizzo è sempre da preferirsi al fine di evitare un eventuale arresto del programma in caso
di errore. Un esempio servirà a chiarire le definizioni precedenti:
REAL, POINTER :: pv, pa(:)
INTEGER :: stato, n=100
...
ALLOCATE(pv,pa(n),STAT=stato)
IF (stato==0) THEN
...
END IF
...
DEALLOCATE(pv,pa,STAT=stato)
IF (stato==0) THEN
...
END IF
Nell’esempio in esame, la variabile pv punta ad un’area di memoria dinamica che può contenere
un singolo valore reale, mentre la variabile pa punta ad un blocco di memoria dinamica di
dimensioni tali da poter contenere 100 valori reali. Quando la suddetta area di memoria non