funct_T_from_roP Function

private function funct_T_from_roP(me, x)

Type Bound

T_from_roP_obj_t

Arguments

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

x is T

Return Value real(kind=dp)


Calls

proc~~funct_t_from_rop~~CallsGraph proc~funct_t_from_rop T_from_roP_obj_t%funct_T_from_roP proc~eos_pt_terms eos_pT_terms proc~funct_t_from_rop->proc~eos_pt_terms proc~fill_f_terms fill_f_terms proc~eos_pt_terms->proc~fill_f_terms proc~fill_g_dreg_terms fill_g_Dreg_terms proc~eos_pt_terms->proc~fill_g_dreg_terms

Source Code

function funct_T_from_roP(me,x)
    class(T_from_roP_obj_t), intent(in) :: me
    real(dp),                intent(in) :: x   !! x is T
    real(dp) :: funct_T_from_roP
    type(ThArrays_t) :: ThAr

    call eos_pT_terms(me%ro, x, ThAr)
    funct_T_from_roP = me%p - me%ro*R_cte_gaz_Arp*x - sum(ThAr%f*ThAr%g)
end function funct_T_from_roP