Skip to main content

ChebyshevFirst1D example 6

This example shows the usage of [[ChebyshevFirst1D_]] class. We test Zeros function in this routine, which returns the zeros of Chebyshev1 polynomial.

Modules and classes​

  • [[ChebyshevFirst1D_]]

Usage​

PROGRAM main
use easifemBase
use easifemClasses
implicit none
type(ChebyshevFirst1D_) :: obj
real( dfp ), allocatable :: x( : )
integer( i4b ) :: n

n=1​

  n = 1
  obj = ChebyshevFirst1D(varname="x", n=n)
  x = obj%zeros()
  call display( x, "zeros for n="//tostring(n), orient="ROW" )

n=2​

  n = 2
  obj = ChebyshevFirst1D(varname="x", n=n)
  x = obj%zeros()
  call display( x, "zeros for n="//tostring(n), orient="ROW" )

n=3​

  n = 3
  obj = ChebyshevFirst1D(varname="x", n=n)
  x = obj%zeros()
  call display( x, "zeros for n="//tostring(n), orient="ROW" )

n=4​

  n = 4
  obj = ChebyshevFirst1D(varname="x", n=n)
  x = obj%zeros()
  call display( x, "zeros for n="//tostring(n), orient="ROW" )
END PROGRAM main