Il Linguaggio Fortran 90/95

380 Puntatori
SUBROUTINE sub(p)
REAL, DIMENSION(:,:), POINTER :: p
...
DEALLOCATE(p)
...
END SUBROUTINE sub
In questo esempio, il puntatore punt è l’argomento dummy di una procedura esterna per cui
l’introduzione di un interface block risulta necessaria allo scopo di fornire una interfaccia esplicita
nell’unità di programma chiamante. Un’alternativa, ovviamente, poteva essere quella di
inserire la procedura sub in un modulo oppure introdurla come procedura interna in modo da
fornire una interfaccia esplicita di default. Si osservi, in sintesi, cosa fa il frammento di codice
precedente. Il programma chiamante alloca dinamicamente una regione di memoria atta ad
ospitare 100×100 valori reali e ne indica il puntatore punt come un alias; quindi invoca la procedura
esterna sub. Questa chiamata di procedura associa il parametro formale p al parametro
attuale punt; quando sub dealloca p anche l’argomento attuale punt viene deallocato (e con
esso l’area di memoria a cui è associato).
Questo modo di operare con i puntatori è più flessibile rispetto all’uso degli allocatable
array. Questi ultimi, infatti, possono essere allocati e deallocati soltanto nella stessa unità di
programma, ed inoltre possono essere usati come parametri formali in chiamate di procedura
soltanto nella loro forma allocata. Pertanto, se l’allocazione deve avvenire all’interno della
procedura chiamata si dovrà necessariamente far ricorso ai puntatori, come esemplificato nel
seguente programma:
PROGRAM pdemo
IMPLICIT NONE
REAL, POINTER :: parray(:)
OPEN(UNIT=9, FILE=’mydata’, STATUS=’old’)
CALL readin(9,parray)
WRITE(*,*)’array of ’, SIZE(array), ’ points:’
WRITE(*,*) parray
DEALLOCATE(parray)
STOP
CONTAINS
SUBROUTINE readin(iounit,z)
INTEGER, INTENT(IN) :: iounit
REAL, POINTER :: z(:) ! NB: e’ vietato l’uso di INTENT
INTEGER :: npoints
READ(iounit) npoints ! legge le dimensioni
ALLOCATE(z(1:npoints)) ! alloca lo spazio
READ(iounit) z ! legge l’intero array
END SUBROUTINE readin
END PROGRAM pdemo