Il Linguaggio Fortran 90/95

5.18 Visibilità 311
FUNCTION df(x)
! Derivata della funzione esterna
IMPLICIT NONE
REAL :: df
REAL,INTENT(IN) :: x
df = 1.0+exp(x)
END FUNCTION df
Per completezza si riporta anche un esempio di impiego del programma:
C:\MYPROG>test_root
Inserisci gli estremi sinistro e destro dell’intervallo:
0.5 1.0
Metodo di Newton - La radice di f vale: -0.5671433
Metodo delle secanti - La radice di f vale: -0.5671433