Chebyshev1LeadingCoeff

Leading coefficient of Chebyshev1 polynomials.

INTERFACE
  MODULE PURE FUNCTION Chebyshev1LeadingCoeff(n) RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: n
    !! order of Chebyshev1 polynomial
    REAL(DFP) :: ans
    !! answer
  END FUNCTION Chebyshev1LeadingCoeff
END INTERFACE

Examples

️܀ See example

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

results

ans: 16.0000

↢