m_psml_interp Module

Contents

Variables

nq interpolator

Interfaces

interpolate

Subroutines

set_interpolator set_default_interpolator dpnint1

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	save	::	nq	=	7
procedure(interpolate),	public,	pointer	::	interpolator	=>	null()

Interfaces

interface

• public subroutine interpolate(nquality, x, y, npts, r, val, debug)

  Arguments

  Type	Intent	Optional	Attributes		Name
  integer,	intent(in)			::	nquality
  real(kind=dp),	intent(in)			::	x(*)
  real(kind=dp),	intent(in)			::	y(*)
  integer,	intent(in)			::	npts
  real(kind=dp),	intent(in)			::	r
  real(kind=dp),	intent(out)			::	val
  logical,	intent(in)			::	debug

Subroutines

public subroutine set_interpolator(func, nquality)

Arguments

Type	Intent	Optional	Attributes		Name
public subroutine func(nquality, x, y, npts, r, val, debug) Arguments Type Intent Optional Attributes Name integer, intent(in) :: nquality real(kind=dp), intent(in) :: x(*) real(kind=dp), intent(in) :: y(*) integer, intent(in) :: npts real(kind=dp), intent(in) :: r real(kind=dp), intent(out) :: val logical, intent(in) :: debug
integer,	intent(in)			::	nquality

public subroutine set_default_interpolator()

Arguments

None

private subroutine dpnint1(npoly, xx, yy, nn, r, val, debug)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	npoly
real(kind=dp),	intent(in)			::	xx(*)
real(kind=dp),	intent(in)			::	yy(*)
integer,	intent(in)			::	nn
real(kind=dp),	intent(in)			::	r
real(kind=dp),	intent(out)			::	val
logical,	intent(in)			::	debug