m_psml_interp Module


Contents


Variables

TypeVisibility AttributesNameInitial
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 IntentOptional AttributesName
    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 IntentOptional AttributesName
public subroutine func(nquality, x, y, npts, r, val, debug)
Arguments
Type IntentOptional AttributesName
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 IntentOptional AttributesName
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