Il Linguaggio Fortran 90/95

5.18 Visibilità 309
FUNCTION f(x)
IMPLICIT NONE
REAL :: f
REAL,INTENT(IN) :: x
END FUNCTION f
FUNCTION df(x)
IMPLICIT NONE
REAL df
REAL,INTENT(IN) :: x
END FUNCTION df
END INTERFACE
! Variabili locali
REAL :: fGuess, dfGuess ! f(guess) e df(guess) rispettivamente
REAL :: newGuess
! *** Sezione esecutiva ***
! Calcola df(guess) e f(guess)
fGuess = f(guess); dfGuess = df(guess)
! Check su f(c). Il punto c e’ radice se f(c) e’ minore della tolleranza.
! NB: Qualora l’errore di round-off eccedesse la tolleranza, l’esame di
! questa condizione determinerebbe l’insorgere di un loop infinito
IF (ABS(fGuess)