bspline_2d – bspline-fortran

type, public, extends(bspline_class) :: bspline_2d

Class for 2d b-spline interpolation.

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
integer(kind=ip),	private		::	nx	=	0_ip	Number of $x$ abcissae
integer(kind=ip),	private		::	ny	=	0_ip	Number of $y$ abcissae
integer(kind=ip),	private		::	kx	=	0_ip	The order of spline pieces in $x$
integer(kind=ip),	private		::	ky	=	0_ip	The order of spline pieces in $y$
real(kind=wp),	private,	dimension(:,:,:), allocatable	::	bcoef			array of coefficients of the b-spline interpolant (the last dimension is the output index)
real(kind=wp),	private,	dimension(:), allocatable	::	tx			The knots in the $x$ direction for the spline interpolant
real(kind=wp),	private,	dimension(:), allocatable	::	ty			The knots in the $y$ direction for the spline interpolant
integer(kind=ip),	private		::	inbvy	=	1_ip	internal variable used for efficient processing
integer(kind=ip),	private		::	iloy	=	1_ip	internal variable used for efficient processing
real(kind=wp),	private,	dimension(:), allocatable	::	work_val_1			[[db2val] work array of dimension `ky`
real(kind=wp),	private,	dimension(:), allocatable	::	work_val_2			[[db2val] work array of dimension `3_ip*max(kx,ky)`

Constructor

public interface bspline_2d

Constructor for bspline_2d

private elemental function bspline_2d_constructor_empty() result(me)

It returns an empty bspline_2d type. Note that INITIALIZE still needs to be called before it can be used. Not really that useful except perhaps in some OpenMP applications.

Arguments
None
Return Value type(bspline_2d)

private pure function bspline_2d_constructor_auto_knots(x, y, fcn, kx, ky, extrap) result(me)

Constructor for a bspline_2d type (auto knots). This is a wrapper for initialize_2d_auto_knots.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	fcn	`(nx,ny)` matrix of function values to interpolate. `fcn(i,j)` should contain the function value at the point (`x(i)`,`y(j)`)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $2 \le k_x < n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $2 \le k_y < n_y$ ) (order = polynomial degree + 1)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

Return Value type(bspline_2d)

private pure function bspline_2d_constructor_specify_knots(x, y, fcn, kx, ky, tx, ty, extrap) result(me)

Constructor for a bspline_2d type (user-specified knots). This is a wrapper for initialize_2d_specify_knots.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	fcn	`(nx,ny)` matrix of function values to interpolate. `fcn(i,j)` should contain the function value at the point (`x(i)`,`y(j)`)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $2 \le k_x < n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $2 \le k_y < n_y$ ) (order = polynomial degree + 1)
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction for the spline interpolant. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction for the spline interpolant. Must be non-decreasing.
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

Return Value type(bspline_2d)

Finalization Procedures

final :: finalize_2d

private pure elemental subroutine finalize_2d(me)

Finalizer for bspline_2d class. Just a wrapper for destroy_2d.

Arguments

Type	Intent	Optional	Attributes		Name
type(bspline_2d),	intent(inout)			::	me

Type-Bound Procedures

procedure, public, non_overridable :: status_ok

returns true if the last iflag status code was =0.

private elemental function status_ok(me) result(ok)

This routines returns true if the iflag code from the last routine called was =0. Maybe of the routines have output iflag variables, so they can be checked explicitly, or this routine can be used.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_class),	intent(in)			::	me

Return Value logical

procedure, public, non_overridable :: status_message => get_bspline_status_message

retrieve the last status message

private pure function get_bspline_status_message(me, iflag) result(msg)

Get the status message from a bspline_class routine call.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_class),	intent(in)			::	me
integer(kind=ip),	intent(in),	optional		::	iflag	the corresponding status code

Return Value character(len=:), allocatable

status message associated with the flag

procedure, public, non_overridable :: clear_flag => clear_bspline_flag

to reset the iflag saved in the class.

private elemental subroutine clear_bspline_flag(me)

This sets the iflag variable in the class to 0 (which indicates that everything is OK). It can be used after an error is encountered.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_class),	intent(inout)			::	me

procedure, public, non_overridable :: number_of_outputs

number of outputs (functions) of the spline

private pure function number_of_outputs(me) result(nf)

Returns the number of outputs (functions of the same inputs) of the spline: 1 for a spline initialized with a single function, and nf for one initialized with nf functions (the last dimension of fcn). Returns 0 if the class is not initialized.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_class),	intent(in)			::	me	the spline

Return Value integer(kind=ip)

number of outputs

generic, public :: initialize => initialize_2d_auto_knots, initialize_2d_specify_knots, initialize_2d_auto_knots_multi, initialize_2d_specify_knots_multi

private pure subroutine initialize_2d_auto_knots(me, x, y, fcn, kx, ky, iflag, extrap)

Initialize a bspline_2d type (with automatically-computed knots). This is a wrapper for db2ink.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	fcn	`(nx,ny)` matrix of function values to interpolate. `fcn(i,j)` should contain the function value at the point (`x(i)`,`y(j)`)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $2 \le k_x < n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $2 \le k_y < n_y$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

private pure subroutine initialize_2d_specify_knots(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Initialize a bspline_2d type (with user-specified knots). This is a wrapper for db2ink.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	fcn	`(nx,ny)` matrix of function values to interpolate. `fcn(i,j)` should contain the function value at the point (`x(i)`,`y(j)`)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $2 \le k_x < n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $2 \le k_y < n_y$ ) (order = polynomial degree + 1)
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction for the spline interpolant. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction for the spline interpolant. Must be non-decreasing.
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

private pure subroutine initialize_2d_auto_knots_multi(me, x, y, fcn, kx, ky, iflag, extrap)

Initialize a bspline_2d type with multiple outputs: nf functions of the same inputs, on the same grid. The last dimension of fcn is the output index. This is a wrapper for db2ink (multiple-output version).

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:,:)	::	fcn	`(nx,ny,nf)` array of function values to interpolate (the last dimension is the output index)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

private pure subroutine initialize_2d_specify_knots_multi(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Initialize a bspline_2d type with multiple outputs: nf functions of the same inputs, on the same grid (with user-specified knots). The last dimension of fcn is the output index. This is a wrapper for db2ink (multiple-output version).

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:,:)	::	fcn	`(nx,ny,nf)` array of function values to interpolate (the last dimension is the output index)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction.
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, private :: initialize_2d_auto_knots_multi

private pure subroutine initialize_2d_auto_knots_multi(me, x, y, fcn, kx, ky, iflag, extrap)

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:,:)	::	fcn	`(nx,ny,nf)` array of function values to interpolate (the last dimension is the output index)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, private :: initialize_2d_specify_knots_multi

private pure subroutine initialize_2d_specify_knots_multi(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:,:)	::	fcn	`(nx,ny,nf)` array of function values to interpolate (the last dimension is the output index)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction.
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, private :: initialize_2d_auto_knots

private pure subroutine initialize_2d_auto_knots(me, x, y, fcn, kx, ky, iflag, extrap)

Initialize a bspline_2d type (with automatically-computed knots). This is a wrapper for db2ink.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	fcn	`(nx,ny)` matrix of function values to interpolate. `fcn(i,j)` should contain the function value at the point (`x(i)`,`y(j)`)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $2 \le k_x < n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $2 \le k_y < n_y$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, private :: initialize_2d_specify_knots

private pure subroutine initialize_2d_specify_knots(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Initialize a bspline_2d type (with user-specified knots). This is a wrapper for db2ink.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me
real(kind=wp),	intent(in),		dimension(:)	::	x	`(nx)` array of $x$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:)	::	y	`(ny)` array of $y$ abcissae. Must be strictly increasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	fcn	`(nx,ny)` matrix of function values to interpolate. `fcn(i,j)` should contain the function value at the point (`x(i)`,`y(j)`)
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $2 \le k_x < n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $2 \le k_y < n_y$ ) (order = polynomial degree + 1)
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction for the spline interpolant. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction for the spline interpolant. Must be non-decreasing.
integer(kind=ip),	intent(out)			::	iflag	status flag (see db2ink)
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

generic, public :: evaluate => evaluate_2d, evaluate_2d_multi

private pure subroutine evaluate_2d(me, xval, yval, idx, idy, f, iflag)

Evaluate a bspline_2d interpolate. This is a wrapper for db2val.

Arguments

Type	Intent		Name
class(bspline_2d),	intent(inout)	::	me
real(kind=wp),	intent(in)	::	xval	$x$ coordinate of evaluation point.
real(kind=wp),	intent(in)	::	yval	$y$ coordinate of evaluation point.
integer(kind=ip),	intent(in)	::	idx	$x$ derivative of piecewise polynomial to evaluate.
integer(kind=ip),	intent(in)	::	idy	$y$ derivative of piecewise polynomial to evaluate.
real(kind=wp),	intent(out)	::	f	interpolated value
integer(kind=ip),	intent(out)	::	iflag	status flag (see db2val)

private pure subroutine evaluate_2d_multi(me, xval, yval, idx, idy, f, iflag)

Evaluate all the outputs of a bspline_2d with multiple outputs. This is a wrapper for db2val (multiple-output version).

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(in)		::	xval	$x$ coordinate of evaluation point.
real(kind=wp),	intent(in)		::	yval	$y$ coordinate of evaluation point.
integer(kind=ip),	intent(in)		::	idx	$x$ derivative of piecewise polynomial to evaluate.
integer(kind=ip),	intent(in)		::	idy	$y$ derivative of piecewise polynomial to evaluate.
real(kind=wp),	intent(out),	dimension(:)	::	f	`(nf)` interpolated values of the outputs (see number_of_outputs)
integer(kind=ip),	intent(out)		::	iflag	status flag (see db2val)

procedure, private :: evaluate_2d

private pure subroutine evaluate_2d(me, xval, yval, idx, idy, f, iflag)

Evaluate a bspline_2d interpolate. This is a wrapper for db2val.

Arguments

Type	Intent		Name
class(bspline_2d),	intent(inout)	::	me
real(kind=wp),	intent(in)	::	xval	$x$ coordinate of evaluation point.
real(kind=wp),	intent(in)	::	yval	$y$ coordinate of evaluation point.
integer(kind=ip),	intent(in)	::	idx	$x$ derivative of piecewise polynomial to evaluate.
integer(kind=ip),	intent(in)	::	idy	$y$ derivative of piecewise polynomial to evaluate.
real(kind=wp),	intent(out)	::	f	interpolated value
integer(kind=ip),	intent(out)	::	iflag	status flag (see db2val)

procedure, private :: evaluate_2d_multi

private pure subroutine evaluate_2d_multi(me, xval, yval, idx, idy, f, iflag)

Evaluate all the outputs of a bspline_2d with multiple outputs. This is a wrapper for db2val (multiple-output version).

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(in)		::	xval	$x$ coordinate of evaluation point.
real(kind=wp),	intent(in)		::	yval	$y$ coordinate of evaluation point.
integer(kind=ip),	intent(in)		::	idx	$x$ derivative of piecewise polynomial to evaluate.
integer(kind=ip),	intent(in)		::	idy	$y$ derivative of piecewise polynomial to evaluate.
real(kind=wp),	intent(out),	dimension(:)	::	f	`(nf)` interpolated values of the outputs (see number_of_outputs)
integer(kind=ip),	intent(out)		::	iflag	status flag (see db2val)

procedure, public :: destroy => destroy_2d

private pure subroutine destroy_2d(me)

Destructor for bspline_2d class.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me

procedure, public :: size_of => size_2d

private pure function size_2d(me) result(s)

Actual size of a bspline_2d structure in bits.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(in)			::	me

Return Value integer(kind=ip)

size of the structure in bits

generic, public :: initialize_from_coefficients => initialize_from_coefficients_2d, initialize_from_coefficients_2d_multi

private pure subroutine initialize_from_coefficients_2d(me, tx, ty, bcoef, kx, ky, iflag, extrap)

Initialize a bspline_2d type directly from its knots and b-spline coefficients (for example, those saved from another object with get_knots and get_coefficients), without interpolating any data.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	bcoef	`(nx,ny)` array of b-spline coefficients
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $1 \le k_x \le n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $1 \le k_y \le n_y$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(out)			::	iflag	status flag: Read more…
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

private pure subroutine initialize_from_coefficients_2d_multi(me, tx, ty, bcoef, kx, ky, iflag, extrap)

Initialize a bspline_2d type with multiple outputs directly from its knots and b-spline coefficients. The last dimension of bcoef is the output index.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction.
real(kind=wp),	intent(in),		dimension(:,:,:)	::	bcoef	`(nx,ny,nf)` array of b-spline coefficients
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$
integer(kind=ip),	intent(out)			::	iflag	status flag (see initialize_from_coefficients_2d), or 6005 if `bcoef` has no outputs
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, private :: initialize_from_coefficients_2d

private pure subroutine initialize_from_coefficients_2d(me, tx, ty, bcoef, kx, ky, iflag, extrap)

Initialize a bspline_2d type directly from its knots and b-spline coefficients (for example, those saved from another object with get_knots and get_coefficients), without interpolating any data.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction. Must be non-decreasing.
real(kind=wp),	intent(in),		dimension(:,:)	::	bcoef	`(nx,ny)` array of b-spline coefficients
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$ ( $1 \le k_x \le n_x$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$ ( $1 \le k_y \le n_y$ ) (order = polynomial degree + 1)
integer(kind=ip),	intent(out)			::	iflag	status flag: Read more…
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, private :: initialize_from_coefficients_2d_multi

private pure subroutine initialize_from_coefficients_2d_multi(me, tx, ty, bcoef, kx, ky, iflag, extrap)

Initialize a bspline_2d type with multiple outputs directly from its knots and b-spline coefficients. The last dimension of bcoef is the output index.

Arguments

Type	Intent	Optional	Attributes		Name
class(bspline_2d),	intent(inout)			::	me	the spline
real(kind=wp),	intent(in),		dimension(:)	::	tx	The `(nx+kx)` knots in the $x$ direction.
real(kind=wp),	intent(in),		dimension(:)	::	ty	The `(ny+ky)` knots in the $y$ direction.
real(kind=wp),	intent(in),		dimension(:,:,:)	::	bcoef	`(nx,ny,nf)` array of b-spline coefficients
integer(kind=ip),	intent(in)			::	kx	The order of spline pieces in $x$
integer(kind=ip),	intent(in)			::	ky	The order of spline pieces in $y$
integer(kind=ip),	intent(out)			::	iflag	status flag (see initialize_from_coefficients_2d), or 6005 if `bcoef` has no outputs
logical,	intent(in),	optional		::	extrap	if true, then extrapolation is allowed (default is false)

procedure, public :: get_knots => get_knots_2d

private pure subroutine get_knots_2d(me, tx, ty, iflag)

Returns the knot vectors of a bspline_2d.

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(out),	dimension(:), allocatable	::	tx	the `(nx+kx)` knots in the $x$ direction
real(kind=wp),	intent(out),	dimension(:), allocatable	::	ty	the `(ny+ky)` knots in the $y$ direction
integer(kind=ip),	intent(out)		::	iflag	status flag: 0 if no errors, 1 if the class is not initialized

generic, public :: get_coefficients => get_coefficients_2d, get_coefficients_2d_multi

private pure subroutine get_coefficients_2d(me, bcoef, iflag)

Returns the b-spline coefficients of a bspline_2d. These are the values of the control points (see greville_abscissae for their locations).

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(out),	dimension(:,:), allocatable	::	bcoef	`(nx,ny)` array of b-spline coefficients
integer(kind=ip),	intent(out)		::	iflag	status flag: 0 if no errors, 1 if the class is not initialized

private pure subroutine get_coefficients_2d_multi(me, bcoef, iflag)

Returns the b-spline coefficients of a bspline_2d with any number of outputs. The last dimension of bcoef is the output index.

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(out),	dimension(:,:,:), allocatable	::	bcoef	`(nx,ny,nf)` array of b-spline coefficients
integer(kind=ip),	intent(out)		::	iflag	status flag: 0 if no errors, 1 if the class is not initialized

procedure, private :: get_coefficients_2d

private pure subroutine get_coefficients_2d(me, bcoef, iflag)

Returns the b-spline coefficients of a bspline_2d. These are the values of the control points (see greville_abscissae for their locations).

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(out),	dimension(:,:), allocatable	::	bcoef	`(nx,ny)` array of b-spline coefficients
integer(kind=ip),	intent(out)		::	iflag	status flag: 0 if no errors, 1 if the class is not initialized

procedure, private :: get_coefficients_2d_multi

private pure subroutine get_coefficients_2d_multi(me, bcoef, iflag)

Returns the b-spline coefficients of a bspline_2d with any number of outputs. The last dimension of bcoef is the output index.

Arguments

Type	Intent	Attributes		Name
class(bspline_2d),	intent(inout)		::	me	the spline
real(kind=wp),	intent(out),	dimension(:,:,:), allocatable	::	bcoef	`(nx,ny,nf)` array of b-spline coefficients
integer(kind=ip),	intent(out)		::	iflag	status flag: 0 if no errors, 1 if the class is not initialized

Source Code

    type,extends(bspline_class),public :: bspline_2d
        !! Class for 2d b-spline interpolation.
        private
        integer(ip) :: nx = 0_ip  !! Number of \(x\) abcissae
        integer(ip) :: ny = 0_ip  !! Number of \(y\) abcissae
        integer(ip) :: kx = 0_ip  !! The order of spline pieces in \(x\)
        integer(ip) :: ky = 0_ip  !! The order of spline pieces in \(y\)
        real(wp),dimension(:,:,:),allocatable :: bcoef  !! array of coefficients of the b-spline interpolant
                                                          !! (the last dimension is the output index)
        real(wp),dimension(:),allocatable :: tx  !! The knots in the \(x\) direction for the spline interpolant
        real(wp),dimension(:),allocatable :: ty  !! The knots in the \(y\) direction for the spline interpolant
        integer(ip) :: inbvy = 1_ip  !! internal variable used for efficient processing
        integer(ip) :: iloy = 1_ip  !! internal variable used for efficient processing
        real(wp),dimension(:),allocatable :: work_val_1  !! [[db2val] work array of dimension `ky`
        real(wp),dimension(:),allocatable :: work_val_2  !! [[db2val] work array of dimension `3_ip*max(kx,ky)`
        contains
        private
        generic,public :: initialize => initialize_2d_auto_knots,initialize_2d_specify_knots,&
                                        initialize_2d_auto_knots_multi,initialize_2d_specify_knots_multi
        procedure :: initialize_2d_auto_knots_multi
        procedure :: initialize_2d_specify_knots_multi
        procedure :: initialize_2d_auto_knots
        procedure :: initialize_2d_specify_knots
        generic,public :: evaluate => evaluate_2d, evaluate_2d_multi
        procedure :: evaluate_2d
        procedure :: evaluate_2d_multi
        procedure,public :: destroy => destroy_2d
        procedure,public :: size_of => size_2d
        generic,public :: initialize_from_coefficients => initialize_from_coefficients_2d,&
                                                          initialize_from_coefficients_2d_multi
        procedure :: initialize_from_coefficients_2d
        procedure :: initialize_from_coefficients_2d_multi
        procedure,public :: get_knots => get_knots_2d
        generic,public :: get_coefficients => get_coefficients_2d, get_coefficients_2d_multi
        procedure :: get_coefficients_2d
        procedure :: get_coefficients_2d_multi
        final :: finalize_2d
    end type bspline_2d

bspline_2d Derived Type

Contents

Variables

Constructor

Finalization Procedures

Type-Bound Procedures

Source Code

type, public, extends(bspline_class) :: bspline_2d

Inherits

Components

Constructor

public interface bspline_2d

private elemental function bspline_2d_constructor_empty() result(me)

Arguments

Return Value type(bspline_2d)

private pure function bspline_2d_constructor_auto_knots(x, y, fcn, kx, ky, extrap) result(me)

Arguments

Return Value type(bspline_2d)

private pure function bspline_2d_constructor_specify_knots(x, y, fcn, kx, ky, tx, ty, extrap) result(me)

Arguments

Return Value type(bspline_2d)

Finalization Procedures

final :: finalize_2d

private pure elemental subroutine finalize_2d(me)

Arguments

Type-Bound Procedures

procedure, public, non_overridable :: status_ok

private elemental function status_ok(me) result(ok)

Arguments

Return Value logical

procedure, public, non_overridable :: status_message => get_bspline_status_message

private pure function get_bspline_status_message(me, iflag) result(msg)

Arguments

Return Value character(len=:), allocatable

procedure, public, non_overridable :: clear_flag => clear_bspline_flag

private elemental subroutine clear_bspline_flag(me)

Arguments

procedure, public, non_overridable :: number_of_outputs

private pure function number_of_outputs(me) result(nf)

Arguments

Return Value integer(kind=ip)

generic, public :: initialize => initialize_2d_auto_knots, initialize_2d_specify_knots, initialize_2d_auto_knots_multi, initialize_2d_specify_knots_multi

private pure subroutine initialize_2d_auto_knots(me, x, y, fcn, kx, ky, iflag, extrap)

Arguments

private pure subroutine initialize_2d_specify_knots(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Arguments

private pure subroutine initialize_2d_auto_knots_multi(me, x, y, fcn, kx, ky, iflag, extrap)

Arguments

private pure subroutine initialize_2d_specify_knots_multi(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Arguments

procedure, private :: initialize_2d_auto_knots_multi

private pure subroutine initialize_2d_auto_knots_multi(me, x, y, fcn, kx, ky, iflag, extrap)

Arguments

procedure, private :: initialize_2d_specify_knots_multi

private pure subroutine initialize_2d_specify_knots_multi(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Arguments

procedure, private :: initialize_2d_auto_knots

private pure subroutine initialize_2d_auto_knots(me, x, y, fcn, kx, ky, iflag, extrap)

Arguments

procedure, private :: initialize_2d_specify_knots

private pure subroutine initialize_2d_specify_knots(me, x, y, fcn, kx, ky, tx, ty, iflag, extrap)

Arguments

generic, public :: evaluate => evaluate_2d, evaluate_2d_multi

private pure subroutine evaluate_2d(me, xval, yval, idx, idy, f, iflag)

Arguments

private pure subroutine evaluate_2d_multi(me, xval, yval, idx, idy, f, iflag)

Arguments

procedure, private :: evaluate_2d

private pure subroutine evaluate_2d(me, xval, yval, idx, idy, f, iflag)

Arguments

procedure, private :: evaluate_2d_multi

private pure subroutine evaluate_2d_multi(me, xval, yval, idx, idy, f, iflag)

Arguments

procedure, public :: destroy => destroy_2d

private pure subroutine destroy_2d(me)

Arguments

procedure, public :: size_of => size_2d

private pure function size_2d(me) result(s)

Arguments

Return Value integer(kind=ip)