splines Module


Interfaces

public interface geo_spline

  • public subroutine geo_spline_real(x, y, xint, yint)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), dimension(:) :: x
    real, intent(in), dimension(:) :: y
    real, intent(in) :: xint
    real, intent(out) :: yint

  • public subroutine geo_spline_array(x, y, xint, yint)

    Arguments

    Type IntentOptional Attributes Name
    real, intent(in), dimension(:) :: x
    real, intent(in), dimension(:) :: y
    real, intent(in), dimension(:) :: xint
    real, intent(out), dimension(:) :: yint

Derived Types

type, public ::  spline

Components

Type Visibility Attributes Name Initial
integer, public :: n
real, public, dimension(:), pointer :: x
real, public, dimension(:), pointer :: y
real, public, dimension(:), pointer :: y2

type, public ::  periodic_spline

Components

Type Visibility Attributes Name Initial
integer, public :: n
real, public :: period
real, public, dimension(:), pointer :: x
real, public, dimension(:), pointer :: y
real, public, dimension(:), pointer :: y2

Functions

public function fitp_curv2(t, n, x, y, yp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
integer :: n
real :: x(n)
real :: y(n)
real :: yp(n)
real :: sigma

Return Value real

public function fitp_curvd(t, n, x, y, yp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
integer :: n
real :: x(n)
real :: y(n)
real :: yp(n)
real :: sigma

Return Value real

public function fitp_curvi(xl, xu, n, x, y, yp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: xl
real :: xu
integer :: n
real :: x(n)
real :: y(n)
real :: yp(n)
real :: sigma

Return Value real

public function fitp_curvp2(t, n, x, y, p, yp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
integer :: n
real, dimension(:) :: x
real, dimension(:) :: y
real :: p
real, dimension(:) :: yp
real :: sigma

Return Value real

public function fitp_curvpd(t, n, x, y, p, yp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
integer :: n
real :: x(n)
real :: y(n)
real :: p
real :: yp(n)
real :: sigma

Return Value real

public function fitp_curvpi(xl, xu, n, x, y, p, yp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: xl
real :: xu
integer :: n
real :: x(n)
real :: y(n)
real :: p
real :: yp(n)
real :: sigma

Return Value real

public function fitp_surf2(xx, yy, m, n, x, y, z, iz, zp, sigma)

Arguments

Type IntentOptional Attributes Name
real :: xx
real :: yy
integer :: m
integer :: n
real :: x(m)
real :: y(n)
real :: z(iz,n)
integer :: iz
real :: zp(m,n,3)
real :: sigma

Return Value real

public function fitp_intrvl(t, x, n)

Arguments

Type IntentOptional Attributes Name
real :: t
real :: x(n)
integer :: n

Return Value integer

public function fitp_intrvp(t, x, n, p, tp)

Arguments

Type IntentOptional Attributes Name
real :: t
real :: x(n)
integer :: n
real :: p
real :: tp

Return Value integer

public function dedge(a, r, n, iside)

Arguments

Type IntentOptional Attributes Name
real :: a(n)
real :: r(n)
integer :: n
integer :: iside

Return Value real


Subroutines

public subroutine fitp_curv1(n, x, y, slp1, slpn, islpsw, yp, temp, sigma, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: slp1
real :: slpn
integer :: islpsw
real :: yp(n)
real :: temp(n)
real :: sigma
integer :: ierr

public subroutine fitp_curvs(n, x, y, d, isw, s, eps, ys, ysp, sigma, temp, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: d(n)
integer :: isw
real :: s
real :: eps
real :: ys(n)
real :: ysp(n)
real :: sigma
real :: temp(n,9)
integer :: ierr

public subroutine fitp_curvp1(n, x, y, p, yp, temp, sigma, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real, dimension(:) :: x
real, dimension(:) :: y
real :: p
real, dimension(:) :: yp
real, dimension(:) :: temp
real :: sigma
integer :: ierr

public subroutine fitp_curvps(n, x, y, p, d, isw, s, eps, ys, ysp, sigma, temp, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: p
real :: d(n)
integer :: isw
real :: s
real :: eps
real :: ys(n)
real :: ysp(n)
real :: sigma
real :: temp(n,11)
integer :: ierr

public subroutine fitp_kurv1(n, x, y, slp1, slpn, islpsw, xp, yp, temp, s, sigma, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: slp1
real :: slpn
integer :: islpsw
real :: xp(n)
real :: yp(n)
real :: temp(n)
real :: s(n)
real :: sigma
integer :: ierr

public subroutine fitp_kurv2(t, xs, ys, n, x, y, xp, yp, s, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
real :: xs
real :: ys
integer :: n
real :: x(n)
real :: y(n)
real :: xp(n)
real :: yp(n)
real :: s(n)
real :: sigma

public subroutine fitp_kurvd(t, xs, ys, xst, yst, xstt, ystt, n, x, y, xp, yp, s, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
real :: xs
real :: ys
real :: xst
real :: yst
real :: xstt
real :: ystt
integer :: n
real :: x(n)
real :: y(n)
real :: xp(n)
real :: yp(n)
real :: s(n)
real :: sigma

public subroutine fitp_kurvp1(n, x, y, xp, yp, temp, s, sigma, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: xp(n)
real :: yp(n)
real :: temp(1)
real :: s(n)
real :: sigma
integer :: ierr

public subroutine fitp_kurvp2(t, xs, ys, n, x, y, xp, yp, s, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
real :: xs
real :: ys
integer :: n
real :: x(n)
real :: y(n)
real :: xp(n)
real :: yp(n)
real :: s(n)
real :: sigma

public subroutine fitp_kurvpd(t, xs, ys, xst, yst, xstt, ystt, n, x, y, xp, yp, s, sigma)

Arguments

Type IntentOptional Attributes Name
real :: t
real :: xs
real :: ys
real :: xst
real :: yst
real :: xstt
real :: ystt
integer :: n
real :: x(n)
real :: y(n)
real :: xp(n)
real :: yp(n)
real :: s(n)
real :: sigma

public subroutine fitp_surf1(m, n, x, y, z, iz, zx1, zxm, zy1, zyn, zxy11, zxym1, zxy1n, zxymn, islpsw, zp, temp, sigma, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: m
integer :: n
real :: x(m)
real :: y(n)
real :: z(iz,n)
integer :: iz
real :: zx1(n)
real :: zxm(n)
real :: zy1(m)
real :: zyn(m)
real :: zxy11
real :: zxym1
real :: zxy1n
real :: zxymn
integer :: islpsw
real :: zp(m,n,3)
real :: temp(n+n+m)
real :: sigma
integer :: ierr

public subroutine fitp_ceez(del1, del2, sigma, c1, c2, c3, n)

Arguments

Type IntentOptional Attributes Name
real :: del1
real :: del2
real :: sigma
real :: c1
real :: c2
real :: c3
integer :: n

public subroutine fitp_curvpp(n, x, y, p, d, isw, s, eps, ys, ysp, sigma, td, tsd1, hd, hsd1, hsd2, rd, rsd1, rsd2, rnm1, rn, v, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: p
real :: d(n)
integer :: isw
real :: s
real :: eps
real :: ys(n)
real :: ysp(n)
real :: sigma
real :: td(n)
real :: tsd1(n)
real :: hd(n)
real :: hsd1(n)
real :: hsd2(n)
real :: rd(n)
real :: rsd1(n)
real :: rsd2(n)
real :: rnm1(n)
real :: rn(n)
real :: v(n)
integer :: ierr

public subroutine fitp_curvss(n, x, y, d, isw, s, eps, ys, ysp, sigma, td, tsd1, hd, hsd1, hsd2, rd, rsd1, rsd2, v, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real :: x(n)
real :: y(n)
real :: d(n)
integer :: isw
real :: s
real :: eps
real :: ys(n)
real :: ysp(n)
real :: sigma
real :: td(n)
real :: tsd1(n)
real :: hd(n)
real :: hsd1(n)
real :: hsd2(n)
real :: rd(n)
real :: rsd1(n)
real :: rsd2(n)
real :: v(n)
integer :: ierr

public subroutine fitp_snhcsh(sinhm, coshm, x, isw)

Arguments

Type IntentOptional Attributes Name
real :: sinhm
real :: coshm
real :: x
integer :: isw

public subroutine fitp_terms(diag, sdiag, sigma, del)

Arguments

Type IntentOptional Attributes Name
real :: diag
real :: sdiag
real :: sigma
real :: del

public subroutine geo_spline_real(x, y, xint, yint)

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension(:) :: x
real, intent(in), dimension(:) :: y
real, intent(in) :: xint
real, intent(out) :: yint

public subroutine geo_spline_array(x, y, xint, yint)

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension(:) :: x
real, intent(in), dimension(:) :: y
real, intent(in), dimension(:) :: xint
real, intent(out), dimension(:) :: yint

public subroutine linear_interp_periodic(x, y, xint, yint, period)

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension(:) :: x
real, intent(in), dimension(:) :: y
real, intent(in), dimension(:) :: xint
real, intent(out), dimension(:) :: yint
real, intent(in), optional :: period