UltrasphericalNormSQR2

Square norm of Ultraspherical polynomial.

Interface

܀ Interface

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

️܀ See example

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

results

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

↢