hug_brent_f Function

public function hug_brent_f(me, x) result(H)

Type Bound

hug_brent_t

Arguments

Type IntentOptional Attributes Name
class(hug_brent_t), intent(in) :: me
real(kind=dp), intent(in) :: x

Return Value real(kind=dp)


Calls

proc~~hug_brent_f~~CallsGraph proc~hug_brent_f hug_brent_t%hug_brent_f proc~droeint_drop droeint_droP proc~hug_brent_f->proc~droeint_drop proc~eos_terms eos_terms proc~droeint_drop->proc~eos_terms proc~t_rop T_roP proc~droeint_drop->proc~t_rop proc~eos_e_terms eos_e_terms proc~eos_terms->proc~eos_e_terms proc~fill_f_terms fill_f_terms proc~eos_terms->proc~fill_f_terms proc~brent brent proc~t_rop->proc~brent proc~t_rop->proc~fill_f_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~t_rop->proc~fill_g_dreg_terms f f proc~brent->f proc~set_error set_error proc~brent->proc~set_error proc~zero zero proc~brent->proc~zero proc~fill_e_tpart fill_e_Tpart proc~eos_e_terms->proc~fill_e_tpart proc~fill_ff_terms fill_ff_terms proc~eos_e_terms->proc~fill_ff_terms proc~fill_e_tpart->proc~fill_g_dreg_terms proc~zero->f

Source Code

function hug_brent_f(me, x) result(H)
  class(hug_brent_t), intent(in) :: me
  real(dp),           intent(in) :: x
  real(dp) :: H, e_v, ev_v, ep_v, droeint_dro
  droeint_dro = droeint_droP(1.0_dp/x, me%Pstar, e=e_v, dedv=ev_v, dedp=ep_v)
  H = (me%Pstar + me%p_LR)*(x - me%v_LR) + 2.0_dp*(e_v - me%e_LR)
end function hug_brent_f