nonlin_equation_solver.f90

! nonlin_equation_solver.f90
 
submodule(nonlin_core) nonlin_equation_solver
    implicit none
contains
! ------------------------------------------------------------------------------
    pure module function es_get_max_eval(this) result(n)
        class(equation_solver), intent(in) :: this
        integer(int32) :: n
        n = this%m_maxEval
    end function
 
! --------------------
    module subroutine es_set_max_eval(this, n)
        class(equation_solver), intent(inout) :: this
        integer(int32), intent(in) :: n
        this%m_maxEval = n
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function es_get_fcn_tol(this) result(x)
        class(equation_solver), intent(in) :: this
        real(real64) :: x
        x = this%m_fcnTol
    end function
 
! --------------------
    module subroutine es_set_fcn_tol(this, x)
        class(equation_solver), intent(inout) :: this
        real(real64), intent(in) :: x
        this%m_fcnTol = x
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function es_get_var_tol(this) result(x)
        class(equation_solver), intent(in) :: this
        real(real64) :: x
        x = this%m_xtol
    end function
 
! --------------------
    module subroutine es_set_var_tol(this, x)
        class(equation_solver), intent(inout) :: this
        real(real64), intent(in) :: x
        this%m_xtol = x
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function es_get_grad_tol(this) result(x)
        class(equation_solver), intent(in) :: this
        real(real64) :: x
        x = this%m_gtol
    end function
 
! --------------------
    module subroutine es_set_grad_tol(this, x)
        class(equation_solver), intent(inout) :: this
        real(real64), intent(in) :: x
        this%m_gtol = x
    end subroutine
 
! ------------------------------------------------------------------------------
    pure module function es_get_print_status(this) result(x)
        class(equation_solver), intent(in) :: this
        logical :: x
        x = this%m_printStatus
    end function
 
! --------------------
    module subroutine es_set_print_status(this, x)
        class(equation_solver), intent(inout) :: this
        logical, intent(in) :: x
        this%m_printStatus = x
    end subroutine
end submodule