SF_INTEGRATE Module


Uses

  • module~~sf_integrate~~UsesGraph module~sf_integrate SF_INTEGRATE module~gauss_quadrature GAUSS_QUADRATURE module~sf_integrate->module~gauss_quadrature

Used by

  • module~~sf_integrate~~UsedByGraph module~sf_integrate SF_INTEGRATE module~scifor SCIFOR module~scifor->module~sf_integrate module~sf_fft_fftpack SF_FFT_FFTPACK module~scifor->module~sf_fft_fftpack module~sf_special SF_SPECIAL module~scifor->module~sf_special module~sf_stat SF_STAT module~scifor->module~sf_stat module~sf_fft_fftpack->module~sf_integrate module~sf_special->module~sf_integrate module~sf_stat->module~sf_integrate

Interfaces

public interface trapz

  • private function d_trapz_ab_sample(f, a, b) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: f(:)
    real(kind=8) :: a
    real(kind=8) :: b

    Return Value real(kind=8)

  • private function c_trapz_ab_sample(f, a, b) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8) :: f(:)
    real(kind=8) :: a
    real(kind=8) :: b

    Return Value complex(kind=8)

  • private function d_trapz_dh_sample(f, dh) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: f(:)
    real(kind=8) :: dh

    Return Value real(kind=8)

  • private function c_trapz_dh_sample(f, dh) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8) :: f(:)
    real(kind=8) :: dh

    Return Value complex(kind=8)

  • private function d_trapz_nonlin_sample(f, x) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: f(:)
    real(kind=8) :: x(size(f))

    Return Value real(kind=8)

  • private function c_trapz_nonlin_sample(f, x) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8) :: f(:)
    real(kind=8) :: x(size(f))

    Return Value complex(kind=8)

  • private function d_trapz_ab_func(f, a, b, N) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value real(kind=8)
    real(kind=8), optional :: a
    real(kind=8), optional :: b
    integer, optional :: N

    Return Value real(kind=8)

  • private function c_trapz_ab_func(f, a, b, N) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value complex(kind=8)
    real(kind=8), optional :: a
    real(kind=8), optional :: b
    integer, optional :: N

    Return Value complex(kind=8)

  • private function d_trapz_nonlin_func(f, x) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value real(kind=8)
    real(kind=8), dimension(:) :: x

    Return Value real(kind=8)

  • private function c_trapz_nonlin_func(f, x) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value complex(kind=8)
    real(kind=8), dimension(:) :: x

    Return Value complex(kind=8)

public interface trapz2d

  • private function d_trapz2d_func(func, xrange, yrange, Nx, Ny) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value real(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer :: Nx
    integer :: Ny

    Return Value real(kind=8)

  • private function c_trapz2d_func(func, xrange, yrange, Nx, Ny) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value complex(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer :: Nx
    integer :: Ny

    Return Value complex(kind=8)

  • private function d_trapz2d_func_recursive(func, xrange, yrange, N0, iterative, threshold) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value real(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer, optional :: N0
    logical, optional :: iterative
    real(kind=8), optional :: threshold

    Return Value real(kind=8)

  • private function c_trapz2d_func_recursive(func, xrange, yrange, N0, iterative, threshold) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value complex(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer, optional :: N0
    logical, optional :: iterative
    real(kind=8), optional :: threshold

    Return Value complex(kind=8)

  • private function d_trapz2d_sample(func, dhx, dhy, xrange, yrange) result(int)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), dimension(:,:) :: func
    real(kind=8), optional :: dhx
    real(kind=8), optional :: dhy
    real(kind=8), optional, dimension(2) :: xrange
    real(kind=8), optional, dimension(2) :: yrange

    Return Value real(kind=8)

  • private function c_trapz2d_sample(func, dhx, dhy, xrange, yrange) result(int)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8), dimension(:,:) :: func
    real(kind=8), optional :: dhx
    real(kind=8), optional :: dhy
    real(kind=8), optional, dimension(2) :: xrange
    real(kind=8), optional, dimension(2) :: yrange

    Return Value complex(kind=8)

public interface simps

  • private function d_simpson_dh_sample(f, dh) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: f(:)
    real(kind=8) :: dh

    Return Value real(kind=8)

  • private function c_simpson_dh_sample(f, dh) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8) :: f(:)
    real(kind=8) :: dh

    Return Value complex(kind=8)

  • private function d_simpson_ab_sample(f, a, b) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: f(:)
    real(kind=8) :: a
    real(kind=8) :: b

    Return Value real(kind=8)

  • private function c_simpson_ab_sample(f, a, b) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8) :: f(:)
    real(kind=8) :: a
    real(kind=8) :: b

    Return Value complex(kind=8)

  • private function d_simpson_nonlin_sample(f, x) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: f(:)
    real(kind=8) :: x(size(f))

    Return Value real(kind=8)

  • private function c_simpson_nonlin_sample(f, x) result(sum)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8) :: f(:)
    real(kind=8) :: x(size(f))

    Return Value complex(kind=8)

  • private function d_simps_ab_func(f, a, b, N) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value real(kind=8)
    real(kind=8), optional :: a
    real(kind=8), optional :: b
    integer, optional :: N

    Return Value real(kind=8)

  • private function c_simps_ab_func(f, a, b, N) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value complex(kind=8)
    real(kind=8), optional :: a
    real(kind=8), optional :: b
    integer, optional :: N

    Return Value complex(kind=8)

  • private function d_simps_nonlin_func(f, x) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value real(kind=8)
    real(kind=8), dimension(:) :: x

    Return Value real(kind=8)

  • private function c_simps_nonlin_func(f, x) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function f(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value complex(kind=8)
    real(kind=8), dimension(:) :: x

    Return Value complex(kind=8)

public interface simps2d

  • private function d_simps2d_func(func, xrange, yrange, Nx, Ny) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value real(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer :: Nx
    integer :: Ny

    Return Value real(kind=8)

  • private function c_simps2d_func(func, xrange, yrange, Nx, Ny) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value complex(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer :: Nx
    integer :: Ny

    Return Value complex(kind=8)

  • private function d_simps2d_func_recursive(func, xrange, yrange, N0, iterative, threshold) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value real(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer, optional :: N0
    logical, optional :: iterative
    real(kind=8), optional :: threshold

    Return Value real(kind=8)

  • private function c_simps2d_func_recursive(func, xrange, yrange, N0, iterative, threshold) result(int)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: x
    Return Value complex(kind=8)
    real(kind=8), dimension(2) :: xrange
    real(kind=8), dimension(2) :: yrange
    integer, optional :: N0
    logical, optional :: iterative
    real(kind=8), optional :: threshold

    Return Value complex(kind=8)

  • private function d_simps2d_sample(func, dhx, dhy, xrange, yrange) result(int)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), dimension(:,:) :: func
    real(kind=8), optional :: dhx
    real(kind=8), optional :: dhy
    real(kind=8), optional, dimension(2) :: xrange
    real(kind=8), optional, dimension(2) :: yrange

    Return Value real(kind=8)

  • private function c_simps2d_sample(func, dhx, dhy, xrange, yrange) result(int)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8), dimension(:,:) :: func
    real(kind=8), optional :: dhx
    real(kind=8), optional :: dhy
    real(kind=8), optional, dimension(2) :: xrange
    real(kind=8), optional, dimension(2) :: yrange

    Return Value complex(kind=8)

public interface quad

  • private subroutine quad_func(func, a, b, epsabs, epsrel, key, inf, singular_endpoint, singular_points, cpole, alfa, beta, omega, weight_func, verbose, strict, result)

    Arguments

    Type IntentOptional Attributes Name
    private function func(x)
    Arguments
    Type IntentOptional Attributes Name
    real(kind=8) :: x
    Return Value real(kind=8)
    real(kind=8) :: a
    real(kind=8), optional :: b
    real(kind=8), optional :: epsabs
    real(kind=8), optional :: epsrel
    integer, optional :: key
    integer, optional :: inf
    logical, optional :: singular_endpoint
    real(kind=8), optional, dimension(:) :: singular_points
    real(kind=8), optional :: cpole
    real(kind=8), optional :: alfa
    real(kind=8), optional :: beta
    real(kind=8), optional :: omega
    integer, optional :: weight_func
    logical, optional :: verbose
    logical, optional :: strict
    real(kind=8) :: result

  • private subroutine quad_sample(fsample, a, b, epsabs, epsrel, key, singular_endpoint, singular_points, cpole, alfa, beta, omega, weight_func, verbose, Ninterp, result)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), dimension(:) :: fsample
    real(kind=8) :: a
    real(kind=8) :: b
    real(kind=8), optional :: epsabs
    real(kind=8), optional :: epsrel
    integer, optional :: key
    logical, optional :: singular_endpoint
    real(kind=8), optional, dimension(:) :: singular_points
    real(kind=8), optional :: cpole
    real(kind=8), optional :: alfa
    real(kind=8), optional :: beta
    real(kind=8), optional :: omega
    integer, optional :: weight_func
    logical, optional :: verbose
    integer, optional :: Ninterp
    real(kind=8) :: result

Functions

public function kronig(fi, wr, M) result(fr)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(M) :: fi
real(kind=8), dimension(M) :: wr
integer :: M

Return Value real(kind=8), dimension(M)


Subroutines

public subroutine get_quadrature_weights(wt, nrk)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(:) :: wt
integer, optional :: nrk