g_wd Function

private pure function g_wd(x)

Function used in the computation of the degenerate specific internal energy

FT 19.12.2022

Arguments

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

Return Value doubleprecision


Calls

proc~~g_wd~~CallsGraph proc~g_wd g_wd proc~f_wd f_wd proc~g_wd->proc~f_wd

Called by

proc~~g_wd~~CalledByGraph proc~g_wd g_wd proc~u_wd u_wd proc~u_wd->proc~g_wd proc~test_wd_eos_cgs test_wd_eos_cgs proc~test_wd_eos_cgs->proc~u_wd

Contents

Source Code

g_wd

Source Code

  DOUBLE PRECISION PURE FUNCTION g_wd(x)

    !********************************************
    !
    !# Function used in the computation of
    !  the degenerate specific internal energy
    !
    !  FT 19.12.2022
    !
    !********************************************

    IMPLICIT NONE

    DOUBLE PRECISION, INTENT(IN):: x

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

  END FUNCTION g_wd