complex Bessel functions of third kind (Hankel) More...

#include "tbci/specfun/prototypes.h"
#include "tbci/specfun/prototypes2.h"

Include dependency graph for zbesh.c:

Macros
#define	log10 ((integer *)&equiv_4 + 8)

#define	dmach ((doublereal *)&equiv_4)

#define	large ((integer *)&equiv_4 + 2)

#define	small ((integer *)&equiv_4)

#define	diver ((integer *)&equiv_4 + 6)

#define	right ((integer *)&equiv_4 + 4)

#define	imach ((integer *)&equiv_0)

#define	output ((integer *)&equiv_0 + 3)

Functions
int	zuchk_ (doublereal yr, doublereal yi, integer nz, doublereal ascle, doublereal *tol)

int	zunhj_ (doublereal zr, doublereal zi, doublereal fnu, integer ipmtr, doublereal tol, doublereal phir, doublereal phii, doublereal argr, doublereal argi, doublereal zeta1r, doublereal zeta1i, doublereal zeta2r, doublereal zeta2i, doublereal asumr, doublereal asumi, doublereal bsumr, doublereal *bsumi)

int	zuoik_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer ikflg, integer n, doublereal yr, doublereal yi, integer nuf, doublereal tol, doublereal elim, doublereal alim)

int	zacon_ (double , double , double , integer , integer , integer , double , double , integer , double , double , double , double , double )

int	zbknu_ (double , double , double , integer , integer , double , double , integer , double , double , double *)

int	zbunk_ (double , double , double , integer , integer , integer , double , double , integer , double , double , double )

doublereal	d1mach_ (const integer *)

integer	i1mach_ (const integer *)

doublereal	myzabs_ (const doublereal , const doublereal )

int	zs1s2_ (doublereal zrr, doublereal zri, doublereal s1r, doublereal s1i, doublereal s2r, doublereal s2i, integer nz, doublereal ascle, doublereal alim, integer iuf)

int	zseri_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, doublereal tol, doublereal elim, doublereal *alim)

int	zmlri_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, doublereal *tol)

int	zasyi_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, doublereal rl, doublereal tol, doublereal elim, doublereal alim)

int	zbinu_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal cyr, doublereal cyi, integer nz, doublereal rl, doublereal fnul, doublereal tol, doublereal elim, doublereal *alim)

int	zshch_ (doublereal zr, doublereal zi, doublereal cshr, doublereal cshi, doublereal cchr, doublereal cchi)

int	zkscl_ (doublereal zrr, doublereal zri, doublereal fnu, integer n, doublereal yr, doublereal yi, integer nz, doublereal rzr, doublereal rzi, doublereal ascle, doublereal tol, doublereal elim)

int	zsqrt_ (const doublereal ar, const doublereal ai, doublereal br, doublereal bi)

int	zlog_ (doublereal ar, doublereal ai, doublereal br, doublereal bi, integer *ierr)

int	zdiv_ (doublereal ar, doublereal ai, doublereal br, doublereal bi, doublereal cr, doublereal ci)

int	zexp_ (const doublereal ar, const doublereal ai, doublereal br, doublereal bi)

int	zmlt_ (doublereal ar, doublereal ai, doublereal br, doublereal bi, doublereal cr, doublereal ci)

doublereal	dgamln_ (doublereal z__, integer ierr)

int	zbuni_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, integer nui, integer nlast, doublereal fnul, doublereal tol, doublereal elim, doublereal alim)

int	zwrsk_ (doublereal zrr, doublereal zri, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, doublereal cwr, doublereal cwi, doublereal tol, doublereal elim, doublereal *alim)

int	zuni1_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, integer nlast, doublereal fnul, doublereal tol, doublereal elim, doublereal *alim)

int	zuni2_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer n, doublereal yr, doublereal yi, integer nz, integer nlast, doublereal fnul, doublereal tol, doublereal elim, doublereal *alim)

int	xerror_ (char mess, integer nmess, integer l1, integer l2, ftnlen mess_len)

int	zunk1_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer mr, integer n, doublereal yr, doublereal yi, integer nz, doublereal tol, doublereal elim, doublereal alim)

int	zunk2_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer mr, integer n, doublereal yr, doublereal yi, integer nz, doublereal tol, doublereal elim, doublereal alim)

int	zunik_ (doublereal zrr, doublereal zri, doublereal fnu, integer ikflg, integer ipmtr, doublereal tol, integer init, doublereal phir, doublereal phii, doublereal zeta1r, doublereal zeta1i, doublereal zeta2r, doublereal zeta2i, doublereal sumr, doublereal sumi, doublereal cwrkr, doublereal *cwrki)

int	zbesh_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer m, integer n, doublereal cyr, doublereal cyi, integer nz, integer ierr)

int	zacai_ (doublereal zr, doublereal zi, doublereal fnu, integer kode, integer mr, integer n, doublereal yr, doublereal yi, integer nz, doublereal rl, doublereal tol, doublereal elim, doublereal *alim)

int	zrati_ (doublereal zr, doublereal zi, doublereal fnu, integer n, doublereal cyr, doublereal cyi, doublereal *tol)

Variables
static integer	c__4 = 4

static integer	c__15 = 15

static integer	c__16 = 16

static integer	c__5 = 5

static integer	c__14 = 14

static integer	c__9 = 9

static integer	c__1 = 1

static integer	c__2 = 2

static integer	c__25 = 25

static doublereal	c_b147 = .5

static doublereal	c_b148 = 0.

static integer	c__0 = 0

static doublereal	ascle

static doublereal	csgni

static doublereal	csgnr

static doublereal	cspni

static doublereal	cspnr

Detailed Description

complex Bessel functions of third kind (Hankel)

Definition in file zbesh.c.

Macro Definition Documentation

#define diver ((integer *)&equiv_4 + 6)

#define dmach ((doublereal *)&equiv_4)

Referenced by d1mach_().

#define imach ((integer *)&equiv_0)

Referenced by i1mach_().

#define large ((integer *)&equiv_4 + 2)

Referenced by CTensor< T >::calc_indx(), CTensor< T >::calc_offs(), TMatrix< T >::set_col_partial(), and TMatrix< T >::set_row_partial().

#define log10 ((integer *)&equiv_4 + 8)

#define output ((integer *)&equiv_0 + 3)

Referenced by i1mach_().

#define right ((integer *)&equiv_4 + 4)

Referenced by do_fbdmat_vec_mul(), nsList< T, S >::quick(), and F_BandMatrix< T >::transMult().

#define small ((integer *)&equiv_4)

Referenced by tbci_memalloc_cache< T >::find_by_sz().

Function Documentation

doublereal d1mach_ ( const integer * i__ )

Definition at line 576 of file zbesh.c.

References c__1, c__2, c__25, dmach, and xerror_().

Referenced by dgamln_(), zacai_(), zacon_(), zairy_(), zasyi_(), zbesh_(), zbesi_(), zbesj_(), zbesk_(), zbesy_(), zbknu_(), zbuni_(), zmlri_(), zseri_(), zunhj_(), zuni1_(), zuni2_(), zunik_(), zunk1_(), zunk2_(), zuoik_(), and zwrsk_().

doublereal dgamln_	(	doublereal *	z__,
		integer *	ierr
	)

Definition at line 1019 of file zbesh.c.

References abs, c__14, c__4, c__5, d1mach_(), i1mach_(), log(), max(), min, and real.

Referenced by zbknu_(), zmlri_(), and zseri_().

integer i1mach_ ( const integer * i__ )

Definition at line 1206 of file zbesh.c.

References cilist::ciunit, e_wsfe(), imach, output, s_stop(), and s_wsfe().

Referenced by dgamln_(), zairy_(), zbesh_(), zbesi_(), zbesj_(), zbesk_(), zbesy_(), and zbknu_().

doublereal myzabs_	(	const doublereal *	zr,
		const doublereal *	zi
	)

Definition at line 1945 of file zbesh.c.

References abs, std::sqrt(), and v.

Referenced by zacai_(), zacon_(), zairy_(), zasyi_(), zbesh_(), zbesi_(), zbesj_(), zbesk_(), zbinu_(), zbknu_(), zbuni_(), zdiv_(), zkscl_(), zlog_(), zmlri_(), zrati_(), zs1s2_(), zseri_(), zsqrt_(), zunhj_(), zuni1_(), zuni2_(), zunk1_(), zunk2_(), zuoik_(), and zwrsk_().

int xerror_	(	char *	mess,
		integer *	nmess,
		integer *	l1,
		integer *	l2,
		ftnlen	mess_len
	)

Definition at line 1895 of file zbesh.c.

References c__1, c__9, do_lio(), e_wsfe(), e_wsle(), min, s_wsfe(), and s_wsle().

Referenced by d1mach_().

int zacai_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	mr,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	rl,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 1990 of file zbesh.c.

References arg(), ascle, c__1, cos(), csgni, csgnr, cspni, cspnr, d1mach_(), d_sign(), myzabs_(), pi, sin(), zasyi_(), zbknu_(), zmlri_(), zs1s2_(), and zseri_().

int zacon_	(	double *	zr,
		double *	zi,
		double *	fnu,
		integer *	kode,
		integer *	mr,
		integer *	n,
		double *	yr,
		double *	yi,
		integer *	nz,
		double *	rl,
		double *	fnul,
		double *	tol,
		double *	elim,
		double *	alim
	)

Definition at line 2131 of file zbesh.c.

References abs, arg(), ascle, c__1, c__2, cos(), csgni, csgnr, cspni, cspnr, d1mach_(), d_sign(), max(), min, myzabs_(), pi, sin(), zbinu_(), zbknu_(), zmlt_(), and zs1s2_().

Referenced by zbesh_(), and zbesk_().

int zasyi_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	rl,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 2391 of file zbesh.c.

References abs, arg(), c__1, cos(), d1mach_(), min, myzabs_(), pi, sin(), std::sqrt(), zdiv_(), zexp_(), zmlt_(), and zsqrt_().

Referenced by zacai_(), and zbinu_().

int zbesh_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	m,
		integer *	n,
		doublereal *	cyr,
		doublereal *	cyi,
		integer *	nz,
		integer *	ierr
	)

Definition at line 132 of file zbesh.c.

References abs, arg(), ascle, c__1, c__14, c__15, c__16, c__2, c__4, c__5, c__9, cos(), csgni, csgnr, d1mach_(), d_sign(), i1mach_(), log(), max(), min, myzabs_(), sin(), std::sqrt(), zacon_(), zbknu_(), zbunk_(), and zuoik_().

Referenced by besselh1(), besselh2(), and zbesy_().

int zbinu_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	cyr,
		doublereal *	cyi,
		integer *	nz,
		doublereal *	rl,
		doublereal *	fnul,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 2621 of file zbesh.c.

References abs, c__1, c__2, max(), myzabs_(), zasyi_(), zbuni_(), zmlri_(), zseri_(), zuoik_(), and zwrsk_().

Referenced by zacon_(), zbesi_(), and zbesj_().

int zbknu_	(	double *	zr,
		double *	zi,
		double *	fnu,
		integer *	kode,
		integer *	n,
		double *	yr,
		double *	yi,
		integer *	nz,
		double *	tol,
		double *	elim,
		double *	alim
	)

Definition at line 2792 of file zbesh.c.

References abs, ascle, atan(), c__1, c__14, c__2, c__5, c_b147, c_b148, cos(), d1mach_(), dgamln_(), exp(), i1mach_(), log(), max(), min, myzabs_(), pi, sin(), std::sqrt(), zdiv_(), zexp_(), zkscl_(), zlog_(), zmlt_(), zshch_(), zsqrt_(), and zuchk_().

int zbuni_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		integer *	nui,
		integer *	nlast,
		doublereal *	fnul,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 3512 of file zbesh.c.

References abs, ascle, c__1, c__2, d1mach_(), max(), myzabs_(), zuni1_(), and zuni2_().

Referenced by zbinu_().

int zbunk_	(	double *	zr,
		double *	zi,
		double *	fnu,
		integer *	kode,
		integer *	mr,
		integer *	n,
		double *	yr,
		double *	yi,
		integer *	nz,
		double *	tol,
		double *	elim,
		double *	alim
	)

Definition at line 3736 of file zbesh.c.

References abs, zunk1_(), and zunk2_().

Referenced by zbesh_(), and zbesk_().

int zdiv_	(	doublereal *	ar,
		doublereal *	ai,
		doublereal *	br,
		doublereal *	bi,
		doublereal *	cr,
		doublereal *	ci
	)

Definition at line 3778 of file zbesh.c.

References myzabs_().

Referenced by zasyi_(), zbknu_(), zrati_(), zseri_(), zunhj_(), and zunik_().

int zexp_	(	const doublereal *	ar,
		const doublereal *	ai,
		doublereal *	br,
		doublereal *	bi
	)

Definition at line 3799 of file zbesh.c.

References cos(), exp(), and sin().

Referenced by zairy_(), zasyi_(), zbknu_(), zmlri_(), and zs1s2_().

int zkscl_	(	doublereal *	zrr,
		doublereal *	zri,
		doublereal *	fnu,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	rzr,
		doublereal *	rzi,
		doublereal *	ascle,
		doublereal *	tol,
		doublereal *	elim
	)

Definition at line 3821 of file zbesh.c.

References cos(), exp(), log(), min, myzabs_(), sin(), zlog_(), and zuchk_().

Referenced by zbknu_().

int zlog_	(	doublereal *	ar,
		doublereal *	ai,
		doublereal *	br,
		doublereal *	bi,
		integer *	ierr
	)

Definition at line 3993 of file zbesh.c.

References abs, atan(), log(), and myzabs_().

Referenced by zbknu_(), zkscl_(), zmlri_(), zs1s2_(), zseri_(), zunhj_(), zunik_(), and zuoik_().

int zmlri_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	tol
	)

Definition at line 4064 of file zbesh.c.

References c__1, d1mach_(), dgamln_(), exp(), max(), min, myzabs_(), std::sqrt(), zexp_(), zlog_(), and zmlt_().

Referenced by zacai_(), and zbinu_().

int zmlt_	(	doublereal *	ar,
		doublereal *	ai,
		doublereal *	br,
		doublereal *	bi,
		doublereal *	cr,
		doublereal *	ci
	)

Definition at line 4328 of file zbesh.c.

Referenced by zacon_(), zasyi_(), zbknu_(), zmlri_(), and zseri_().

int zrati_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	n,
		doublereal *	cyr,
		doublereal *	cyi,
		doublereal *	tol
	)

Definition at line 4346 of file zbesh.c.

References arg(), max(), min, myzabs_(), std::sqrt(), and zdiv_().

Referenced by zwrsk_().

int zs1s2_	(	doublereal *	zrr,
		doublereal *	zri,
		doublereal *	s1r,
		doublereal *	s1i,
		doublereal *	s2r,
		doublereal *	s2i,
		integer *	nz,
		doublereal *	ascle,
		doublereal *	alim,
		integer *	iuf
	)

Definition at line 4524 of file zbesh.c.

References log(), max(), myzabs_(), zexp_(), and zlog_().

Referenced by zacai_(), zacon_(), zunk1_(), and zunk2_().

int zseri_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 4591 of file zbesh.c.

References ascle, c__1, cos(), d1mach_(), dgamln_(), exp(), min, myzabs_(), sin(), std::sqrt(), zdiv_(), zlog_(), zmlt_(), and zuchk_().

Referenced by zacai_(), and zbinu_().

int zshch_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	cshr,
		doublereal *	cshi,
		doublereal *	cchr,
		doublereal *	cchi
	)

Definition at line 4864 of file zbesh.c.

References cos(), cosh(), sin(), and sinh().

Referenced by zbknu_().

int zsqrt_	(	const doublereal *	ar,
		const doublereal *	ai,
		doublereal *	br,
		doublereal *	bi
	)

Definition at line 4891 of file zbesh.c.

References abs, atan(), cos(), myzabs_(), sin(), and std::sqrt().

Referenced by zairy_(), zasyi_(), zbknu_(), zunhj_(), and zunik_().

int zuchk_	(	doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	ascle,
		doublereal *	tol
	)

Definition at line 4965 of file zbesh.c.

References abs, max(), and min.

Referenced by zbknu_(), zkscl_(), zseri_(), zuni1_(), zuni2_(), zunk1_(), zunk2_(), and zuoik_().

int zunhj_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	ipmtr,
		doublereal *	tol,
		doublereal *	phir,
		doublereal *	phii,
		doublereal *	argr,
		doublereal *	argi,
		doublereal *	zeta1r,
		doublereal *	zeta1i,
		doublereal *	zeta2r,
		doublereal *	zeta2i,
		doublereal *	asumr,
		doublereal *	asumi,
		doublereal *	bsumr,
		doublereal *	bsumi
	)

Definition at line 4999 of file zbesh.c.

References abs, ac, atan(), c__1, cos(), d1mach_(), log(), myzabs_(), pi, pow_dd(), sin(), std::sqrt(), zdiv_(), zlog_(), and zsqrt_().

Referenced by zuni2_(), zunk2_(), and zuoik_().

int zuni1_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		integer *	nlast,
		doublereal *	fnul,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 5691 of file zbesh.c.

References abs, ascle, c__0, c__1, c__2, cos(), d1mach_(), exp(), log(), max(), min, myzabs_(), sin(), zuchk_(), zunik_(), and zuoik_().

Referenced by zbuni_().

int zuni2_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		integer *	nlast,
		doublereal *	fnul,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 5969 of file zbesh.c.

References abs, ascle, c__0, c__1, c__2, cos(), d1mach_(), exp(), log(), max(), min, myzabs_(), sin(), zairy_(), zuchk_(), zunhj_(), and zuoik_().

Referenced by zbuni_().

int zunik_	(	doublereal *	zrr,
		doublereal *	zri,
		doublereal *	fnu,
		integer *	ikflg,
		integer *	ipmtr,
		doublereal *	tol,
		integer *	init,
		doublereal *	phir,
		doublereal *	phii,
		doublereal *	zeta1r,
		doublereal *	zeta1i,
		doublereal *	zeta2r,
		doublereal *	zeta2i,
		doublereal *	sumr,
		doublereal *	sumi,
		doublereal *	cwrkr,
		doublereal *	cwrki
	)

Definition at line 6318 of file zbesh.c.

References abs, ac, c__1, d1mach_(), log(), zdiv_(), zlog_(), and zsqrt_().

Referenced by zuni1_(), zunk1_(), and zuoik_().

int zunk1_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	mr,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 6529 of file zbesh.c.

References abs, ascle, c__0, c__1, c__2, cos(), csgni, cspni, cspnr, d1mach_(), d_sign(), exp(), log(), max(), myzabs_(), pi, sin(), zs1s2_(), zuchk_(), and zunik_().

Referenced by zbunk_().

int zunk2_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	mr,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 7100 of file zbesh.c.

References abs, ascle, c__0, c__1, c__2, cos(), csgni, cspni, cspnr, d1mach_(), d_sign(), exp(), log(), max(), myzabs_(), pi, sin(), zairy_(), zs1s2_(), zuchk_(), and zunhj_().

Referenced by zbunk_().

int zuoik_	(	doublereal *	zr,
		doublereal *	zi,
		doublereal *	fnu,
		integer *	kode,
		integer *	ikflg,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nuf,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)

Definition at line 7759 of file zbesh.c.

References abs, ascle, c__1, cos(), d1mach_(), exp(), log(), max(), myzabs_(), sin(), zlog_(), zuchk_(), zunhj_(), and zunik_().

Referenced by zbesh_(), zbesk_(), zbinu_(), zuni1_(), and zuni2_().

int zwrsk_	(	doublereal *	zrr,
		doublereal *	zri,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	yr,
		doublereal *	yi,
		integer *	nz,
		doublereal *	cwr,
		doublereal *	cwi,
		doublereal *	tol,
		doublereal *	elim,
		doublereal *	alim
	)