pr_wd_cgs Function

private pure function pr_wd_cgs(rho)

Degenerate pressure as a function of density, all in CGS units

See Benz W., Bowers R.L., Cameron A.G.W., Press W.H., 1990, APJ, 348, 647., eqs.(2.4)

FT 19.12.2022

Arguments

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

Return Value doubleprecision


Calls

proc~~pr_wd_cgs~~CallsGraph proc~pr_wd_cgs pr_wd_cgs proc~f_wd f_wd proc~pr_wd_cgs->proc~f_wd

Contents

Variables

x

Source Code

pr_wd_cgs

Variables

Type Visibility Attributes Name Initial
double precision, private :: x

Source Code

  DOUBLE PRECISION PURE FUNCTION pr_wd_cgs(rho)

    !********************************************
    !
    !# Degenerate pressure as a function of density,
    !  all in CGS units
    !
    !  See [Benz W., Bowers R.L., Cameron A.G.W., Press W.H., 1990, APJ, 348, 647.](https://ui.adsabs.harvard.edu/abs/1990ApJ...348..647B/abstract){:target="_blank"}, eqs.(2.4)
    !
    !
    !  FT 19.12.2022
    !
    !********************************************

    IMPLICIT NONE

    DOUBLE PRECISION, INTENT(IN):: rho

    DOUBLE PRECISION:: x

    x= (rho/b_wd_cgs)**third

    pr_wd_cgs= a_wd_cgs*f_wd(x)

  END FUNCTION pr_wd_cgs