ps_GetValue Function

public function ps_GetValue(f, r) result(val)

Arguments

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

Return Value real(kind=dp)


Contents

Source Code

ps_GetValue

Source Code

function ps_GetValue(f,r) result(val)
type(ps_radfunc_t), intent(in)     ::  f
real(dp),  intent(in)      :: r
real(dp)                   :: val

if (r> max_range(f)) then
   if (f%has_coulomb_tail) then
      val = f%tail_factor / r
   else
      val = 0.0_dp
   endif
else
   val = eval_radfunc(f,r, debug=global_debug)
endif
end function ps_GetValue