ps_Potential_Value Function

  1. m_psml_api.F90
  2. m_psml_api
  3. ps_Potential_Value

public function ps_Potential_Value(ps, i, r) result(val)

Evaluator by storage index

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

ps_Potential_Value

Source Code

function ps_Potential_Value(ps,i,r) result(val)
type(ps_t), intent(in)     ::  ps
integer,   intent(in)      :: i
real(dp),  intent(in)      :: r
real(dp)                   :: val

call check_index(i,size(ps%sl_table),"SL pot")
val = ps_GetValue(ps%sl_table(i)%p%V,r)

end function ps_Potential_Value