ps_CoreKineticDensity_Value Function

public function ps_CoreKineticDensity_Value(ps, r) result(val)

Computes the value of the pseudo-core kinetic energy density at r @param ps is a handle to the psml information @param r is the radius ??? It returns the pseudo-core kinetic energy density integrated over ??? solid angle, so that Q_core = int{ valrr }

Arguments

Type IntentOptional Attributes Name
type(ps_t), intent(in) :: ps
real(kind=dp), intent(in) :: r

Return Value real(kind=dp)


Contents

Source Code

ps_CoreKineticDensity_Value

Source Code

function ps_CoreKineticDensity_Value(ps,r) result(val)
type(ps_t), intent(in) :: ps
real(dp), intent(in)       :: r
real(dp)                   :: val

val = ps_GetValue(ps%core_kinetic_energy_density%kin_edens_core,r)

end function ps_CoreKineticDensity_Value