Il Linguaggio Fortran 90/95

7.9 Funzioni Puntatore 383
PROGRAM zip
IMPLICIT NONE
INTEGER, DIMENSION(10) :: x=(/1, 0, 4, 2, 0, 3, 0, 4, 3, 0/)
WRITE(*,*) x
WRITE(*,*) compact(x)
CONTAINS
FUNCTION compact(x)
! Procedura per rimuovere gli zeri dal vettore x
IMPLICIT NONE
INTEGER, POINTER :: compact(:)
INTEGER x(:)
INTEGER :: n
n = COUNT(x/=0) ! Conta i valori di x diversi da zero
ALLOCATE(compact(n)) ! Alloca un vettore di n elementi
WHERE(x/=0) compact = x ! Copia i valori di x diversi da zero
! nel vettore compact
END FUNCTION compact
END PROGRAM zip
Di seguito si riporta un ulteriore esempio, questa volta di funzione esterna puntatore:
PROGRAM main
IMPLICIT NONE
REAL :: x
INTEGER, TARGET :: a, b
INTEGER, POINTER :: largest
INTERFACE
FUNCTION ptr(a,b)
IMPLICIT NONE
INTEGER, TARGET, INTENT(IN) :: a, b
INTEGER, POINTER :: ptr
END FUNCTION ptr
END INTERFACE
CALL RANDOM_NUMBER(x)
a = 1.0E+04*x
CALL RANDOM_NUMBER(x)
b = 1.0E+04*x
largest => ptr(a,b)
PRINT*, "L’ elemento massimo fra ",a, " e ",b," e’: ", largest
END PROGRAM main
FUNCTION ptr(a,b)
IMPLICIT NONE
INTEGER, TARGET, INTENT(IN) :: a, b