Il Linguaggio Fortran 90/95

372 Puntatori
CALL setm(2,2,tmp(1:2,1:2), A)
CALL setm(2,4,tmp, B)
PRINT*, ’matrice A’
CALL printm(A)
PRINT*, ’matrice B’
CALL printm(B)
C = A*B + 2.0 * B
PRINT*, "matrice AB + 2B"
CALL printm(C)
CALL remove(C)
END PROGRAM test
Si noti che mediante l’istruzione DEALLOCATE si può deallocare soltanto la memoria creata
con una istruzioneALLOCATE: un qualsiasi tentativo, infatti, di applicare l’istruzioneDEALLOCATE
ad un puntatore associato ad un target non creato con una istruzione ALLOCATE genererà un
errore in fase di esecuzione che interromperà il programma, a meno che non sia stata usata la
clausola STAT=.
Data la perfetta analogia formale tra le istruzioni di allocazione e deallocazione di un puntatore
e quelle valide per un allocatable array è chiaro che, laddove risulti appropriato, puntatori
ed array allocabili possono essere allocati e deallocati nella medesima istruzione.
A questo punto appare doveroso mettere a confronto puntatori ed array allocabili relativamente
alla loro funzione di allocare memoria in modo dinamico, allo scopo di comprendere
quando convenga utilizzare gli uni e quando gli altri. Ebbene, del tutto in generale si può
asserire che la scelta dovrebbe cadere sugli array allocabili quando a tutto il resto si vogliano
anteporre le caratteristiche di semplicità di impiego e di efficienza del codice generato; sui puntatori
quando, al contrario, si vogliano preferire la versatilità dell’utilizzo e la ricchezza della
gamma di impiego. Quanto asserito appare ben supportato dalle seguenti considerazioni:
• L’impiego di array allocabili è limitato dal fatto che essi non possono essere utilizzati
come componenti di strutture. Quindi una espressione del tipo:
TYPE stack
INTEGER :: index
INTEGER, ALLOCATABLE, DIMENSION(:) :: content ! Errore!!!
END TYPE stack
è completamente sbagliata. Nel caso in cu fosse necessario realizzare strutture dati
dinamiche si dovrà ricorrere a puntatori:
TYPE stack
INTEGER :: index
INTEGER, POINTER, DIMENSION(:) :: content
END TYPE stack
Su questo argomento, comunque, si tornerà alla fine del capitolo.