Il Linguaggio Fortran 90/95

374 Puntatori
PRINT*, q ! ...stampati i dati della memoria dinamica
DEALLOCATE(q)
PRINT*, q ! Operazione non valida!!!
END IF
END PROGRAM IO_con_puntatori
Come è evidente, la prima istruzione di scrittura impone il dereferencing del puntatorepper cui
produce la stampa del vettorearr. Le successive operazioni di lettura e scrittura diqfunzionano
allo stesso modo per cui il programma dapprima attende la lettura di cinque valori reali da
introdurre nelle locazioni della memoria dinamica precedentemente allocata e successivamente
ne produce la stampa. L’ultima istruzione di output, relativa al puntatore q, collocata subito
dopo la deallocazione della memoria a cui esso puntava, non è valida per cui produce un
messaggio di errore in fase di esecuzione ed il conseguente arresto del programma.
7.6 Un uso efficiente dei puntatori
Il seguente esempio mostra come un uso particolarmente semplice dei puntatori possa aumentare
l’efficienza di un programma. Si supponga di dover applicare una procedura di swap a due
array reali bidimensionali di 100×100 elementi. La procedura tradizionale che normalmente si
applicherebbe in questo caso è la seguente:
REAL, DIMENSION(100,100) :: array1, array2, app
...
app = array1
array1 = array2
array2 = app
Questo frammento di codice è molto semplice ma scarsamente efficiente visto che comporta lo
spostamento fisico di 10000 valori reali in ognuna delle tre precedenti istruzioni di assegnazione.
La stessa operazione può essere condotta operando con i puntatori ai due oggetti da invertire,
scambiando in tal modo soltanto gli indirizzi dei due array target e non gli interi array:
REAL, DIMENSION(100,100), TARGET :: array1, array2
REAL, DIMENSION(:,:), POINTER :: p1, p2, app
...
p1 => array1
p2 => array2
...
app => p1
p1 => p2
p2 => app
L’unico prezzo da pagare è il fatto che ogni riferimento agli array dovrà avvenire a mezzo degli
identificatori dei loro puntatori (in altre parole, ogni volta che bisognerà riferirsi, ad esempio,