get_potential_zero Function

public pure function get_potential_zero(term) result(phi)

Value of the damped pair potential at vanishing distance

Arguments

Type IntentOptional Attributes Name
type(fourier_term), intent(in) :: term

Term of the damped pair potential

Return Value real(kind=wp)

Value of the term at the origin


Source Code

pure function get_potential_zero(term) result(phi)

   !> Term of the damped pair potential
   type(fourier_term), intent(in) :: term

   !> Value of the term at the origin
   real(wp) :: phi

   if (term%m > 0) then
      phi = 0.0_wp
   else
      phi = term%prefactor / term%radius**term%alpha
   end if

end function get_potential_zero