ps_LocalPotential_Value Function

  1. m_psml_api.F90
  2. m_psml_api
  3. ps_LocalPotential_Value

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

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

ps_LocalPotential_Value

Source Code

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

val = ps_GetValue(ps%local%vlocal,r)

end function ps_LocalPotential_Value