/Users/huttone/Devel/sedflux-new/sedflux/trunk/ew/utils/zbsubs.c File Reference

#include <eh_utils.h>
#include <math.h>
#include "f2c.h"

Go to the source code of this file.

Defines

#define DSIGN(a, b)   ( (b>0)?((a)>0?a:-(a)):((a)<=0?a:-(a)))

Functions

int zbesh_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *m, integer *n, doublereal *cyr, doublereal *cyi, integer *nz, integer *ierr)
int zbesi_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *cyr, doublereal *cyi, integer *nz, integer *ierr)
int zbesj_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *cyr, doublereal *cyi, integer *nz, integer *ierr)
int zbesk_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *cyr, doublereal *cyi, integer *nz, integer *ierr)
int zbesy_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *cyr, doublereal *cyi, integer *nz, doublereal *cwrkr, doublereal *cwrki, integer *ierr)
int zairy_ (doublereal *zr, doublereal *zi, integer *id, integer *kode, doublereal *air, doublereal *aii, integer *nz, integer *ierr)
int zbiry_ (doublereal *zr, doublereal *zi, integer *id, integer *kode, doublereal *bir, doublereal *bii, integer *ierr)
int zmlt_ (doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi, doublereal *cr, doublereal *ci)
int zdiv_ (doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi, doublereal *cr, doublereal *ci)
int zzzsqrt_ (doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi)
int zzzexp_ (doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi)
int zzzlog_ (doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi, integer *ierr)
doublereal zabs_ (doublereal *zr, doublereal *zi)
int zbknu_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *yr, doublereal *yi, integer *nz, doublereal *tol, doublereal *elim, doublereal *alim)
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 zshch_ (doublereal *zr, doublereal *zi, doublereal *cshr, doublereal *cshi, doublereal *cchr, doublereal *cchi)
int zrati_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *n, doublereal *cyr, doublereal *cyi, doublereal *tol)
int zs1s2_ (doublereal *zrr, doublereal *zri, doublereal *s1r, doublereal *s1i, doublereal *s2r, doublereal *s2i, integer *nz, doublereal *ascle, doublereal *alim, integer *iuf)
int zbunk_ (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 zmlri_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *yr, doublereal *yi, integer *nz, doublereal *tol)
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 zseri_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *n, doublereal *yr, doublereal *yi, integer *nz, doublereal *tol, doublereal *elim, doublereal *alim)
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 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_ (doublereal *zr, doublereal *zi, doublereal *fnu, integer *kode, integer *mr, integer *n, doublereal *yr, doublereal *yi, integer *nz, doublereal *rl, doublereal *fnul, 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)
doublereal dgamln_ (doublereal *z__, 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 zuchk_ (doublereal *yr, doublereal *yi, integer *nz, doublereal *ascle, doublereal *tol)
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 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 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 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 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)


Define Documentation

#define DSIGN ( a,
 )     ( (b>0)?((a)>0?a:-(a)):((a)<=0?a:-(a)))

Definition at line 17 of file zbsubs.c.

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


Function Documentation

doublereal dgamln_ ( doublereal z__,
integer ierr 
)

Definition at line 6070 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), max, and min.

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

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

Definition at line 9530 of file zbsubs.c.

References min.

Referenced by old_d1mach_(), and r1mach_().

doublereal zabs_ ( doublereal zr,
doublereal zi 
)

Definition at line 3086 of file zbsubs.c.

References abs.

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

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 6257 of file zbsubs.c.

References d1mach_(), DSIGN, zabs_(), zasyi_(), zbknu_(), zmlri_(), zs1s2_(), and zseri_().

Referenced by zairy_().

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

Definition at line 5601 of file zbsubs.c.

References abs, d1mach_(), DSIGN, max, min, zabs_(), zbinu_(), zbknu_(), zmlt_(), and zs1s2_().

Referenced by zbesh_(), and zbesk_().

int zairy_ ( doublereal zr,
doublereal zi,
integer id,
integer kode,
doublereal air,
doublereal aii,
integer nz,
integer ierr 
)

Definition at line 1913 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), k1, k2, max, min, zabs_(), zacai_(), zbknu_(), zzzexp_(), and zzzsqrt_().

Referenced by zuni2_(), and zunk2_().

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 5068 of file zbsubs.c.

References abs, d1mach_(), min, zabs_(), zdiv_(), zmlt_(), zzzexp_(), and zzzsqrt_().

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 37 of file zbsubs.c.

References abs, d1mach_(), DSIGN, i1mach_(), k1, k2, max, min, zabs_(), zacon_(), zbknu_(), zbunk_(), and zuoik_().

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

Definition at line 495 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), k1, k2, max, min, zabs_(), and zbinu_().

Referenced by zbesy_().

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

Definition at line 838 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), k1, k2, max, min, zabs_(), and zbinu_().

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

Definition at line 1177 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), k1, k2, max, min, zabs_(), zacon_(), zbknu_(), zbunk_(), and zuoik_().

Referenced by eh_kei_0(), and zbesy_().

int zbesy_ ( doublereal zr,
doublereal zi,
doublereal fnu,
integer kode,
integer n,
doublereal cyr,
doublereal cyi,
integer nz,
doublereal cwrkr,
doublereal cwrki,
integer ierr 
)

Definition at line 1557 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), k1, k2, max, min, zbesi_(), and zbesk_().

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 5879 of file zbsubs.c.

References abs, max, zabs_(), zasyi_(), zbuni_(), zmlri_(), zseri_(), zuoik_(), and zwrsk_().

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

int zbiry_ ( doublereal zr,
doublereal zi,
integer id,
integer kode,
doublereal bir,
doublereal bii,
integer ierr 
)

Definition at line 2416 of file zbsubs.c.

References abs, d1mach_(), i1mach_(), k1, k2, max, min, zabs_(), zbinu_(), zdiv_(), and zzzsqrt_().

int zbknu_ ( 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 3131 of file zbsubs.c.

References abs, d1mach_(), dgamln_(), i1mach_(), max, min, zabs_(), zdiv_(), zkscl_(), zmlt_(), zshch_(), zuchk_(), zzzexp_(), zzzlog_(), and zzzsqrt_().

Referenced by zacai_(), zacon_(), zairy_(), zbesh_(), zbesk_(), and zwrsk_().

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 8636 of file zbsubs.c.

References abs, d1mach_(), max, zabs_(), zuni1_(), and zuni2_().

Referenced by zbinu_().

int zbunk_ ( 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 4329 of file zbsubs.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 2885 of file zbsubs.c.

References zabs_().

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

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 3866 of file zbsubs.c.

References min, zabs_(), zuchk_(), and zzzlog_().

Referenced by zbknu_().

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

Definition at line 4379 of file zbsubs.c.

References d1mach_(), dgamln_(), max, min, zabs_(), zmlt_(), zzzexp_(), and zzzlog_().

Referenced by zacai_(), and zbinu_().

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

Definition at line 2866 of file zbsubs.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 4074 of file zbsubs.c.

References max, min, zabs_(), 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 4257 of file zbsubs.c.

References max, zabs_(), zzzexp_(), and zzzlog_().

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 4786 of file zbsubs.c.

References d1mach_(), dgamln_(), min, zabs_(), zdiv_(), zmlt_(), zuchk_(), and zzzlog_().

Referenced by zacai_(), and zbinu_().

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

Definition at line 4044 of file zbsubs.c.

Referenced by zbknu_().

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

Definition at line 6413 of file zbsubs.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 6670 of file zbsubs.c.

References abs, d1mach_(), zabs_(), zdiv_(), zzzlog_(), and zzzsqrt_().

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 8871 of file zbsubs.c.

References abs, d1mach_(), max, min, zabs_(), 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 9164 of file zbsubs.c.

References abs, d1mach_(), max, min, zabs_(), 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 6448 of file zbsubs.c.

References abs, d1mach_(), zdiv_(), zzzlog_(), and zzzsqrt_().

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 7373 of file zbsubs.c.

References abs, d1mach_(), DSIGN, max, zabs_(), 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 7961 of file zbsubs.c.

References abs, d1mach_(), DSIGN, max, zabs_(), 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 5307 of file zbsubs.c.

References abs, d1mach_(), max, zabs_(), zuchk_(), zunhj_(), zunik_(), and zzzlog_().

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 
)

Definition at line 4652 of file zbsubs.c.

References d1mach_(), zabs_(), zbknu_(), and zrati_().

Referenced by zbinu_().

int zzzexp_ ( doublereal ar,
doublereal ai,
doublereal br,
doublereal bi 
)

Definition at line 2988 of file zbsubs.c.

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

int zzzlog_ ( doublereal ar,
doublereal ai,
doublereal br,
doublereal bi,
integer ierr 
)

Definition at line 3012 of file zbsubs.c.

References abs, and zabs_().

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

int zzzsqrt_ ( doublereal ar,
doublereal ai,
doublereal br,
doublereal bi 
)

Definition at line 2908 of file zbsubs.c.

References abs, and zabs_().

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


Generated on Fri Jan 4 18:04:19 2008 for sedflux by  doxygen 1.5.2