set_options Subroutine

private impure subroutine set_options(this, nl_method, lin_method, maxit, TolFun, alpha0, c1, c2, nmp, fdm_method, fdm_tol, cs_tol, stepsize, verbosity)

Type Bound

nlsolver

Arguments

Type IntentOptional Attributes Name
class(nlsolver), intent(inout) :: this
character(len=*), intent(in), optional :: nl_method
character(len=*), intent(in), optional :: lin_method
integer, intent(in), optional :: maxit
real(kind=rk), intent(in), optional :: TolFun
real(kind=rk), intent(in), optional :: alpha0
real(kind=rk), intent(in), optional :: c1
real(kind=rk), intent(in), optional :: c2
integer, intent(in), optional :: nmp
character(len=*), intent(in), optional :: fdm_method
real(kind=rk), intent(in), optional :: fdm_tol
real(kind=rk), intent(in), optional :: cs_tol
character(len=*), intent(in), optional :: stepsize
integer, intent(in), optional :: verbosity

Called by

proc~~set_options~~CalledByGraph proc~set_options forsolver::nlsolver%set_options program~test_solver10 test_solver10 program~test_solver10->proc~set_options program~test_solver11 test_solver11 program~test_solver11->proc~set_options program~test_solver12 test_solver12 program~test_solver12->proc~set_options program~test_solver13 test_solver13 program~test_solver13->proc~set_options program~test_solver14 test_solver14 program~test_solver14->proc~set_options program~test_solver3 test_solver3 program~test_solver3->proc~set_options program~test_solver4 test_solver4 program~test_solver4->proc~set_options program~test_solver5 test_solver5 program~test_solver5->proc~set_options program~test_solver6 test_solver6 program~test_solver6->proc~set_options program~test_solver7 test_solver7 program~test_solver7->proc~set_options program~test_solver8 test_solver8 program~test_solver8->proc~set_options program~test_solver9 test_solver9 program~test_solver9->proc~set_options

Source Code

   impure subroutine set_options(this,&
      nl_method, lin_method, maxit, TolFun, alpha0, c1, c2, nmp, fdm_method, fdm_tol, cs_tol, stepsize, verbosity)
      class(nlsolver), intent(inout)        :: this
      character(*),    intent(in), optional :: nl_method
      character(*),    intent(in), optional :: lin_method
      character(*),    intent(in), optional :: stepsize
      character(*),    intent(in), optional :: fdm_method
      real(rk),        intent(in), optional :: TolFun
      real(rk),        intent(in), optional :: fdm_tol
      real(rk),        intent(in), optional :: cs_tol
      integer,         intent(in), optional :: maxit
      real(rk),        intent(in), optional :: alpha0
      real(rk),        intent(in), optional :: c1
      real(rk),        intent(in), optional :: c2
      integer,         intent(in), optional :: nmp
      integer,         intent(in), optional :: verbosity

      if (present(nl_method)) then
         this%nl_method = nl_method
      else
         this%nl_method = 'newton'
      end if

      if (present(lin_method)) then
         this%lin_method  = lin_method
      else
         this%lin_method  = 'gels'
      end if

      if (present(fdm_method)) then
         this%fdm_method  = fdm_method
      else
         this%fdm_method  = 'forward'
      end if

      if (present(maxit)) then
         this%maxit  = maxit
      else
         this%maxit  = 100
      end if

      if (present(TolFun)) then
         this%TolFun  = TolFun
      else
         this%TolFun  = 1e-4_rk
      end if

      if (present(fdm_tol)) then
         this%fdm_tol  = fdm_tol
      else
         this%fdm_tol  = 1e-4_rk
      end if

      if (present(cs_tol)) then
         this%cs_tol  = cs_tol
      else
         this%cs_tol  = 1e-100_rk
      end if

      if (present(nmp)) then
         this%nmp  = nmp
      else
         this%nmp  = 2
      end if

      if (present(verbosity)) then
         this%verbosity  = verbosity
      else
         this%verbosity  = 1
      end if

      ! if (present(stepsize))   this%stepsize   = stepsize
      ! if (present(alpha0))     this%alpha0     = alpha0
      ! if (present(c1))         this%c1         = c1
      ! if (present(c2))         this%c2         = c2

   end subroutine set_options