TOMS_707.C File Reference

Algo 707 coll algos from ACM: confluent hypergeom fn. More...

#include "prototypes.h"
#include "prototypes2.h"
#include "f2c.h"

Include dependency graph for TOMS_707.C:

Go to the source code of this file.

Defines
#define	stcom_1   stcom_
Functions
int	aradd_ (const doublereal *a, const doublereal *b, doublereal *c__, const integer *l, const doublereal *rmax)
int	arsub_ (const doublereal *a, const doublereal *b, doublereal *c__, const integer *l, const doublereal *rmax)
int	armult_ (const doublereal *a, const doublereal *b, doublereal *c__, const integer *l, const doublereal *rmax)
int	arydiv_ (const doublereal *ar, const doublereal *ai, const doublereal *br, const doublereal *bi, doublecomplex *c__, const integer *l, const integer *lnchf, const doublereal *rmax, const integer *bit)
int	cmpadd_ (const doublereal *ar, const doublereal *ai, const doublereal *br, const doublereal *bi, doublereal *cr, doublereal *ci, const integer *l, const doublereal *rmax)
int	cmpmul_ (const doublereal *ar, const doublereal *ai, const doublereal *br, const doublereal *bi, doublereal *cr, doublereal *ci, const integer *l, const doublereal *rmax)
integer	bits_ (void)
doublereal	store_ (doublereal *x)
int	conv12_ (doublecomplex *cn, doublereal *cae)
int	conv21_ (doublereal *cae, doublecomplex *cn)
int	emult_ (doublereal *n1, doublereal *e1, doublereal *n2, doublereal *e2, doublereal *nf, doublereal *ef)
int	ecpmul_ (doublereal *a, doublereal *b, doublereal *c__)
int	eadd_ (doublereal *n1, doublereal *e1, doublereal *n2, doublereal *e2, doublereal *nf, doublereal *ef)
int	ecpdiv_ (doublereal *a, doublereal *b, doublereal *c__)
int	ediv_ (doublereal *n1, doublereal *e1, doublereal *n2, doublereal *e2, doublereal *nf, doublereal *ef)
int	esub_ (doublereal *n1, doublereal *e1, doublereal *n2, doublereal *e2, doublereal *nf, doublereal *ef)
VOID	chgf_ (doublecomplex *ret_val, const doublecomplex *a, const doublecomplex *b, const doublecomplex *z__, const integer *l, const integer *lnchf)
void	conhyp_ (doublecomplex *ret_val, const doublecomplex *a, const doublecomplex *b, const doublecomplex *z__, const integer *lnchf, const integer *ip)
int	cmpsub_ (doublereal *ar, doublereal *ai, doublereal *br, doublereal *bi, doublereal *cr, doublereal *ci, integer *l, doublereal *rmax)
int	MAIN__ (void)
int	sample_ (void)
Variables
struct {
doublereal   y
}	stcom_
static doublereal	c_b8 = 2.
static doublereal	c_b53 = 1.
static doublereal	c_b65 = 10.
static integer	c__7 = 7
static integer	c__1 = 1
static integer	c__9 = 9
static integer	c__3 = 3
static integer	c__2 = 2

---

Detailed Description

Algo 707 coll algos from ACM: confluent hypergeom fn.

Definition in file TOMS_707.C.

---

Define Documentation

#define stcom_1   stcom_

Definition at line 30 of file TOMS_707.C.

Referenced by store_().

---

Function Documentation

int aradd_	(	const doublereal *	a,
		const doublereal *	b,
		doublereal *	c__,
		const integer *	l,
		const doublereal *	rmax
	)

Definition at line 432 of file TOMS_707.C.

References abs, d_nint(), doublereal, and integer.

Referenced by arsub_(), cmpadd_(), and cmpmul_().

int armult_	(	const doublereal *	a,
		const doublereal *	b,
		doublereal *	c__,
		const integer *	l,
		const doublereal *	rmax
	)

Definition at line 746 of file TOMS_707.C.

References abs, d_int(), d_sign(), doublereal, and integer.

Referenced by chgf_(), and cmpmul_().

int arsub_	(	const doublereal *	a,
		const doublereal *	b,
		doublereal *	c__,
		const integer *	l,
		const doublereal *	rmax
	)

Definition at line 707 of file TOMS_707.C.

References aradd_(), doublereal, and integer.

Referenced by cmpmul_(), and cmpsub_().

int arydiv_	(	const doublereal *	ar,
		const doublereal *	ai,
		const doublereal *	br,
		const doublereal *	bi,
		doublecomplex *	c__,
		const integer *	l,
		const integer *	lnchf,
		const doublereal *	rmax,
		const integer *	bit
	)

Definition at line 919 of file TOMS_707.C.

References atan2(), conv12_(), conv21_(), d_lg10(), d_sign(), doublereal, eadd_(), ecpdiv_(), emult_(), doublecomplex::i, integer, log(), pow_dd(), and doublecomplex::r.

Referenced by chgf_().

integer bits_

(

void

)

Definition at line 205 of file TOMS_707.C.

References doublereal, integer, and store_().

Referenced by chgf_(), and conhyp_().

VOID chgf_	(	doublecomplex *	ret_val,
		const doublecomplex *	a,
		const doublecomplex *	b,
		const doublecomplex *	z__,
		const integer *	l,
		const integer *	lnchf
	)

Definition at line 278 of file TOMS_707.C.

References armult_(), arydiv_(), bits_(), cmpadd_(), cmpmul_(), d_imag(), d_int(), d_nint(), doublereal, doublecomplex::i, integer, max, pow_di(), doublecomplex::r, z_abs(), and z_div().

Referenced by conhyp_().

int cmpadd_	(	const doublereal *	ar,
		const doublereal *	ai,
		const doublereal *	br,
		const doublereal *	bi,
		doublereal *	cr,
		doublereal *	ci,
		const integer *	l,
		const doublereal *	rmax
	)

Definition at line 825 of file TOMS_707.C.

References aradd_().

Referenced by chgf_().

int cmpmul_	(	const doublereal *	ar,
		const doublereal *	ai,
		const doublereal *	br,
		const doublereal *	bi,
		doublereal *	cr,
		doublereal *	ci,
		const integer *	l,
		const doublereal *	rmax
	)

Definition at line 885 of file TOMS_707.C.

References aradd_(), armult_(), arsub_(), and doublereal.

Referenced by chgf_().

int cmpsub_	(	doublereal *	ar,
		doublereal *	ai,
		doublereal *	br,
		doublereal *	bi,
		doublereal *	cr,
		doublereal *	ci,
		integer *	l,
		doublereal *	rmax
	)

Definition at line 856 of file TOMS_707.C.

References arsub_().

void conhyp_	(	doublecomplex *	ret_val,
		const doublecomplex *	a,
		const doublecomplex *	b,
		const doublecomplex *	z__,
		const integer *	lnchf,
		const integer *	ip
	)

Definition at line 121 of file TOMS_707.C.

References abs, atan2(), bits_(), chgf_(), d_imag(), doublereal, doublecomplex::i, integer, log(), doublecomplex::r, sin(), z_abs(), and z_div().

Referenced by TBCI::HypergeometricM(), and MAIN__().

int conv12_	(	doublecomplex *	cn,
		doublereal *	cae
	)

Definition at line 1130 of file TOMS_707.C.

References abs, d_imag(), and doublecomplex::r.

Referenced by arydiv_().

int conv21_	(	doublereal *	cae,
		doublecomplex *	cn
	)

Definition at line 1186 of file TOMS_707.C.

References doublereal, doublecomplex::i, pow_dd(), and doublecomplex::r.

Referenced by arydiv_().

int eadd_	(	doublereal *	n1,
		doublereal *	e1,
		doublereal *	n2,
		doublereal *	e2,
		doublereal *	nf,
		doublereal *	ef
	)

Definition at line 1060 of file TOMS_707.C.

References abs, doublereal, and pow_dd().

Referenced by arydiv_(), ecpdiv_(), ecpmul_(), and esub_().

int ecpdiv_	(	doublereal *	a,
		doublereal *	b,
		doublereal *	c__
	)

Definition at line 1257 of file TOMS_707.C.

References doublereal, eadd_(), ecpmul_(), ediv_(), and emult_().

Referenced by arydiv_().

int ecpmul_	(	doublereal *	a,
		doublereal *	b,
		doublereal *	c__
	)

Definition at line 1225 of file TOMS_707.C.

References doublereal, eadd_(), emult_(), and esub_().

Referenced by ecpdiv_().

int ediv_	(	doublereal *	n1,
		doublereal *	e1,
		doublereal *	n2,
		doublereal *	e2,
		doublereal *	nf,
		doublereal *	ef
	)

Definition at line 1038 of file TOMS_707.C.

References abs.

Referenced by ecpdiv_().

int emult_	(	doublereal *	n1,
		doublereal *	e1,
		doublereal *	n2,
		doublereal *	e2,
		doublereal *	nf,
		doublereal *	ef
	)

Definition at line 1016 of file TOMS_707.C.

References abs.

Referenced by arydiv_(), ecpdiv_(), and ecpmul_().

int esub_	(	doublereal *	n1,
		doublereal *	e1,
		doublereal *	n2,
		doublereal *	e2,
		doublereal *	nf,
		doublereal *	ef
	)

Definition at line 1107 of file TOMS_707.C.

References doublereal, and eadd_().

Referenced by ecpmul_().

int MAIN__

(

void

)

Definition at line 1281 of file TOMS_707.C.

References conhyp_(), do_fio(), do_lio(), doublereal, e_rsle(), e_wsfe(), e_wsle(), f_open(), doublecomplex::i, integer, olist::oacc, olist::oblnk, olist::oerr, olist::ofm, olist::ofnm, olist::ofnmlen, olist::orl, olist::osta, olist::ounit, doublecomplex::r, s_rsle(), s_stop(), s_wsfe(), and s_wsle().

Referenced by sample_().

int sample_

(

void

)

Definition at line 1376 of file TOMS_707.C.

References MAIN__().

doublereal store_

(

doublereal *

x

)

Definition at line 230 of file TOMS_707.C.

References doublereal, and stcom_1.

Referenced by bits_().

---

Variable Documentation

integer c__1 = 1 [static]

Definition at line 38 of file TOMS_707.C.

integer c__2 = 2 [static]

Definition at line 41 of file TOMS_707.C.

integer c__3 = 3 [static]

Definition at line 40 of file TOMS_707.C.

integer c__7 = 7 [static]

Definition at line 37 of file TOMS_707.C.

integer c__9 = 9 [static]

Definition at line 39 of file TOMS_707.C.

doublereal c_b53 = 1. [static]

Definition at line 35 of file TOMS_707.C.

doublereal c_b65 = 10. [static]

Definition at line 36 of file TOMS_707.C.

doublereal c_b8 = 2. [static]

Definition at line 34 of file TOMS_707.C.

struct { ... } stcom_

doublereal y

Definition at line 27 of file TOMS_707.C.

Referenced by cgamma_(), TBCI::chisquare(), TBCI::Chisquare_2D(), TBCI::eig(), TBCI::grid_min(), TBCI::Grid_Min_2D(), TBCI::lev_mar(), TBCI::LM_fit_2D(), TBCI::LU_bkw_subst(), TBCI::LU_fwd_subst(), TBCI::LU_invert(), TBCI::LU_solve(), TBCI::QMR(), TBCI::sv_decomp(), and TBCI::Update().