lagrange_poly.F90 File Reference

#include "local.h"

Modules
module	oft_lag_poly
	Lagrange interpolatory polynomials.

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