oft_lag_poly Module Reference

Detailed Description

Lagrange interpolatory polynomials.

Author

Chris Hansen

Date

October 2018

Functions/Subroutines
pure real(r8) function	d2hpoly_2d (inds, k, m, x)
	Need docs.
pure real(r8) function	d2hpoly_3d (inds, k, m, x)
	Need docs.
pure real(r8) function	d2hpoly_bary (ii, x)
	Need docs.
pure real(r8) function	d2lag_1d (ii, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(3)	d2lag_1d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	d2lag_2d (ii, k, m, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(6)	d2lag_2d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	d2lag_3d (ii, k, m, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(10)	d2lag_3d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(3)	dhpoly_2d (inds, x)
	Need docs.
pure real(r8) function, dimension(4)	dhpoly_3d (inds, x)
	Need docs.
pure real(r8) function	dhpoly_bary (ii, x)
	Need docs.
pure real(r8) function	dlag_1d (ii, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(2)	dlag_1d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	dlag_1d_unnorm (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	dlag_2d (ii, k, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(3)	dlag_2d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(3)	dlag_3d (ii, x, xnodes, n)
	Need docs.
pure real(r8) function, dimension(4)	dlag_3d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	hpoly_2d (inds, x)
	Need docs.
subroutine	hpoly_2d_grid (order, inds)
	Need docs.
pure real(r8) function	hpoly_3d (inds, x)
	Need docs.
subroutine	hpoly_3d_grid (order, inds)
	Need docs.
pure real(r8) function	hpoly_bary (ii, x)
	Need docs.
pure real(r8) function	lag_1d (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	lag_1d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	lag_1d_norm (ii, xnodes, n)
	Need docs.
pure real(r8) function	lag_1d_unnorm (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	lag_2d (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	lag_2d_bary (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	lag_3d (ii, x, xnodes, n)
	Need docs.
pure real(r8) function	lag_3d_bary (ii, x, xnodes, n)
	Need docs.

Variables
real(r8), dimension(2), parameter	lag_even_x1 = (/0.d0,1.d0/)
real(r8), dimension(3), parameter	lag_even_x2 = (/0.d0,1.d0,2.d0/)/2.d0
real(r8), dimension(4), parameter	lag_even_x3 = (/0.d0,1.d0,2.d0,3.d0/)/3.d0
real(r8), dimension(5), parameter	lag_even_x4 = (/0.d0,1.d0,2.d0,3.d0,4.d0/)/5.d0

Function/Subroutine Documentation

d2hpoly_2d()

pure real(r8) function d2hpoly_2d	(	integer(i4), dimension(2), intent(in)	inds,
		integer(i4), intent(in)	k,
		integer(i4), intent(in)	m,
		real(r8), dimension(2), intent(in)	x
	)

Need docs.

d2hpoly_3d()

pure real(r8) function d2hpoly_3d	(	integer(i4), dimension(3), intent(in)	inds,
		integer(i4), intent(in)	k,
		integer(i4), intent(in)	m,
		real(r8), dimension(3), intent(in)	x
	)

Need docs.

d2hpoly_bary()

pure real(r8) function d2hpoly_bary	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x
	)

Need docs.

d2lag_1d()

pure real(r8) function d2lag_1d	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

d2lag_1d_bary()

pure real(r8) function, dimension(3) d2lag_1d_bary	(	integer(i4), intent(in)	ii,
		real(r8), dimension(2), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

d2lag_2d()

pure real(r8) function d2lag_2d	(	integer(i4), dimension(2), intent(in)	ii,
		integer(i4), intent(in)	k,
		integer(i4), intent(in)	m,
		real(r8), dimension(2), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

d2lag_2d_bary()

pure real(r8) function, dimension(6) d2lag_2d_bary	(	integer(i4), dimension(2), intent(in)	ii,
		real(r8), dimension(3), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

d2lag_3d()

pure real(r8) function d2lag_3d	(	integer(i4), dimension(3), intent(in)	ii,
		integer(i4), intent(in)	k,
		integer(i4), intent(in)	m,
		real(r8), dimension(3), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

d2lag_3d_bary()

pure real(r8) function, dimension(10) d2lag_3d_bary	(	integer(i4), dimension(3), intent(in)	ii,
		real(r8), dimension(4), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dhpoly_2d()

pure real(r8) function, dimension(3) dhpoly_2d	(	integer(i4), dimension(2), intent(in)	inds,
		real(r8), dimension(2), intent(in)	x
	)

Need docs.

dhpoly_3d()

pure real(r8) function, dimension(4) dhpoly_3d	(	integer(i4), dimension(3), intent(in)	inds,
		real(r8), dimension(3), intent(in)	x
	)

Need docs.

dhpoly_bary()

pure real(r8) function dhpoly_bary	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x
	)

Need docs.

dlag_1d()

pure real(r8) function dlag_1d	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dlag_1d_bary()

pure real(r8) function, dimension(2) dlag_1d_bary	(	integer(i4), intent(in)	ii,
		real(r8), dimension(2), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dlag_1d_unnorm()

pure real(r8) function dlag_1d_unnorm	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dlag_2d()

pure real(r8) function dlag_2d	(	integer(i4), dimension(2), intent(in)	ii,
		integer(i4), intent(in)	k,
		real(r8), dimension(2), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dlag_2d_bary()

pure real(r8) function, dimension(3) dlag_2d_bary	(	integer(i4), dimension(2), intent(in)	ii,
		real(r8), dimension(3), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dlag_3d()

pure real(r8) function, dimension(3) dlag_3d	(	integer(i4), dimension(3), intent(in)	ii,
		real(r8), dimension(3), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

dlag_3d_bary()

pure real(r8) function, dimension(4) dlag_3d_bary	(	integer(i4), dimension(3), intent(in)	ii,
		real(r8), dimension(4), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

hpoly_2d()

pure real(r8) function hpoly_2d	(	integer(i4), dimension(2), intent(in)	inds,
		real(r8), dimension(2), intent(in)	x
	)

Need docs.

hpoly_2d_grid()

subroutine hpoly_2d_grid	(	integer(i4), intent(in)	order,
		integer(i4), dimension(:,:), intent(out), pointer	inds
	)

Need docs.

hpoly_3d()

pure real(r8) function hpoly_3d	(	integer(i4), dimension(3), intent(in)	inds,
		real(r8), dimension(3), intent(in)	x
	)

Need docs.

hpoly_3d_grid()

subroutine hpoly_3d_grid	(	integer(i4), intent(in)	order,
		integer(i4), dimension(:,:), intent(out), pointer	inds
	)

Need docs.

hpoly_bary()

pure real(r8) function hpoly_bary	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x
	)

Need docs.

lag_1d()

pure real(r8) function lag_1d	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_1d_bary()

pure real(r8) function lag_1d_bary	(	integer(i4), intent(in)	ii,
		real(r8), dimension(2), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_1d_norm()

pure real(r8) function lag_1d_norm	(	integer(i4), intent(in)	ii,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_1d_unnorm()

pure real(r8) function lag_1d_unnorm	(	integer(i4), intent(in)	ii,
		real(r8), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_2d()

pure real(r8) function lag_2d	(	integer(i4), dimension(2), intent(in)	ii,
		real(r8), dimension(2), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_2d_bary()

pure real(r8) function lag_2d_bary	(	integer(i4), dimension(2), intent(in)	ii,
		real(r8), dimension(3), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_3d()

pure real(r8) function lag_3d	(	integer(i4), dimension(3), intent(in)	ii,
		real(r8), dimension(3), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

lag_3d_bary()

pure real(r8) function lag_3d_bary	(	integer(i4), dimension(3), intent(in)	ii,
		real(r8), dimension(4), intent(in)	x,
		real(r8), dimension(n), intent(in)	xnodes,
		integer(i4), intent(in)	n
	)

Need docs.

Variable Documentation

lag_even_x1

real(r8), dimension(2), parameter lag_even_x1 = (/0.d0,1.d0/)

lag_even_x2

real(r8), dimension(3), parameter lag_even_x2 = (/0.d0,1.d0,2.d0/)/2.d0

lag_even_x3

real(r8), dimension(4), parameter lag_even_x3 = (/0.d0,1.d0,2.d0,3.d0/)/3.d0

lag_even_x4

real(r8), dimension(5), parameter lag_even_x4 = (/0.d0,1.d0,2.d0,3.d0,4.d0/)/5.d0