Il Linguaggio Fortran 90/95

5.9 Funzioni array 259
PROGRAM test_array_func
IMPLICIT NONE
INTEGER, PARAMETER :: m=6
INTEGER, DIMENSION (m,m) :: im1, im2
... ! assegnazione di m
im2 = array_func(im1,1)
...
CONTAINS
FUNCTION array_func(x,cost)
INTEGER, INTENT(IN) :: x(:,:)
INTEGER, INTENT(IN) :: cost
INTEGER :: array_func(SIZE(x,1),SIZE(x,2))
array_func(:,:) = cost*x(:,:)
END FUNCTION array_func
END PROGRAM test_array_func
Certamente in questi esempi si sarebbe potuto dichiarare il risultato anche con dimensioni fisse
(ossia come un explicit shape array) ma questo approccio sarebbe stato molto meno flessibile.
Si noti che per default le funzioni sono sempre pensate produrre un risultato scalare per
cui in tutti gli altri casi deve essere fornita una interfaccia esplicita nell’unità di programma
chiamante. Questo naturalmente è vero non soltanto per le funzioni che restituiscono un array
ma anche per tutte quelle funzioni che restituiscono puntatori oppure oggetti di tipo derivato.
Mentre per le procedure interne o di modulo non sussiste alcun problema, per le procedure
esterne deve essere previsto un opportuno interface block. Di seguito viene riportato lo stesso
esempio di prima, questa volta però con l’ausilio di una funzione esterna:
PROGRAM test_array_func
IMPLICIT NONE
INTERFACE ! obbligatorio
FUNCTION array_func(ima,scal)
INTEGER, INTENT(IN) :: ima(:,:)
INTEGER, INTENT(IN) :: scal
INTEGER, DIMENSION(SIZE(ima,1),SIZE(ima,2)) :: array_func
END FUNCTION array_func
END INTERFACE
INTEGER, PARAMETER :: m = 6
INTEGER, DIMENSION(m,m) :: im1, im2
...
im2 = array_func(im1,1)
...
END PROGRAM test_array_func
FUNCTION array_func(x,cost)
IMPLICIT NONE