Il Linguaggio Fortran 90/95

384 Puntatori
INTEGER, POINTER :: ptr
IF (a>b) THEN
ptr => a
ELSE
ptr => b
END IF
END FUNCTION ptr
7.10 Array di Puntatori
Dal momento che un puntatore è solo un attributo e non un tipo di dati, non è possibile dichiarare
direttamente un array di puntatori sicché, ad esempio, la seguente dichiarazione non è valida e
provoca un errore di compilazione:
REAL, DIMENSION(10), POINTER :: p
Si può, tuttavia, aggirare l’ostacolo definendo un array di oggetti di tipo derivato aventi come
componenti soltanto puntatori: infatti, sebbene in Fortran non sia lecito definire un array di
puntatori, è, invece, perfettamente lecito definire un tipo di dati derivato contenente solo un
puntatore e creare, quindi, un array di tale tipo. Si può in tal modo coniugare l’efficienza
connessa all’uso dei puntatori con le capacità di ”sintesi” proprie degli array e degli oggetti di
tipo derivato. Il programma seguente fornisce un esempio di quanto detto:
PROGRAM array_di_punt
IMPLICIT NONE
INTEGER :: i
TYPE :: punt_vet
REAL, DIMENSION(:), POINTER :: punt
END TYPE punt_vet
TYPE(punt_vet), DIMENSION(3) :: pt
REAL, DIMENSION(5), TARGET :: a1=(/(i, i=1,5)/)
REAL, DIMENSION(5), TARGET :: a2=(/(i, i=2,10,2)/)
REAL, DIMENSION(5), TARGET :: a3=(/(i, i =-1,11,3)/)
pt(1)%punt => a1
pt(2)%punt => a2
pt(3)%punt => a3
WRITE(*,*) pt(3)%punt
END PROGRAM
Quando viene eseguito, il programma produce, come è ovvio, la stampa a video dell’array a3,
sicché stamperà il record:
-1 2 5 8 11
Un esempio leggermente diverso potrebbe essere questo: