f_wd Function

private pure function f_wd(x)

Function used in the computation of the degenerate pressure

FT 19.12.2022

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: x

Return Value doubleprecision


Called by

proc~~f_wd~~CalledByGraph proc~f_wd f_wd proc~g_wd g_wd proc~g_wd->proc~f_wd proc~pr_wd pr_wd proc~pr_wd->proc~f_wd proc~pr_wd_cgs pr_wd_cgs proc~pr_wd_cgs->proc~f_wd proc~rho_wd rho_wd proc~rho_wd->proc~pr_wd proc~test_wd_eos_cgs test_wd_eos_cgs proc~test_wd_eos_cgs->proc~pr_wd proc~test_wd_eos_cgs->proc~rho_wd proc~u_wd u_wd proc~test_wd_eos_cgs->proc~u_wd proc~u_wd->proc~g_wd

Contents

Source Code

f_wd

Source Code

  DOUBLE PRECISION PURE FUNCTION f_wd(x)

    !********************************************
    !
    !# Function used in the computation of
    !  the degenerate pressure
    !
    !  FT 19.12.2022
    !
    !********************************************

    IMPLICIT NONE

    DOUBLE PRECISION, INTENT(IN):: x

    f_wd= x*(2.D0*x**2 - 3.D0)*SQRT(x**2 + 1.D0) + 3.D0*ASINH(x)

  END FUNCTION f_wd