TOMS_707.C File Reference

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

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

Include dependency graph for TOMS_707.C:

Go to the source code of this file.

Classes
struct	[struct].stcom_

Macros
#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	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.

Macro Definition Documentation

stcom_1

#define stcom_1   stcom_

Definition at line 30 of file TOMS_707.C.

Referenced by store_().

Function Documentation

aradd_()

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 a, abs, aradd_(), b, d_nint(), doublereal, and integer.

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

armult_()

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 a, abs, armult_(), b, c_b53, d_int(), d_sign(), doublereal, and integer.

Referenced by armult_(), chgf_(), and cmpmul_().

arsub_()

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 a, aradd_(), arsub_(), b, doublereal, and integer.

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

arydiv_()

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 arydiv_(), atan2(), c_b65, c_b8, conv12_(), conv21_(), d_lg10(), d_sign(), doublecomplex, doublereal, eadd_(), ecpdiv_(), emult_(), doublecomplex::i, integer, log(), pow_dd(), doublecomplex::r, and x.

Referenced by arydiv_(), and chgf_().

bits_()

integer bits_ ( void )

extern

Definition at line 205 of file TOMS_707.C.

References bits_(), doublereal, integer, and store_().

Referenced by bits_(), chgf_(), and conhyp_().

chgf_()

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 a, armult_(), arydiv_(), b, bits_(), c_b8, chgf_(), cmpadd_(), cmpmul_(), d_imag(), d_int(), d_nint(), doublecomplex, doublereal, doublecomplex::i, integer, max, pow_di(), doublecomplex::r, return, VOID, z_abs(), and z_div().

Referenced by chgf_(), and conhyp_().

cmpadd_()

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_(), cmpadd_(), doublereal, and integer.

Referenced by chgf_(), and cmpadd_().

cmpmul_()

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_(), cmpmul_(), doublereal, and integer.

Referenced by chgf_(), and cmpmul_().

cmpsub_()

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_(), cmpsub_(), doublereal, and integer.

Referenced by cmpsub_().

conhyp_()

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 a, abs, atan2(), b, bits_(), chgf_(), conhyp_(), d_imag(), doublecomplex, doublereal, doublecomplex::i, integer, log(), doublecomplex::r, return, sin(), z_abs(), and z_div().

Referenced by conhyp_(), HypergeometricM(), HypergeometricM(), and MAIN__().

conv12_()

int conv12_ ( doublecomplex * cn, doublereal * cae )

extern

Definition at line 1130 of file TOMS_707.C.

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

Referenced by arydiv_(), and conv12_().

conv21_()

int conv21_	(	doublereal *	cae,
		doublecomplex *	cn )

Definition at line 1186 of file TOMS_707.C.

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

Referenced by arydiv_(), and conv21_().

eadd_()

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, c_b65, doublereal, eadd_(), and pow_dd().

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

ecpdiv_()

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

extern

Definition at line 1257 of file TOMS_707.C.

References a, b, doublereal, eadd_(), ecpdiv_(), ecpmul_(), ediv_(), and emult_().

Referenced by arydiv_(), and ecpdiv_().

ecpmul_()

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

extern

Definition at line 1225 of file TOMS_707.C.

References a, b, doublereal, eadd_(), ecpmul_(), emult_(), and esub_().

Referenced by ecpdiv_(), and ecpmul_().

ediv_()

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

extern

Definition at line 1038 of file TOMS_707.C.

References abs, doublereal, and ediv_().

Referenced by ecpdiv_(), and ediv_().

emult_()

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

extern

Definition at line 1016 of file TOMS_707.C.

References abs, doublereal, and emult_().

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

esub_()

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

extern

Definition at line 1107 of file TOMS_707.C.

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

Referenced by ecpmul_(), and esub_().

MAIN__()

int MAIN__

(

void

)

Definition at line 1281 of file TOMS_707.C.

References a, b, c__1, c__2, c__3, c__7, c__9, conhyp_(), do_fio(), do_lio(), doublecomplex, doublereal, e_rsle(), e_wsfe(), e_wsle(), f_open(), doublecomplex::i, integer, MAIN__(), 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 MAIN__(), and sample_().

sample_()

int sample_

(

void

)

Definition at line 1376 of file TOMS_707.C.

References MAIN__(), and sample_().

Referenced by sample_().

store_()

doublereal store_ ( doublereal * x )

extern

Definition at line 230 of file TOMS_707.C.

References doublereal, stcom_1, store_(), and x.

Referenced by bits_(), and store_().

Variable Documentation

c__1

integer c__1 = 1

static

Definition at line 38 of file TOMS_707.C.

c__2

integer c__2 = 2

static

Definition at line 41 of file TOMS_707.C.

c__3

integer c__3 = 3

static

Definition at line 40 of file TOMS_707.C.

Referenced by MAIN__().

c__7

integer c__7 = 7

static

Definition at line 37 of file TOMS_707.C.

Referenced by MAIN__().

c__9

integer c__9 = 9

static

Definition at line 39 of file TOMS_707.C.

c_b53

doublereal c_b53 = 1.

static

Definition at line 35 of file TOMS_707.C.

Referenced by armult_().

c_b65

doublereal c_b65 = 10.

static

Definition at line 36 of file TOMS_707.C.

Referenced by arydiv_(), conv21_(), and eadd_().

c_b8

doublereal c_b8 = 2.

static

Definition at line 34 of file TOMS_707.C.

Referenced by arydiv_(), and chgf_().

stcom_

struct [struct].stcom_ stcom_