osprey/libF77/r_cis.c File Reference

#include "cmplx.h"
#include <errno.h>
#include "moremath.h"

Include dependency graph for r_cis.c:

Go to the source code of this file.

Data Types
union	du
Defines
#define	ROUND(d)   (int)(((d) >= 0.0) ? ((d) + 0.5) : ((d) - 0.5))
Functions/Subroutines
double	fabs (double)
complex	__rcis (float x)
Variables
float	__libm_qnan_f
int *	__errnoaddr
static const du	S []
static const du	C []
static const du	rpiby2
static const du	piby2hi
static const du	piby2lo
static const du	zero
static const du	half
static const du	one
static const du	twopm12

---

Define Documentation

#define ROUND

(

d

)

(int)(((d) >= 0.0) ? ((d) + 0.5) : ((d) - 0.5))

Definition at line 53 of file r_cis.c.

---

Function Documentation

complex __rcis

(

float

x

)

Definition at line 115 of file r_cis.c.

References __errnoaddr, __libm_qnan_f, d, du::d, fabs, float, complex::imag, L, n, complex::real, result, ROUND, and is::z.

Referenced by intr_wrap_626(), and r_cis().

double fabs

(

double

)

Definition at line 356 of file math-68881.h.

---

Variable Documentation

int* __errnoaddr

float __libm_qnan_f

Referenced by __rcis().

const du C[] [static]

Initial value:

{
{D(0x3ff00000,  0x00000000)},
{D(0xbfdffffb,  0x2a77e083)},
{D(0x3fa553e7,  0xf02ac8aa)},
{D(0xbf5644d6,  0x2993c4ad)},
}

Definition at line 77 of file r_cis.c.

const du half [static]

Initial value:

{D(0x3fe00000,  0x00000000)}

Definition at line 97 of file r_cis.c.

const du one [static]

Initial value:

{D(0x3ff00000,  0x00000000)}

Definition at line 100 of file r_cis.c.

const du piby2hi [static]

Initial value:

{D(0x3ff921fb,  0x50000000)}

Definition at line 88 of file r_cis.c.

const du piby2lo [static]

Initial value:

{D(0x3e5110b4,  0x611a6263)}

Definition at line 91 of file r_cis.c.

const du rpiby2 [static]

Initial value:

{D(0x3fe45f30,  0x6dc9c883)}

Definition at line 85 of file r_cis.c.

const du S[] [static]

Initial value:

{
{D(0x3ff00000,  0x00000000)},
{D(0xbfc55554,  0x5268a030)},
{D(0x3f811073,  0xafd14db9)},
{D(0xbf29943e,  0x0fc79aa9)},
}

Definition at line 69 of file r_cis.c.

const du twopm12 [static]

Initial value:

{D(0x3f300000,  0x00000000)}

Definition at line 103 of file r_cis.c.

const du zero [static]

Initial value:

{D(0x00000000,  0x00000000)}

Definition at line 94 of file r_cis.c.