Il Linguaggio Fortran 90/95

244 Unità di Programma
FUNCTION f(x)
! Funzione di cui si deve valutare la radice
IMPLICIT NONE
INTEGER, PARAMETER :: dp=KIND(1D0)
REAL(KIND=dp) , INTENT(IN) :: x
REAL(KIND=dp) :: f
f = ((x-2.0_dp)*x+1.0_dp)*x-3.0_dp
RETURN
END FUNCTION f
FUNCTION df(x)
! Derivata della funzione argomento
IMPLICIT NONE
INTEGER, PARAMETER :: dp=KIND(1D0)
REAL(KIND=dp), INTENT(IN) :: x
REAL(KIND=dp) :: df
df = (3.0_dp*x - 4.0_dp)*x + 1.0_dp
RETURN
END FUNCTION df
L’output del programma così sviluppato è:
n x f(x)
==============================================
0 4.0000000000000000 32.9999999999999982
1 3.0000000000000000 9.0000000000000000
2 2.4375000000000000 2.0368652343750000
3 2.2130327163151095 0.2563633850614173
4 2.1755549387214880 0.0064633614888132
5 2.1745601006664458 0.0000044790680502
6 2.1745594102933125 0.0000000000021574
Radice della funzione: 2.1745594
Valore della funzione: 0.0000000
5.8 Argomenti delle Procedure
5.8.1 L’attributo INTENT
In Fortran è possibile (oltre ad essere buona regola di programmazione) specificare in che modo
il parametro formale verrà adoperato nella procedura. In altre parole è possibile ”marcare” un
parametro formale come parametro di ingresso, di uscita o di ingresso/uscita. Ciò può essere
fatto a mezzo dell’attributo INTENT, il quale può assumere una delle seguenti forme: