pchipmod Module

Subroutines and functions related to the calculation of the Piecewise Cubic Hermite Interpolating Polynomial (PCHIP)

Uses

- splinec
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Functions

public function fprime_interior_Cmplx(del1, del2, fprime)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	del1
complex(kind=8),	intent(in)			::	del2
complex(kind=8),	intent(in)			::	fprime

Return Value complex(kind=8)

public function fprime_left_end_Cmplx(del1, del2, fprime)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	del1
complex(kind=8),	intent(in)			::	del2
complex(kind=8),	intent(in)			::	fprime

Return Value complex(kind=8)

public function fprime_right_end_Cmplx(del1, del2, fprime)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	del1
complex(kind=8),	intent(in)			::	del2
complex(kind=8),	intent(in)			::	fprime

Return Value complex(kind=8)

public function fprime_interior(del1, del2, fprime)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	del1
real(kind=8),	intent(in)			::	del2
real(kind=8),	intent(in)			::	fprime

Return Value real(kind=8)

public function fprime_left_end(del1, del2, fprime)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	del1
real(kind=8),	intent(in)			::	del2
real(kind=8),	intent(in)			::	fprime

Return Value real(kind=8)

public function fprime_right_end(del1, del2, fprime)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	del1
real(kind=8),	intent(in)			::	del2
real(kind=8),	intent(in)			::	fprime

Return Value real(kind=8)

Subroutines

public subroutine PCHIP(x, y, N, PolyCoef, csWork)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x(:)
complex(kind=8),	intent(in)			::	y(:)
integer,	intent(in)			::	N
complex(kind=8),	intent(inout)			::	PolyCoef(4,N)
complex(kind=8),	intent(inout)			::	csWork(4,N)

public subroutine h_del(x, y, ix, h1, h2, del1, del2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x(:)
complex(kind=8),	intent(in)			::	y(:)
integer,	intent(in)			::	ix
real(kind=8),	intent(out)			::	h1
real(kind=8),	intent(out)			::	h2
complex(kind=8),	intent(out)			::	del1
complex(kind=8),	intent(out)			::	del2