sll_t_spline_1d

type, public :: sll_t_spline_1d

1D spline

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
real(kind=wp),	public,	allocatable	::	bcoef(:)
class(sll_c_bsplines),	private,	pointer	::	bspl	=>	null()

Type-Bound Procedures

procedure, public :: init => s_spline_1d__init

private subroutine s_spline_1d__init(self, bsplines)

Initialize 1D spline object as element of span(B-splines)

Arguments

Type	Intent	Optional	Attributes		Name
class(sll_t_spline_1d),	intent(out)			::	self	1D spline: new element of 1D spline space
class(sll_c_bsplines),	intent(in),		target	::	bsplines	B-splines: given basis of 1D spline space

procedure, public :: free => s_spline_1d__free

private subroutine s_spline_1d__free(self)

Destroy 1D spline (re-initialization is possible afterwards)

Arguments

Type	Intent	Optional	Attributes		Name
class(sll_t_spline_1d),	intent(inout)			::	self	1D spline

procedure, public :: belongs_to_space => f_spline_1d__belongs_to_space

private pure function f_spline_1d__belongs_to_space(self, bsplines) result(in_space)

Check if 1D spline belongs to span of given B-splines

Arguments

Type	Intent	Optional	Attributes		Name
class(sll_t_spline_1d),	intent(in)			::	self	1D spline
class(sll_c_bsplines),	intent(in),		target	::	bsplines	B-splines

Return Value logical

procedure, public :: eval => f_spline_1d__eval

private pure function f_spline_1d__eval(self, x) result(y)

Evaluate value of 1D spline at location x: y=S(x)

Arguments

Type	Intent	Optional	Attributes		Name
class(sll_t_spline_1d),	intent(in)			::	self	1D spline
real(kind=wp),	intent(in)			::	x	evaluation point

Return Value real(kind=wp)

procedure, public :: eval_deriv => f_spline_1d__eval_deriv

private pure function f_spline_1d__eval_deriv(self, x) result(y)

Evaluate derivative of 1D spline at location x: y=S'(x)

Arguments

Type	Intent	Optional	Attributes		Name
class(sll_t_spline_1d),	intent(in)			::	self	1D spline
real(kind=wp),	intent(in)			::	x	evaluation point

Return Value real(kind=wp)

procedure, public :: eval_array => s_spline_1d__eval_array

private pure subroutine s_spline_1d__eval_array(self, x, y)

Evaluate value of 1D spline at all locations in array x

Arguments

Type	Intent		Name
class(sll_t_spline_1d),	intent(in)	::	self	1D spline
real(kind=wp),	intent(in)	::	x(:)
real(kind=wp),	intent(out)	::	y(:)

procedure, public :: eval_array_deriv => s_spline_1d__eval_array_deriv

private pure subroutine s_spline_1d__eval_array_deriv(self, x, y)

Evaluate derivative of 1D spline at all locations in array x

Arguments

Type	Intent		Name
class(sll_t_spline_1d),	intent(in)	::	self	1D spline
real(kind=wp),	intent(in)	::	x(:)
real(kind=wp),	intent(out)	::	y(:)

Source Code

  type :: sll_t_spline_1d

    real(wp)             , allocatable      :: bcoef(:)
    class(sll_c_bsplines), pointer, private :: bspl => null()

  contains

    procedure :: init             => s_spline_1d__init
    procedure :: free             => s_spline_1d__free
    procedure :: belongs_to_space => f_spline_1d__belongs_to_space
    procedure :: eval             => f_spline_1d__eval
    procedure :: eval_deriv       => f_spline_1d__eval_deriv
    procedure :: eval_array       => s_spline_1d__eval_array
    procedure :: eval_array_deriv => s_spline_1d__eval_array_deriv

  end type sll_t_spline_1d

sll_t_spline_1d Derived Type

Contents

Variables

Type-Bound Procedures

Source Code

type, public :: sll_t_spline_1d

Inherits

Components

Type-Bound Procedures

procedure, public :: init => s_spline_1d__init

private subroutine s_spline_1d__init(self, bsplines)

Arguments

procedure, public :: free => s_spline_1d__free

private subroutine s_spline_1d__free(self)

Arguments

procedure, public :: belongs_to_space => f_spline_1d__belongs_to_space

private pure function f_spline_1d__belongs_to_space(self, bsplines) result(in_space)

Arguments

Return Value logical

procedure, public :: eval => f_spline_1d__eval

private pure function f_spline_1d__eval(self, x) result(y)

Arguments

Return Value real(kind=wp)

procedure, public :: eval_deriv => f_spline_1d__eval_deriv

private pure function f_spline_1d__eval_deriv(self, x) result(y)

Arguments

Return Value real(kind=wp)

procedure, public :: eval_array => s_spline_1d__eval_array

private pure subroutine s_spline_1d__eval_array(self, x, y)

Arguments

procedure, public :: eval_array_deriv => s_spline_1d__eval_array_deriv

private pure subroutine s_spline_1d__eval_array_deriv(self, x, y)

Arguments

Source Code