Skip to main content

LegendreEvalSum

Evaluate the finite sum of Legendre polynomials at point x.

Interface 1

INTERFACE
MODULE PURE FUNCTION LegendreEvalSum(n, x, coeff) &
& RESULT(ans)
INTEGER(I4B), INTENT(IN) :: n
!! order of polynomial
REAL(DFP), INTENT(IN) :: x
!! point
REAL(DFP), INTENT(IN) :: coeff(0:n)
!! Coefficient of finite sum, size = n+1
REAL(DFP) :: ans
!! Evaluate Legendre polynomial of order n at point x
END FUNCTION LegendreEvalSum
END INTERFACE

Interface 2

INTERFACE
MODULE PURE FUNCTION LegendreEvalSum(n, x, coeff) RESULT(ans)
INTEGER(I4B), INTENT(IN) :: n
!! order of polynomial
REAL(DFP), INTENT(IN) :: x(:)
!! point
REAL(DFP), INTENT(IN) :: coeff(0:n)
!! Coefficient of finite sum, size = n+1
REAL(DFP) :: ans(SIZE(x))
!! Evaluate Legendre polynomial of order n at point x
END FUNCTION LegendreEvalSum
END INTERFACE