Il Linguaggio Fortran 90/95

382 Puntatori
7.9 Funzioni Puntatore
Anche il risultato di una funzione può avere l’attributo POINTER, la qual cosa può tornare
molto utile, ad esempio, in quei casi in cui le dimensioni del risultato non sono note a priori ma
dipendono anch’stesse dai calcoli eseguiti all’interno della funzione stessa. In questi casi risulta
necessario l’utilizzo della parola chiave RESULT nella definizione della funzione ed è inoltre la
variabile risultato a dover essere definita con l’attributo POINTER. Si deve, infine, rispettare
il consueto vincolo dell’interfaccia esplicita nell’unità chiamante. Il risultato della funzione
puntatore può essere normalmente usato in una istruzione di assegnazione di puntatore purché
associato ad un target valido. Di seguito si riporta un esempio di funzione puntatore ed un
frammento di programma che la richiama.
MODULE mio_mod
IMPLICIT NONE
CONTAINS
FUNCTION even_pointer(a) RESULT(p)
REAL, DIMENSION(:), POINTER :: a
REAL, DIMENSION(:), POINTER :: p
p => a(2::2)
END FUNCTION even_pointer
END MODULE mio_mod
PROGRAM pointer_function
USE mio_mod
IMPLICIT NONE
REAL, DIMENSION(15), TARGET :: a
REAL, DIMENSION(:), POINTER :: pa, p, q, r
...
pa => a
p => even_pointer(pa) ! p punta agli elementi pari di a
q => even_pointer(p) ! q punta agli elementi pari di p
r => even_pointer(q) ! r punta agli elementi pari di q
...
END PROGRAM pointer_function
In breve, il programma pointer_function usa la funzione even_pointer dapprima per far
sì che p punti agli elementi pari di pa, ossia per associare p al vettore formato dagli elementi
a(2), a(4), a(6), a(8), a(10), a(12), a(14). Poi, il puntatore q viene associato agli elementi
pari dell’array puntato da p (che pertanto viene deriferito) sicché q punterà all’array formato
da a(4), a(8) e a(12). Infine, r viene puntato agli elementi pari del target di q, ossia viene
associato al solo a(8).
Come è noto, oltre alle procedure di modulo, anche le procedure interne realizzano automaticamente
una interfaccia esplicita all’interno della procedura chiamante. Pertanto anche il
seguente programma è perfettamente valido da un punto di vista sintattico.