JacobiBeta

Recurrence coeff for Jacobi polynomial.

INTERFACE
  MODULE ELEMENTAL PURE FUNCTION JacobiBeta(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 JacobiBeta
END INTERFACE

️܀ See example

program main
use easifembase
implicit none
CALL Display(JacobiAlpha(n=5, alpha=0.0_DFP, beta=0.0_DFP), "ans:" )
CALL Display(JacobiBeta(n=5, alpha=0.0_DFP, beta=0.0_DFP), "ans:" )
end program main

results

ans:0.00000
ans:0.252525

↢