psfun_utils_mod Module

  1. psfun_utils_mod.f90
  2. psfun_utils_mod

This modules contains some utility function that are used in the library.


Uses

    • psb_base_mod
  • module~~psfun_utils_mod~~UsesGraph module~psfun_utils_mod psfun_utils_mod psb_base_mod psb_base_mod module~psfun_utils_mod->psb_base_mod

Used by

  • module~~psfun_utils_mod~~UsedByGraph module~psfun_utils_mod psfun_utils_mod module~psfun_base_quadrature_mod psfun_base_quadrature_mod module~psfun_base_quadrature_mod->module~psfun_utils_mod module~psfun_z_utils_mod psfun_z_utils_mod module~psfun_z_utils_mod->module~psfun_utils_mod program~quadraturetest quadraturetest program~quadraturetest->module~psfun_utils_mod module~psfun_quadrature_mod psfun_quadrature_mod program~quadraturetest->module~psfun_quadrature_mod module~psfun_d_quadrature_mod psfun_d_quadrature_mod module~psfun_d_quadrature_mod->module~psfun_utils_mod module~psfun_d_quadrature_mod->module~psfun_base_quadrature_mod module~psfun_d_utils_mod psfun_d_utils_mod module~psfun_d_utils_mod->module~psfun_utils_mod program~utiltest utiltest program~utiltest->module~psfun_utils_mod module~psfun_z_quadrature_mod psfun_z_quadrature_mod module~psfun_z_quadrature_mod->module~psfun_utils_mod module~psfun_z_quadrature_mod->module~psfun_base_quadrature_mod module~psfun_z_quadrules_mod psfun_z_quadrules_mod module~psfun_z_quadrules_mod->module~psfun_z_quadrature_mod module~psfun_quadrature_mod->module~psfun_base_quadrature_mod module~psfun_quadrature_mod->module~psfun_d_quadrature_mod module~psfun_quadrature_mod->module~psfun_z_quadrature_mod

Contents

Interfaces


Interfaces

public interface ellipj

Returns the values of the Jacobi elliptic functions evaluated at real or complex argument u and parameter , . For , and the elliptic modulus.

  • public subroutine d_ellipj(u, L, sn, cn, dn)

    Arguments

    Type IntentOptional AttributesName
    real(kind=psb_dpk_), intent(in) :: u
    real(kind=psb_dpk_), intent(in) :: L
    real(kind=psb_dpk_), intent(out) :: sn
    real(kind=psb_dpk_), intent(out) :: cn
    real(kind=psb_dpk_), intent(out) :: dn

  • public recursive subroutine z_ellipj(u, L, sn, cn, dn, flag)

    Arguments

    Type IntentOptional AttributesName
    complex(kind=psb_dpk_), intent(in) :: u
    real(kind=psb_dpk_), intent(in) :: L
    complex(kind=psb_dpk_), intent(out) :: sn
    complex(kind=psb_dpk_), intent(out) :: cn
    complex(kind=psb_dpk_), intent(out) :: dn
    logical, intent(in), optional :: flag

public interface ellipkkp

Complete elliptic integral of the first kind, with complement. Returns the value of the complete elliptic integral of the first kind, evaluated at , , and the complementarity parameter .

  • public function ellipkkp(L) result(K)

    Arguments

    Type IntentOptional AttributesName
    real(kind=psb_dpk_), intent(in) :: L

    Return Value real(kind=psb_dpk_) (2)

public interface horner

Apply Horner rule to evaluate a polynomial

  • public function horner(coeffs, x) result(res)

    Arguments

    Type IntentOptional AttributesName
    real(kind=psb_dpk_), intent(in), dimension (:):: coeffs

    Coefficient of the polynomial
    real(kind=psb_dpk_), intent(in) :: x

    Where to evaluate

    Return Value real(kind=psb_dpk_)

    Result