JacobiNormSQR2

Square norm of Jacobi polynomial.

This function returns the following:

$$\Vert P_{n}^{\alpha,\beta}\Vert_{d\lambda}^{2}=\int_{-1}^{+1}P_{n}^ {\alpha,\beta}P_{n}^{\alpha,\beta}(1-x)^{\alpha}(1+x)^{\beta}dx$$

INTERFACE
  MODULE PURE FUNCTION JacobiNormSQR2(n, alpha, beta) RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: n
    REAL(DFP), INTENT(IN) :: alpha
    REAL(DFP), INTENT(IN) :: beta
    REAL(DFP) :: ans(0:n)
  END FUNCTION JacobiNormSQR2
END INTERFACE

Example

️܀ See example

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

results

 ans:  
-------
2.00000
0.66667
0.40000
0.28571
0.22222
0.18182

↢