quadraturetest Program

  1. quadraturetest.F90
  2. quadraturetest

Uses

  • program~~quadraturetest~~UsesGraph program~quadraturetest quadraturetest psb_base_mod psb_base_mod program~quadraturetest->psb_base_mod module~psfun_utils_mod psfun_utils_mod program~quadraturetest->module~psfun_utils_mod module~psfun_quadrature_mod psfun_quadrature_mod program~quadraturetest->module~psfun_quadrature_mod module~psfun_utils_mod->psb_base_mod module~psfun_d_quadrature_mod psfun_d_quadrature_mod module~psfun_quadrature_mod->module~psfun_d_quadrature_mod module~psfun_base_quadrature_mod psfun_base_quadrature_mod module~psfun_quadrature_mod->module~psfun_base_quadrature_mod module~psfun_z_quadrature_mod psfun_z_quadrature_mod module~psfun_quadrature_mod->module~psfun_z_quadrature_mod module~psfun_d_quadrature_mod->psb_base_mod module~psfun_d_quadrature_mod->module~psfun_utils_mod module~psfun_d_quadrature_mod->module~psfun_base_quadrature_mod ogpf ogpf module~psfun_d_quadrature_mod->ogpf module~psfun_base_quadrature_mod->psb_base_mod module~psfun_base_quadrature_mod->module~psfun_utils_mod psb_krylov_mod psb_krylov_mod module~psfun_base_quadrature_mod->psb_krylov_mod psb_prec_mod psb_prec_mod module~psfun_base_quadrature_mod->psb_prec_mod module~psfun_z_quadrature_mod->psb_base_mod module~psfun_z_quadrature_mod->module~psfun_utils_mod module~psfun_z_quadrature_mod->module~psfun_base_quadrature_mod module~psfun_z_quadrature_mod->ogpf

Basic test for the quadrature routines from psfun_quadrature_mod


Calls

program~~quadraturetest~~CallsGraph program~quadraturetest quadraturetest psb_init psb_init program~quadraturetest->psb_init psb_exit psb_exit program~quadraturetest->psb_exit psb_get_errstatus psb_get_errstatus program~quadraturetest->psb_get_errstatus psb_info psb_info program~quadraturetest->psb_info

Contents

Variables

Functions

fun

Variables

Type AttributesNameInitial
integer(kind=psb_ipk_) :: N
complex(kind=psb_dpk_), allocatable, dimension(:):: c
type(psb_ctxt_type) :: ctxt
real(kind=psb_dpk_) :: eta
integer(kind=psb_ipk_) :: i
integer(kind=psb_ipk_) :: info
character(len=20) :: name
type(psfun_z_quadrature) :: quad
procedure(zquadrule), pointer:: quadformula
real(kind=psb_dpk_) :: rparams(2)
real(kind=psb_dpk_) :: sign
complex(kind=psb_dpk_), allocatable, dimension(:):: xi
procedure(zquadfun), pointer:: zfun

Functions

function fun(z) result(res)

Function to integrate

Arguments

Type IntentOptional AttributesName
complex(kind=psb_dpk_), intent(in) :: z

Return Value complex(kind=psb_dpk_)