TBCI Numerical high perf. C++ Library 2.8.0
zbesh.c File Reference

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

#include "tbci/specfun/prototypes.h"
#include "tbci/specfun/prototypes2.h"
Include dependency graph for zbesh.c:

Go to the source code of this file.

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

◆ diver

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

◆ dmach

#define dmach   ((doublereal *)&equiv_4)

Referenced by d1mach_().

◆ imach

#define imach   ((integer *)&equiv_0)

Referenced by i1mach_().

◆ large

◆ log10

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

Referenced by log10().

◆ output

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

Referenced by i1mach_().

◆ right

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

◆ small

#define small   ((integer *)&equiv_4)

Function Documentation

◆ d1mach_()

◆ dgamln_()

doublereal dgamln_ ( doublereal * z__,
integer * ierr )
extern

Definition at line 1019 of file zbesh.c.

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

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

◆ i1mach_()

integer i1mach_ ( const integer * i__)

Definition at line 1206 of file zbesh.c.

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

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

◆ myzabs_()

◆ xerror_()

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

Definition at line 1895 of file zbesh.c.

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

Referenced by d1mach_().

◆ zacai_()

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 )

◆ zacon_()

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(), doublereal, integer, max, min, myzabs_(), pi, real, sin(), zbinu_(), zbknu_(), zmlt_(), and zs1s2_().

Referenced by zbesh_(), and zbesk_().

◆ zasyi_()

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_(), doublereal, integer, min, myzabs_(), pi, real, sin(), sqrt(), zdiv_(), zexp_(), zmlt_(), and zsqrt_().

Referenced by zacai_(), and zbinu_().

◆ zbesh_()

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

◆ zbinu_()

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 )
extern

Definition at line 2621 of file zbesh.c.

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

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

◆ zbknu_()

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

◆ zbuni_()

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 )
extern

Definition at line 3512 of file zbesh.c.

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

Referenced by zbinu_().

◆ zbunk_()

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, doublereal, integer, zunk1_(), and zunk2_().

Referenced by zbesh_(), and zbesk_().

◆ zdiv_()

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

Definition at line 3778 of file zbesh.c.

References doublereal, and myzabs_().

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

◆ zexp_()

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

Definition at line 3799 of file zbesh.c.

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

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

◆ zkscl_()

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 )
extern

Definition at line 3821 of file zbesh.c.

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

Referenced by zbknu_().

◆ zlog_()

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

Definition at line 3993 of file zbesh.c.

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

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

◆ zmlri_()

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

Definition at line 4064 of file zbesh.c.

References c__1, d1mach_(), dgamln_(), doublereal, exp(), integer, max, min, myzabs_(), real, sqrt(), zexp_(), zlog_(), and zmlt_().

Referenced by zacai_(), and zbinu_().

◆ zmlt_()

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

Definition at line 4328 of file zbesh.c.

References doublereal.

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

◆ zrati_()

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(), doublereal, integer, max, min, myzabs_(), real, sqrt(), and zdiv_().

Referenced by zwrsk_().

◆ zs1s2_()

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

Definition at line 4524 of file zbesh.c.

References ascle, doublereal, integer, log(), max, myzabs_(), zexp_(), and zlog_().

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

◆ zseri_()

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_(), doublereal, exp(), integer, min, myzabs_(), real, sin(), sqrt(), zdiv_(), zlog_(), zmlt_(), and zuchk_().

Referenced by zacai_(), and zbinu_().

◆ zshch_()

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

Definition at line 4864 of file zbesh.c.

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

Referenced by zbknu_().

◆ zsqrt_()

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

Definition at line 4891 of file zbesh.c.

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

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

◆ zuchk_()

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

Definition at line 4965 of file zbesh.c.

References abs, ascle, doublereal, integer, max, and min.

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

◆ zunhj_()

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_(), doublereal, integer, log(), myzabs_(), pi, pow_dd(), sin(), sqrt(), zdiv_(), zlog_(), and zsqrt_().

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

◆ zuni1_()

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 )
extern

Definition at line 5691 of file zbesh.c.

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

Referenced by zbuni_().

◆ zuni2_()

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_(), doublereal, exp(), integer, log(), max, min, myzabs_(), real, sin(), zairy_(), zuchk_(), zunhj_(), and zuoik_().

Referenced by zbuni_().

◆ zunik_()

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 )
extern

Definition at line 6318 of file zbesh.c.

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

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

◆ zunk1_()

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 )
extern

Definition at line 6529 of file zbesh.c.

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

Referenced by zbunk_().

◆ zunk2_()

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(), doublereal, exp(), integer, log(), max, myzabs_(), pi, real, sin(), zairy_(), zs1s2_(), zuchk_(), and zunhj_().

Referenced by zbunk_().

◆ zuoik_()

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_(), doublereal, exp(), integer, log(), max, myzabs_(), real, sin(), zlog_(), zuchk_(), zunhj_(), and zunik_().

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

◆ zwrsk_()

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 )

Definition at line 8035 of file zbesh.c.

References ascle, c__1, c__2, cos(), d1mach_(), doublereal, integer, myzabs_(), sin(), zbknu_(), and zrati_().

Referenced by zbinu_().

Variable Documentation

◆ ascle

◆ c__0

integer c__0 = 0
static

Definition at line 27 of file zbesh.c.

Referenced by zuni1_(), zuni2_(), zunk1_(), and zunk2_().

◆ c__1

integer c__1 = 1
static

Definition at line 22 of file zbesh.c.

◆ c__14

integer c__14 = 14
static

Definition at line 20 of file zbesh.c.

◆ c__15

integer c__15 = 15
static

Definition at line 17 of file zbesh.c.

◆ c__16

integer c__16 = 16
static

Definition at line 18 of file zbesh.c.

◆ c__2

integer c__2 = 2
static

Definition at line 23 of file zbesh.c.

◆ c__25

integer c__25 = 25
static

Definition at line 24 of file zbesh.c.

Referenced by d1mach_().

◆ c__4

integer c__4 = 4
static

Definition at line 16 of file zbesh.c.

◆ c__5

integer c__5 = 5
static

Definition at line 19 of file zbesh.c.

◆ c__9

integer c__9 = 9
static

Definition at line 21 of file zbesh.c.

◆ c_b147

doublereal c_b147 = .5
static

Definition at line 25 of file zbesh.c.

Referenced by zbknu_().

◆ c_b148

doublereal c_b148 = 0.
static

Definition at line 26 of file zbesh.c.

Referenced by zbknu_().

◆ csgni

doublereal csgni
static

Definition at line 51 of file zbesh.c.

Referenced by zacai_(), zacon_(), zbesh_(), zbesi_(), zbesj_(), zunk1_(), and zunk2_().

◆ csgnr

doublereal csgnr
static

Definition at line 51 of file zbesh.c.

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

◆ cspni

doublereal cspni
static

Definition at line 51 of file zbesh.c.

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

◆ cspnr

doublereal cspnr
static

Definition at line 51 of file zbesh.c.

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