pr_wd Function

public pure function pr_wd(rho)

Degenerate pressure as a function of density

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~~CallsGraph proc~pr_wd pr_wd proc~f_wd f_wd proc~pr_wd->proc~f_wd

Called by

proc~~pr_wd~~CalledByGraph proc~pr_wd pr_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

Contents

Variables

x

Source Code

pr_wd

Variables

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

Source Code

  DOUBLE PRECISION PURE FUNCTION pr_wd(rho)

    !********************************************
    !
    !# Degenerate pressure as a function of density
    !
    !  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)**third

    pr_wd= a_wd*f_wd(x)

  END FUNCTION pr_wd