Skip to main content

Jacobi1D example 10

This example shows the usage of [[Jacobi1D_]] class. We test GaussRadauQuadrature function in this routine, which returns the GaussRadauQuadrature points for Jacobi polynomial.

Modules and classes​

  • [[Jacobi1D_]]

Usage​

PROGRAM main
use easifemBase
use easifemClasses
implicit none
type(Jacobi1D_) :: obj
real( dfp ), allocatable :: x( :, : )
integer( i4b ) :: n
real( dfp ), parameter :: a = 1.0_DFP, alpha=0.0_DFP, beta=0.0_DFP

n=1​

  n = 1
  obj=Jacobi1D(varname="x", n=n, alpha=alpha, beta=beta)
  x = obj%GaussRadauQuadrature(a)
  call display( x, "pt | wt for n="//tostring(n) )

n=2​

  n = 2
  obj=Jacobi1D(varname="x", n=n, alpha=alpha, beta=beta)
  x = obj%GaussRadauQuadrature(a)
  call display( x, "pt | wt for n="//tostring(n) )

n=3​

  n = 3
  obj=Jacobi1D(varname="x", n=n, alpha=alpha, beta=beta)
  x = obj%GaussRadauQuadrature(a)
  call display( x, "pt | wt for n="//tostring(n) )

n=4​

  n = 4
  obj=Jacobi1D(varname="x", n=n, alpha=alpha, beta=beta)
  x = obj%GaussRadauQuadrature(a)
  call display( x, "pt | wt for n="//tostring(n) )
END PROGRAM main