gridxc_mesh1D Module

Uses

- gridxc_interpolation
- gridxc_interpolation
- gridxc_interpolation
- gridxc_precision

Contents

Functions

get_n locate interpolation_local derivative integral

Subroutines

set_mesh set_interpolation get_mesh numerov

Functions

public function get_n(xmin, xmax, dxmin, dxmax)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	xmin
real(kind=dp),	intent(in)			::	xmax
real(kind=dp),	intent(in)			::	dxmin
real(kind=dp),	intent(in)			::	dxmax

Return Value integer

public function locate(x0)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	x0

Return Value real(kind=dp)

public function interpolation_local(nnew, xnew, n, y, x, dx) result(interpolation)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nnew
real(kind=dp),	intent(in)			::	xnew(nnew)
integer,	intent(in)			::	n
real(kind=dp),	intent(in)			::	y(n)
real(kind=dp),	intent(in),	optional		::	x(n)
real(kind=dp),	intent(in),	optional		::	dx

Return Value real(kind=dp) (nnew)

public recursive function derivative(n, y, x, dx, order) result(dydx)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real(kind=dp),	intent(in)			::	y(n)
real(kind=dp),	intent(in),	optional		::	x(n)
real(kind=dp),	intent(in),	optional		::	dx
integer,	intent(in),	optional		::	order

Return Value real(kind=dp) (n)

public function integral(n, y, x, dx)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real(kind=dp),	intent(in)			::	y(n)
real(kind=dp),	intent(in),	optional		::	x(n)
real(kind=dp),	intent(in),	optional		::	dx

Return Value real(kind=dp)

Subroutines

public subroutine set_mesh(n, x, xmin, xmax, a, dxndx1)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real(kind=dp),	intent(in),	optional		::	x(n)
real(kind=dp),	intent(in),	optional		::	xmin
real(kind=dp),	intent(in),	optional		::	xmax
real(kind=dp),	intent(in),	optional		::	a
real(kind=dp),	intent(in),	optional		::	dxndx1

public subroutine set_interpolation(method, ypleft, ypright)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	method
real(kind=dp),	intent(in),	optional		::	ypleft
real(kind=dp),	intent(in),	optional		::	ypright

public subroutine get_mesh(n, nx, x, dxdi, d2xdi2, d3xdi3, d4xdi4)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
integer,	intent(out)			::	nx
real(kind=dp),	intent(out),	optional	dimension(:)	::	x
real(kind=dp),	intent(out),	optional	dimension(:)	::	dxdi
real(kind=dp),	intent(out),	optional	dimension(:)	::	d2xdi2
real(kind=dp),	intent(out),	optional	dimension(:)	::	d3xdi3
real(kind=dp),	intent(out),	optional	dimension(:)	::	d4xdi4

public subroutine numerov(n, y, yp, ypp, f0, f1, x, dx, norm)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real(kind=dp),	intent(inout),	optional		::	y(n)
real(kind=dp),	intent(out),	optional		::	yp(n)
real(kind=dp),	intent(out),	optional		::	ypp(n)
real(kind=dp),	intent(in),	optional		::	f0(n)
real(kind=dp),	intent(in),	optional		::	f1(n)
real(kind=dp),	intent(in),	optional		::	x(n)
real(kind=dp),	intent(in),	optional		::	dx
real(kind=dp),	intent(in),	optional		::	norm