newton Subroutine

public subroutine newton(sub, x, settings, result)

Arguments

Type IntentOptional Attributes Name
procedure(to_solve) :: sub
real(kind=pr), intent(inout) :: x(:)
type(newton_settings), intent(in), optional :: settings
type(newton_result), intent(out), optional :: result

Calls

proc~~newton~~CallsGraph proc~newton newton proc~armijo_backtrack armijo_backtrack proc~newton->proc~armijo_backtrack proc~has_nan_inf has_nan_inf proc~newton->proc~has_nan_inf proc~jacobian_scale jacobian_scale proc~newton->proc~jacobian_scale proc~norm_inf norm_inf proc~newton->proc~norm_inf proc~pack_result pack_result proc~newton->proc~pack_result proc~print_header print_header proc~newton->proc~print_header proc~print_summary print_summary proc~newton->proc~print_summary proc~solve_lm solve_lm proc~newton->proc~solve_lm proc~armijo_backtrack->proc~has_nan_inf proc~armijo_backtrack->proc~norm_inf proc~newton_status_msg newton_status_msg proc~print_summary->proc~newton_status_msg dgecon dgecon proc~solve_lm->dgecon dgetrf dgetrf proc~solve_lm->dgetrf dgetrs dgetrs proc~solve_lm->dgetrs proc~add_diagonal add_diagonal proc~solve_lm->proc~add_diagonal proc~mat1norm mat1norm proc~solve_lm->proc~mat1norm

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private, allocatable :: F(:)
real(kind=pr), private, allocatable :: F_new(:)
real(kind=pr), private, allocatable :: J(:,:)
real(kind=pr), private, allocatable :: J_new(:,:)
real(kind=pr), private, allocatable :: X_old(:)
real(kind=pr), private :: cond_est
logical, private :: converged
real(kind=pr), private, allocatable :: dX(:)
real(kind=pr), private :: dx_norm
real(kind=pr), private :: dx_norm_prev
real(kind=pr), private :: f_norm
real(kind=pr), private :: f_norm_new
real(kind=pr), private, allocatable :: hist_buf(:)
integer, private :: its
real(kind=pr), private :: jscale
real(kind=pr), private :: lambda
logical, private :: ls_failed
integer, private :: n
type(newton_result), private :: res
type(newton_settings), private :: s
logical, private :: small_step
integer, private :: stag_count
logical, private :: stagnated
real(kind=pr), private :: t