is_supported_term Function

public pure function is_supported_term(term) result(supported)

Check whether the closed form of the Fourier transform is applicable

Arguments

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

Term of the damped pair potential

Return Value logical

Whether the term can be transformed analytically


Source Code

pure function is_supported_term(term) result(supported)

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

   !> Whether the term can be transformed analytically
   logical :: supported

   supported = term%alpha > 0 .and. term%m >= 0 &
      & .and. mod(term%alpha, 2) == 0 .and. mod(term%m, 2) == 0 &
      & .and. term%m + 3 < term%alpha .and. term%radius > 0.0_wp

end function is_supported_term