Skip to main content

UltrasphericalGradientEval

Evaluate gradient of Ultraspherical polynomials.

Interface 1

INTERFACE
MODULE PURE FUNCTION UltrasphericalGradientEval(n, lambda, x) RESULT(ans)
INTEGER(I4B), INTENT(IN) :: n
!! order of polynomial
REAL(DFP), INTENT(IN) :: lambda
!! lambda should be greater than -0.5
REAL(DFP), INTENT(IN) :: x
REAL(DFP) :: ans
END FUNCTION UltrasphericalGradientEval
END INTERFACE

Interface 2

INTERFACE
MODULE PURE FUNCTION UltrasphericalGradientEval(n, lambda, x) RESULT(ans)
INTEGER(I4B), INTENT(IN) :: n
!! order of polynomial
REAL(DFP), INTENT(IN) :: lambda
!! lambda should be greater than -0.5
REAL(DFP), INTENT(IN) :: x(:)
REAL(DFP) :: ans(1:SIZE(x))
END FUNCTION UltrasphericalGradientEval
END INTERFACE