fitpack_core – FRICTION

Uses

- iso_fortran_env

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	FITPACK_INPUT_ERROR	=	10
integer,	public,	parameter	::	FITPACK_INSUFFICIENT_STORAGE	=	1
integer,	public,	parameter	::	FITPACK_INTERPOLATING_OK	=	-1
integer,	public,	parameter	::	FITPACK_INVALID_RANGE	=	6
integer,	public,	parameter	::	FITPACK_LEASTSQUARES_OK	=	-2
integer,	public,	parameter	::	FITPACK_MAXIT	=	3
integer,	public,	parameter	::	FITPACK_OK	=	0
integer,	public,	parameter	::	FITPACK_OVERLAPPING_KNOTS	=	5
integer,	public,	parameter	::	FITPACK_S_TOO_SMALL	=	2
integer,	public,	parameter	::	FITPACK_TEST_ERROR	=	11
integer,	public,	parameter	::	FITPACK_TOO_MANY_KNOTS	=	4
integer,	public,	parameter	::	KNOT_DIM_1	=	-1
integer,	public,	parameter	::	KNOT_DIM_2	=	1
integer,	public,	parameter	::	KNOT_DIM_NONE	=	0
integer,	public,	parameter	::	MAX_IDIM	=	10
integer,	public,	parameter	::	MAX_ORDER	=	19
integer,	public,	parameter	::	OUTSIDE_EXTRAPOLATE	=	0
integer,	public,	parameter	::	OUTSIDE_NEAREST_BND	=	3
integer,	public,	parameter	::	OUTSIDE_NOT_ALLOWED	=	2
integer,	public,	parameter	::	OUTSIDE_ZERO	=	1
integer,	public,	parameter	::	RKIND	=	real64
integer,	public,	parameter	::	RSIZE	=	int32
real(kind=RKIND),	public,	parameter	::	deg2rad	=	pi/180.0_RKIND
real(kind=RKIND),	public,	parameter	::	five	=	5.0_RKIND
real(kind=RKIND),	public,	parameter	::	four	=	4.0_RKIND
real(kind=RKIND),	public,	parameter	::	fourth	=	0.25_RKIND
real(kind=RKIND),	public,	parameter	::	half	=	0.5_RKIND
real(kind=RKIND),	public,	parameter	::	one	=	1.0_RKIND
real(kind=RKIND),	public,	parameter	::	onep5	=	1.5_RKIND
real(kind=RKIND),	public,	parameter	::	pi	=	atan2(zero, -one)
real(kind=RKIND),	public,	parameter	::	pi2	=	2*pi
real(kind=RKIND),	public,	parameter	::	pi4	=	4*pi
real(kind=RKIND),	public,	parameter	::	pio2	=	half*pi
real(kind=RKIND),	public,	parameter	::	pio4	=	fourth*pi
real(kind=RKIND),	public,	parameter	::	pio8	=	0.125_RKIND*pi
real(kind=RKIND),	public,	parameter	::	six	=	6.0_RKIND
real(kind=RKIND),	public,	parameter	::	smallnum03	=	1.0e-03_RKIND
real(kind=RKIND),	public,	parameter	::	smallnum06	=	1.0e-06_RKIND
real(kind=RKIND),	public,	parameter	::	smallnum08	=	1.0e-08_RKIND
real(kind=RKIND),	public,	parameter	::	smallnum10	=	1.0e-10_RKIND
real(kind=RKIND),	public,	parameter	::	ten	=	10.0_RKIND
real(kind=RKIND),	public,	parameter	::	three	=	3.0_RKIND
real(kind=RKIND),	public,	parameter	::	two	=	2.0_RKIND
real(kind=RKIND),	public,	parameter	::	zero	=	0.0_RKIND

Functions

public pure function FITPACK_MESSAGE(ierr) result(msg)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ierr

Return Value character(len=:), allocatable

public elemental function FITPACK_SUCCESS(ierr)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ierr

Return Value logical

public function dblint(tx, nx, ty, ny, c, kx, ky, xb, xe, yb, ye, wrk) result(dblint_res)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
real(kind=RKIND),	intent(in)	::	xb
real(kind=RKIND),	intent(in)	::	xe
real(kind=RKIND),	intent(in)	::	yb
real(kind=RKIND),	intent(in)	::	ye
real(kind=RKIND),	intent(out)	::	wrk(nx+ny-kx-ky-2)

Return Value real(kind=rkind)

public pure function evapol(tu, nu, tv, nv, c, rad, x, y) result(e_res)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tu(nu)
integer,	intent(in)	::	nu
real(kind=RKIND),	intent(in)	::	tv(nv)
integer,	intent(in)	::	nv
real(kind=RKIND),	intent(in)	::	c((nu-4)*(nv-4))
procedure(boundary)		::	rad
real(kind=RKIND),	intent(in)	::	x
real(kind=RKIND),	intent(in)	::	y

Return Value real(kind=rkind)

public function splint(t, n, c, k, a, b, wrk) result(integral)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(n)
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	a
real(kind=RKIND),	intent(in)	::	b
real(kind=RKIND),	intent(inout)	::	wrk(n)

Return Value real(kind=rkind)

Subroutines

public pure subroutine bispeu(tx, nx, ty, ny, c, kx, ky, x, y, z, m, wrk, lwrk, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(out)	::	z(m)
integer,	intent(in)	::	m
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(out)	::	ier

public pure subroutine bispev(tx, nx, ty, ny, c, kx, ky, x, mx, y, my, z, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
real(kind=RKIND),	intent(in)	::	x(mx)
integer,	intent(in)	::	mx
real(kind=RKIND),	intent(in)	::	y(my)
integer,	intent(in)	::	my
real(kind=RKIND),	intent(out)	::	z(mx*my)
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine clocur(iopt, ipar, idim, m, u, mx, x, w, k, s, nest, n, t, nc, c, fp, wrk, lwrk, iwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	ipar
integer,	intent(in)	::	idim
integer,	intent(in)	::	m
real(kind=RKIND),	intent(inout)	::	u(m)
integer,	intent(in)	::	mx
real(kind=RKIND),	intent(in)	::	x(mx)
real(kind=RKIND),	intent(in)	::	w(m)
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nest
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	t(nest)
integer,	intent(in)	::	nc
real(kind=RKIND),	intent(inout)	::	c(nc)
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(nest)
integer,	intent(inout)	::	ier

public pure subroutine cocosp(m, x, y, w, n, t, e, maxtr, maxbin, c, sq, sx, bind, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(in)	::	w(m)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	t(n)
real(kind=RKIND),	intent(inout)	::	e(n)
integer,	intent(in)	::	maxtr
integer,	intent(in)	::	maxbin
real(kind=RKIND),	intent(out)	::	c(n)
real(kind=RKIND),	intent(out)	::	sq
real(kind=RKIND),	intent(out)	::	sx(m)
logical,	intent(out)	::	bind(n)
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine concon(iopt, m, x, y, w, v, s, nest, maxtr, maxbin, n, t, c, sq, sx, bind, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(in)	::	w(m)
real(kind=RKIND),	intent(inout)	::	v(m)
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nest
integer,	intent(in)	::	maxtr
integer,	intent(in)	::	maxbin
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	t(nest)
real(kind=RKIND),	intent(inout)	::	c(nest)
real(kind=RKIND),	intent(out)	::	sq
real(kind=RKIND),	intent(inout)	::	sx(m)
logical,	intent(inout)	::	bind(nest)
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public subroutine concur(iopt, idim, m, u, mx, x, xx, w, ib, db, nb, ie, de, ne, k, s, nest, n, t, nc, c, np, cp, fp, wrk, lwrk, iwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	idim
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	u(m)
integer,	intent(in)	::	mx
real(kind=RKIND),	intent(in)	::	x(mx)
real(kind=RKIND),	intent(inout)	::	xx(mx)
real(kind=RKIND),	intent(in)	::	w(m)
integer,	intent(in)	::	ib
real(kind=RKIND),	intent(in)	::	db(nb)
integer,	intent(in)	::	nb
integer,	intent(in)	::	ie
real(kind=RKIND),	intent(in)	::	de(ne)
integer,	intent(in)	::	ne
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nest
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	t(nest)
integer,	intent(in)	::	nc
real(kind=RKIND),	intent(inout)	::	c(nc)
integer,	intent(in)	::	np
real(kind=RKIND),	intent(inout)	::	cp(np)
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(nest)
integer,	intent(out)	::	ier

public pure subroutine cualde(idim, t, n, c, nc, k1, u, d, nd, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	idim
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(nc)
integer,	intent(in)	::	nc
integer,	intent(in)	::	k1
real(kind=RKIND),	intent(in)	::	u
real(kind=RKIND),	intent(out)	::	d(nd)
integer,	intent(in)	::	nd
integer,	intent(out)	::	ier

public pure subroutine curev(idim, t, n, c, nc, k, u, m, x, mx, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	idim
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(nc)
integer,	intent(in)	::	nc
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	u(m)
integer,	intent(in)	::	m
real(kind=RKIND),	intent(out)	::	x(idim,m)
integer,	intent(in)	::	mx
integer,	intent(out)	::	ier

public pure subroutine curfit(iopt, m, x, y, w, xb, xe, k, s, nest, n, t, c, fp, wrk, lwrk, iwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(in)	::	w(m)
real(kind=RKIND),	intent(in)	::	xb
real(kind=RKIND),	intent(in)	::	xe
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nest
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	t(nest)
real(kind=RKIND),	intent(inout)	::	c(nest)
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(nest)
integer,	intent(out)	::	ier

public pure subroutine fourco(t, n, c, alfa, m, ress, resc, wrk1, wrk2, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(n)
real(kind=RKIND),	intent(in)	::	alfa(m)
integer,	intent(in)	::	m
real(kind=RKIND),	intent(out)	::	ress(m)
real(kind=RKIND),	intent(out)	::	resc(m)
real(kind=RKIND),	intent(inout)	::	wrk1(n)
real(kind=RKIND),	intent(inout)	::	wrk2(n)
integer,	intent(out)	::	ier

public pure subroutine insert(iopt, t, n, c, k, x, tt, nn, cc, nest, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
real(kind=RKIND),	intent(in)	::	t(nest)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(nest)
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	x
real(kind=RKIND),	intent(out)	::	tt(nest)
integer,	intent(out)	::	nn
real(kind=RKIND),	intent(out)	::	cc(nest)
integer,	intent(in)	::	nest
integer,	intent(out)	::	ier

public pure subroutine insert_inplace(iopt, t, n, c, k, x, nest, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
real(kind=RKIND),	intent(inout)	::	t(nest)
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	c(nest)
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	x
integer,	intent(in)	::	nest
integer,	intent(out)	::	ier

public pure subroutine parcur(iopt, ipar, idim, m, u, mx, x, w, ub, ue, k, s, nest, n, t, nc, c, fp, wrk, lwrk, iwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	ipar
integer,	intent(in)	::	idim
integer,	intent(in)	::	m
real(kind=RKIND),	intent(inout)	::	u(m)
integer,	intent(in)	::	mx
real(kind=RKIND),	intent(in)	::	x(idim,m)
real(kind=RKIND),	intent(inout)	::	w(m)
real(kind=RKIND),	intent(inout)	::	ub
real(kind=RKIND),	intent(inout)	::	ue
integer,	intent(in)	::	k
real(kind=RKIND),	intent(inout)	::	s
integer,	intent(in)	::	nest
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	t(nest)
integer,	intent(in)	::	nc
real(kind=RKIND),	intent(inout)	::	c(nc)
real(kind=RKIND),	intent(out)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(nest)
integer,	intent(out)	::	ier

public pure subroutine parder(tx, nx, ty, ny, c, kx, ky, nux, nuy, x, mx, y, my, z, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
integer,	intent(in)	::	nux
integer,	intent(in)	::	nuy
real(kind=RKIND),	intent(in)	::	x(mx)
integer,	intent(in)	::	mx
real(kind=RKIND),	intent(in)	::	y(my)
integer,	intent(in)	::	my
real(kind=RKIND),	intent(out)	::	z(mx*my)
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine pardeu(tx, nx, ty, ny, c, kx, ky, nux, nuy, x, y, z, m, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
integer,	intent(in)	::	nux
integer,	intent(in)	::	nuy
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(out)	::	z(m)
integer,	intent(in)	::	m
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine pardtc(tx, nx, ty, ny, c, kx, ky, nux, nuy, newc, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
integer,	intent(in)	::	nux
integer,	intent(in)	::	nuy
real(kind=RKIND),	intent(out)	::	newc((nx-kx-1)*(ny-ky-1))
integer,	intent(out)	::	ier

public pure subroutine parsur(iopt, ipar, idim, mu, u, mv, v, f, s, nuest, nvest, nu, tu, nv, tv, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	ipar(2)
integer,	intent(in)	::	idim
integer,	intent(in)	::	mu
real(kind=RKIND),	intent(in)	::	u(mu)
integer,	intent(in)	::	mv
real(kind=RKIND),	intent(in)	::	v(mv)
real(kind=RKIND),	intent(in)	::	f(mumvidim)
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nuest
integer,	intent(in)	::	nvest
integer,	intent(inout)	::	nu
real(kind=RKIND),	intent(inout)	::	tu(nuest)
integer,	intent(inout)	::	nv
real(kind=RKIND),	intent(inout)	::	tv(nvest)
real(kind=RKIND),	intent(inout)	::	c((nuest-4)(nvest-4)idim)
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine percur(iopt, m, x, y, w, k, s, nest, n, t, c, fp, wrk, lwrk, iwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(in)	::	w(m)
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nest
integer,	intent(inout)	::	n
real(kind=RKIND),	intent(inout)	::	t(nest)
real(kind=RKIND),	intent(inout)	::	c(nest)
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(nest)
integer,	intent(inout)	::	ier

public subroutine pogrid(iopt, ider, mu, u, mv, v, z, z0, r, s, nuest, nvest, nu, tu, nv, tv, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt(3)
integer,	intent(in)	::	ider(2)
integer,	intent(in)	::	mu
real(kind=RKIND),	intent(in)	::	u(mu)
integer,	intent(in)	::	mv
real(kind=RKIND),	intent(in)	::	v(mv)
real(kind=RKIND),	intent(in)	::	z(mu*mv)
real(kind=RKIND),	intent(in)	::	z0
real(kind=RKIND),	intent(in)	::	r
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nuest
integer,	intent(in)	::	nvest
integer,	intent(inout)	::	nu
real(kind=RKIND),	intent(inout)	::	tu(nuest)
integer,	intent(inout)	::	nv
real(kind=RKIND),	intent(inout)	::	tv(nvest)
real(kind=RKIND),	intent(inout)	::	c((nuest-4)*(nvest-4))
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine polar(iopt, m, x, y, z, w, rad, s, nuest, nvest, eps, nu, tu, nv, tv, u, v, c, fp, wrk1, lwrk1, wrk2, lwrk2, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt(3)
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(in)	::	y(m)
real(kind=RKIND),	intent(in)	::	z(m)
real(kind=RKIND),	intent(in)	::	w(m)
procedure(boundary)		::	rad
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nuest
integer,	intent(in)	::	nvest
real(kind=RKIND),	intent(in)	::	eps
integer,	intent(out)	::	nu
real(kind=RKIND),	intent(out)	::	tu(nuest)
integer,	intent(out)	::	nv
real(kind=RKIND),	intent(out)	::	tv(nvest)
real(kind=RKIND),	intent(out)	::	u(m)
real(kind=RKIND),	intent(out)	::	v(m)
real(kind=RKIND),	intent(out)	::	c((nuest-4)*(nvest-4))
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk1(lwrk1)
integer,	intent(in)	::	lwrk1
real(kind=RKIND),	intent(inout)	::	wrk2(lwrk2)
integer,	intent(in)	::	lwrk2
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine profil(iopt, tx, nx, ty, ny, c, kx, ky, u, nu, cu, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
real(kind=RKIND),	intent(in)	::	tx(nx)
integer,	intent(in)	::	nx
real(kind=RKIND),	intent(in)	::	ty(ny)
integer,	intent(in)	::	ny
real(kind=RKIND),	intent(in)	::	c((nx-kx-1)*(ny-ky-1))
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
real(kind=RKIND),	intent(in)	::	u
integer,	intent(in)	::	nu
real(kind=RKIND),	intent(out)	::	cu(nu)
integer,	intent(out)	::	ier

public pure subroutine regrid(iopt, mx, x, my, y, z, xb, xe, yb, ye, kx, ky, s, nxest, nyest, nx, tx, ny, ty, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	mx
real(kind=RKIND),	intent(in)	::	x(mx)
integer,	intent(in)	::	my
real(kind=RKIND),	intent(in)	::	y(my)
real(kind=RKIND),	intent(in)	::	z(mx*my)
real(kind=RKIND),	intent(in)	::	xb
real(kind=RKIND),	intent(in)	::	xe
real(kind=RKIND),	intent(in)	::	yb
real(kind=RKIND),	intent(in)	::	ye
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nxest
integer,	intent(in)	::	nyest
integer,	intent(inout)	::	nx
real(kind=RKIND),	intent(inout)	::	tx(nxest)
integer,	intent(inout)	::	ny
real(kind=RKIND),	intent(inout)	::	ty(nyest)
real(kind=RKIND),	intent(inout)	::	c((nxest-kx-1)*(nyest-ky-1))
real(kind=RKIND),	intent(out)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine spalde(t, n, c, k1, x, d, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(n)
integer,	intent(in)	::	k1
real(kind=RKIND),	intent(in)	::	x
real(kind=RKIND),	intent(out)	::	d(k1)
integer,	intent(out)	::	ier

public pure subroutine spgrid(iopt, ider, mu, u, mv, v, r, r0, r1, s, nuest, nvest, nu, tu, nv, tv, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt(3)
integer,	intent(in)	::	ider(4)
integer,	intent(in)	::	mu
real(kind=RKIND),	intent(in)	::	u(mu)
integer,	intent(in)	::	mv
real(kind=RKIND),	intent(in)	::	v(mv)
real(kind=RKIND),	intent(in)	::	r(mu*mv)
real(kind=RKIND),	intent(in)	::	r0
real(kind=RKIND),	intent(in)	::	r1
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nuest
integer,	intent(in)	::	nvest
integer,	intent(inout)	::	nu
real(kind=RKIND),	intent(inout)	::	tu(nuest)
integer,	intent(inout)	::	nv
real(kind=RKIND),	intent(inout)	::	tv(nvest)
real(kind=RKIND),	intent(inout)	::	c((nuest-4)*(nvest-4))
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine sphere(iopt, m, teta, phi, r, w, s, ntest, npest, eps, nt, tt, np, tp, c, fp, wrk1, lwrk1, wrk2, lwrk2, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	m
real(kind=RKIND),	intent(in)	::	teta(m)
real(kind=RKIND),	intent(in)	::	phi(m)
real(kind=RKIND),	intent(in)	::	r(m)
real(kind=RKIND),	intent(in)	::	w(m)
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	ntest
integer,	intent(in)	::	npest
real(kind=RKIND),	intent(in)	::	eps
integer,	intent(inout)	::	nt
real(kind=RKIND),	intent(inout)	::	tt(ntest)
integer,	intent(inout)	::	np
real(kind=RKIND),	intent(inout)	::	tp(npest)
real(kind=RKIND),	intent(inout)	::	c((ntest-4)*(npest-4))
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk1(lwrk1)
integer,	intent(in)	::	lwrk1
real(kind=RKIND),	intent(inout)	::	wrk2(lwrk2)
integer,	intent(in)	::	lwrk2
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine splder(t, n, c, k, nu, x, y, m, e, wrk, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(n)
integer,	intent(in)	::	k
integer,	intent(in)	::	nu
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(out)	::	y(m)
integer,	intent(in)	::	m
integer,	intent(in)	::	e
real(kind=RKIND),	intent(inout)	::	wrk(n)
integer,	intent(out)	::	ier

public pure subroutine splev(t, n, c, k, x, y, m, e, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(n)
integer,	intent(in)	::	k
real(kind=RKIND),	intent(in)	::	x(m)
real(kind=RKIND),	intent(out)	::	y(m)
integer,	intent(in)	::	m
integer,	intent(in)	::	e
integer,	intent(out)	::	ier

public pure subroutine sproot(t, n, c, zeros, mest, m, ier)

Arguments

Type	Intent		Name
real(kind=RKIND),	intent(in)	::	t(n)
integer,	intent(in)	::	n
real(kind=RKIND),	intent(in)	::	c(n)
real(kind=RKIND),	intent(out)	::	zeros(mest)
integer,	intent(in)	::	mest
integer,	intent(out)	::	m
integer,	intent(out)	::	ier

public pure subroutine surev(idim, tu, nu, tv, nv, c, u, mu, v, mv, f, mf, wrk, lwrk, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	idim
real(kind=RKIND),	intent(in)	::	tu(nu)
integer,	intent(in)	::	nu
real(kind=RKIND),	intent(in)	::	tv(nv)
integer,	intent(in)	::	nv
real(kind=RKIND),	intent(in)	::	c((nu-4)(nv-4)idim)
real(kind=RKIND),	intent(in)	::	u(mu)
integer,	intent(in)	::	mu
real(kind=RKIND),	intent(in)	::	v(mv)
integer,	intent(in)	::	mv
real(kind=RKIND),	intent(out)	::	f(mf)
integer,	intent(in)	::	mf
real(kind=RKIND),	intent(inout)	::	wrk(lwrk)
integer,	intent(in)	::	lwrk
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

public pure subroutine surfit(iopt, m, x, y, z, w, xb, xe, yb, ye, kx, ky, s, nxest, nyest, nmax, eps, nx, tx, ny, ty, c, fp, wrk1, lwrk1, wrk2, lwrk2, iwrk, kwrk, ier)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iopt
integer,	intent(in)	::	m
real(kind=RKIND),	intent(inout)	::	x(m)
real(kind=RKIND),	intent(inout)	::	y(m)
real(kind=RKIND),	intent(in)	::	z(m)
real(kind=RKIND),	intent(in)	::	w(m)
real(kind=RKIND),	intent(in)	::	xb
real(kind=RKIND),	intent(in)	::	xe
real(kind=RKIND),	intent(in)	::	yb
real(kind=RKIND),	intent(in)	::	ye
integer,	intent(in)	::	kx
integer,	intent(in)	::	ky
real(kind=RKIND),	intent(in)	::	s
integer,	intent(in)	::	nxest
integer,	intent(in)	::	nyest
integer,	intent(in)	::	nmax
real(kind=RKIND),	intent(in)	::	eps
integer,	intent(inout)	::	nx
real(kind=RKIND),	intent(inout)	::	tx(nmax)
integer,	intent(inout)	::	ny
real(kind=RKIND),	intent(inout)	::	ty(nmax)
real(kind=RKIND),	intent(inout)	::	c((nxest-kx-1)*(nyest-ky-1))
real(kind=RKIND),	intent(inout)	::	fp
real(kind=RKIND),	intent(inout)	::	wrk1(lwrk1)
integer,	intent(in)	::	lwrk1
real(kind=RKIND),	intent(inout)	::	wrk2(lwrk2)
integer,	intent(in)	::	lwrk2
integer,	intent(inout)	::	iwrk(kwrk)
integer,	intent(in)	::	kwrk
integer,	intent(out)	::	ier

fitpack_core Module

Contents

Variables

Functions

Subroutines

Uses

Variables

Functions

public pure function FITPACK_MESSAGE(ierr) result(msg)

Arguments

Return Value character(len=:), allocatable

public elemental function FITPACK_SUCCESS(ierr)

Arguments

Return Value logical

public function dblint(tx, nx, ty, ny, c, kx, ky, xb, xe, yb, ye, wrk) result(dblint_res)

Arguments

Return Value real(kind=rkind)

public pure function evapol(tu, nu, tv, nv, c, rad, x, y) result(e_res)

Arguments

Return Value real(kind=rkind)

public function splint(t, n, c, k, a, b, wrk) result(integral)

Arguments

Return Value real(kind=rkind)

Subroutines

public pure subroutine bispeu(tx, nx, ty, ny, c, kx, ky, x, y, z, m, wrk, lwrk, ier)

Arguments

public pure subroutine bispev(tx, nx, ty, ny, c, kx, ky, x, mx, y, my, z, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine clocur(iopt, ipar, idim, m, u, mx, x, w, k, s, nest, n, t, nc, c, fp, wrk, lwrk, iwrk, ier)

Arguments

public pure subroutine cocosp(m, x, y, w, n, t, e, maxtr, maxbin, c, sq, sx, bind, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine concon(iopt, m, x, y, w, v, s, nest, maxtr, maxbin, n, t, c, sq, sx, bind, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public subroutine concur(iopt, idim, m, u, mx, x, xx, w, ib, db, nb, ie, de, ne, k, s, nest, n, t, nc, c, np, cp, fp, wrk, lwrk, iwrk, ier)

Arguments

public pure subroutine cualde(idim, t, n, c, nc, k1, u, d, nd, ier)

Arguments

public pure subroutine curev(idim, t, n, c, nc, k, u, m, x, mx, ier)

Arguments

public pure subroutine curfit(iopt, m, x, y, w, xb, xe, k, s, nest, n, t, c, fp, wrk, lwrk, iwrk, ier)

Arguments

public pure subroutine fourco(t, n, c, alfa, m, ress, resc, wrk1, wrk2, ier)

Arguments

public pure subroutine insert(iopt, t, n, c, k, x, tt, nn, cc, nest, ier)

Arguments

public pure subroutine insert_inplace(iopt, t, n, c, k, x, nest, ier)

Arguments

public pure subroutine parcur(iopt, ipar, idim, m, u, mx, x, w, ub, ue, k, s, nest, n, t, nc, c, fp, wrk, lwrk, iwrk, ier)

Arguments

public pure subroutine parder(tx, nx, ty, ny, c, kx, ky, nux, nuy, x, mx, y, my, z, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine pardeu(tx, nx, ty, ny, c, kx, ky, nux, nuy, x, y, z, m, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine pardtc(tx, nx, ty, ny, c, kx, ky, nux, nuy, newc, ier)

Arguments

public pure subroutine parsur(iopt, ipar, idim, mu, u, mv, v, f, s, nuest, nvest, nu, tu, nv, tv, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine percur(iopt, m, x, y, w, k, s, nest, n, t, c, fp, wrk, lwrk, iwrk, ier)

Arguments

public subroutine pogrid(iopt, ider, mu, u, mv, v, z, z0, r, s, nuest, nvest, nu, tu, nv, tv, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine polar(iopt, m, x, y, z, w, rad, s, nuest, nvest, eps, nu, tu, nv, tv, u, v, c, fp, wrk1, lwrk1, wrk2, lwrk2, iwrk, kwrk, ier)

Arguments

public pure subroutine profil(iopt, tx, nx, ty, ny, c, kx, ky, u, nu, cu, ier)

Arguments

public pure subroutine regrid(iopt, mx, x, my, y, z, xb, xe, yb, ye, kx, ky, s, nxest, nyest, nx, tx, ny, ty, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine spalde(t, n, c, k1, x, d, ier)

Arguments

public pure subroutine spgrid(iopt, ider, mu, u, mv, v, r, r0, r1, s, nuest, nvest, nu, tu, nv, tv, c, fp, wrk, lwrk, iwrk, kwrk, ier)

Arguments

public pure subroutine sphere(iopt, m, teta, phi, r, w, s, ntest, npest, eps, nt, tt, np, tp, c, fp, wrk1, lwrk1, wrk2, lwrk2, iwrk, kwrk, ier)

Arguments

public pure subroutine splder(t, n, c, k, nu, x, y, m, e, wrk, ier)

Arguments

public pure subroutine splev(t, n, c, k, x, y, m, e, ier)

Arguments

public pure subroutine sproot(t, n, c, zeros, mest, m, ier)

Arguments