Il Linguaggio Fortran 90/95

258 Unità di Programma
CALL do_math(num1,num2,reciproc,add_nums,reciproc_ans)
! Ora la variabile reciproc_ans contiene la somma dei
! reciproci di num1 e di num2
CALL do_math(num1,num2,SIN,add_nums,sin_ans)
! Ora la variabile reciproc_ans contiene la somma dei
! "seni" di num1 e di num2
PRINT*, reciproc_ans, sin_ans
END PROGRAM proc_pass
5.9 Funzioni array
Una function può fornire non soltanto un valore scalare ma anche un puntatore, un array o
una variabile di un tipo derivato. Per le funzioni che restituiscono un array le dimensioni
del risultato possono essere determinate allo stesso modo con cui viene dichiarato un array
automatico, come si avrà modo di capire nel prossimo capitolo.
La seguenti funzioni rappresentano semplici esempio di array valued function:
FUNCTION prod(a,b)
IMPLICIT NONE
REAL, DIMENSION(:), INTENT(IN) :: a, b
REAL DIMENSION(SIZE(a)) :: prod
prod = a * b
END FUNCTION prod
FUNCTION Partial_sum(p)
IMPLICIT NONE
REAL :: p(:) ! Assumed-shape dummy array
REAL :: Partial_sum(size(p)) !
INTEGER :: k
Partial_sum = (/(sum(p(1:k),k=1,size(p))/)
! Si sarebbe potuto ottenere lo stesso risultato
! anche con il seguente ciclo for:
! DO k=1,size(P)
! Partial_sum(k) = sum(P(1:k))
! END DO
! tuttavia il DO-loop specifica un insieme di operazioni
! sequenziali invece di operazioni parallele
RETURN
END FUNCTION Partial_sum
Il seguente programma mostra, in più, anche un esempio di programma principale che utilizza
di funzione array: