JacobiLeadingCoeff

Leading coefficient of Jacobi polynomials.

INTERFACE
  MODULE PURE FUNCTION JacobiLeadingCoeff(n, alpha, beta) RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: n
    !! order of Jacobi polynomial
    REAL(DFP), INTENT(IN) :: alpha
    !! alpha in Jacobi poly
    REAL(DFP), INTENT(IN) :: beta
    !! beta in Jacobi poly
    REAL(DFP) :: ans
    !! answer
  END FUNCTION JacobiLeadingCoeff
END INTERFACE

Examples

️܀ See example

program main
use easifembase
implicit none
CALL Display(JacobiLeadingCoeff(5, 0.0_DFP, 0.0_DFP), "ans: " )
end program main

results

ans: 7.87500

↢