JacobiLeadingCoeffRatio
Ratio of Leading coefficient of Jacobi polynomials.
INTERFACE
MODULE PURE FUNCTION JacobiLeadingCoeffRatio(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 JacobiLeadingCoeffRatio
END INTERFACE
Examples
- ️܀ See example
- ↢
program main
use easifembase
implicit none
CALL Display(JacobiLeadingCoeffRatio(5, 0.0_DFP, 0.0_DFP), "ans: " )
end program main
results
ans: 1.83333