native.c File Reference

#include <stdio.h>
#include <signal.h>
#include <setjmp.h>
#include <errno.h>
#include "arith.internal.h"
#include "int64.h"
#include <math.h>

Include dependency graph for native.c:

Go to the source code of this file.

Defines
#define	double_t double
#define	NAT_ROUND AR_Float_IEEE_NR_64
#define	NAT_COMPLEX AR_Complex_IEEE_NR_64
Functions
int	ar_index (ar_data result, const AR_TYPE resulttype, const char str1, const char str2, const ar_data *backward)
int	ar_scan (ar_data result, const AR_TYPE resulttype, const char str1, const char str2, const ar_data *backward)
int	ar_verify (ar_data result, const AR_TYPE resulttype, const char str1, const char str2, const ar_data *backward)
int	ar_reshape (void result, const void source, const void shape, const void pad, const void *order)
int	ar_transfer (void result, const void source, const void mold, long length)
int	ar_modulo (ar_data result, const AR_TYPE resulttype, const ar_data opnd1, const AR_TYPE opnd1type, const ar_data opnd2, const AR_TYPE opnd2type)
int	ar_selected_real_kind (ar_data result, const AR_TYPE resulttype, const ar_data opnd1, const AR_TYPE opnd1type, const ar_data opnd2, const AR_TYPE opnd2type)
int	ar_sqrt (ar_data result, const AR_TYPE resulttype, const ar_data opnd, const AR_TYPE opndtype)
int	ar_log (ar_data result, const AR_TYPE resulttype, const ar_data opnd, const AR_TYPE opndtype)
int	ar_exp (ar_data result, const AR_TYPE resulttype, const ar_data opnd, const AR_TYPE opndtype)
int	ar_cabs (ar_data result, const AR_TYPE resulttype, const ar_data opnd, const AR_TYPE opndtype)
int	ar_power (ar_data result, const AR_TYPE resulttype, const ar_data base, const AR_TYPE basetype, const ar_data power, const AR_TYPE powertype)
int	ar_divide_complex (ar_data result, const AR_TYPE resulttype, const ar_data opnd1, const AR_TYPE opnd1type, const ar_data opnd2, const AR_TYPE opnd2type)
int	ar_convert_str_to_float (ar_data result, const AR_TYPE resulttype, const char *str)
Variables
int	ar_rounding_modes = 0xf
int	ar_underflow_modes = 1<<AR_UNDERFLOW_TO_DENORM
static AR_TYPE	native_round_single = NAT_ROUND
static AR_TYPE	native_complex = NAT_COMPLEX
static AR_TYPE	native_double = AR_Float_IEEE_NR_64
static AR_TYPE	native_long_double = AR_Float_IEEE_NR_64
static AR_TYPE	native_dbl_complex = AR_Complex_IEEE_NR_64
static char	USMID [] = "\n%Z%%M% %I% %G% %U%\n"

Define Documentation

#define double_t double

Definition at line 1150 of file native.c.

Referenced by __dcosd(), __dmod(), __dsind(), __dtand(), __powdi(), __powdl(), __powri(), __powrl(), __powzz(), __zdiv(), __zexp(), __zsqrt(), ar_cabs(), ar_exp(), ar_log(), ar_power(), ar_sqrt(), pow_di(), pow_dl(), retour_(), sinh(), and tanh().

#define NAT_COMPLEX AR_Complex_IEEE_NR_64

Definition at line 1160 of file native.c.

#define NAT_ROUND AR_Float_IEEE_NR_64

Definition at line 1159 of file native.c.

Function Documentation

int ar_cabs	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	opnd,
		const AR_TYPE *	opndtype
	)

Definition at line 1392 of file native.c.

References AR_add(), AR_convert(), ar_decompose_complex(), AR_multiply(), AR_NEGATIVE, AR_sqrt(), AR_STAT_NEGATIVE, AR_STAT_ZERO, AR_status(), AR_ZERO, cabs(), and double_t.

Referenced by AR_abs(), and AR_cabs().

Here is the call graph for this function:

int ar_convert_str_to_float	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const char *	str
	)

Definition at line 1770 of file native.c.

References ar_cvt_str_to_float().

Referenced by AR_convert_str_to_float().

Here is the call graph for this function:

int ar_divide_complex	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	opnd1,
		const AR_TYPE *	opnd1type,
		const ar_data *	opnd2,
		const AR_TYPE *	opnd2type
	)

Definition at line 1694 of file native.c.

References AR_add(), ar_compose_complex(), ar_decompose_complex(), AR_divide(), AR_multiply(), AR_STAT_NEGATIVE, AR_STAT_ZERO, AR_status(), AR_subtract(), c, and d.

Referenced by AR_divide().

Here is the call graph for this function:

int ar_exp	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	opnd,
		const AR_TYPE *	opndtype
	)

Definition at line 1343 of file native.c.

References AR_convert(), AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, AR_NEGATIVE, AR_STAT_INVALID_TYPE, AR_status(), AR_ZERO, and double_t.

Referenced by AR_exp().

Here is the call graph for this function:

int ar_index	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const char *	str1,
		const char *	str2,
		const ar_data *	backward
	)

Definition at line 1178 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_index().

int ar_log	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	opnd,
		const AR_TYPE *	opndtype
	)

Definition at line 1292 of file native.c.

References AR_convert(), AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, AR_NEGATIVE, AR_STAT_INVALID_TYPE, AR_status(), AR_ZERO, and double_t.

Referenced by AR_log().

Here is the call graph for this function:

int ar_modulo	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	opnd1,
		const AR_TYPE *	opnd1type,
		const ar_data *	opnd2,
		const AR_TYPE *	opnd2type
	)

Definition at line 1222 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_Modulo().

int ar_power	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	base,
		const AR_TYPE *	basetype,
		const ar_data *	power,
		const AR_TYPE *	powertype
	)

Definition at line 1443 of file native.c.

References AR_CLASS, AR_CLASS_FLOAT, AR_CLASS_INT, AR_compare(), AR_Compare_EQ, AR_const_zero, AR_convert(), AR_divide(), AR_ERROR_STATUS, AR_FLOAT_COMPLEX, AR_FLOAT_IS_COMPLEX, ar_data::ar_i64, AR_Int_64_S, AR_INT_SIZE, AR_INT_SIZE_16, AR_INT_SIZE_32, AR_INT_SIZE_46, AR_INT_SIZE_64, AR_INT_SIZE_8, AR_multiply(), AR_negate(), AR_one(), AR_STAT_INVALID_TYPE, AR_STAT_NEGATIVE, AR_STAT_OK, AR_STAT_UNDEFINED, AR_STAT_ZERO, AR_status(), double_t, INT_SIGN, inttype, IS_ERROR_STATUS, IS_INT64_ZERO, one, AR_INT_64::part4, and SHRIGHT64.

Referenced by AR_power().

Here is the call graph for this function:

int ar_reshape	(	void *	result,
		const void *	source,
		const void *	shape,
		const void *	pad,
		const void *	order
	)

Definition at line 1205 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_reshape().

int ar_scan	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const char *	str1,
		const char *	str2,
		const ar_data *	backward
	)

Definition at line 1187 of file native.c.

References AR_STAT_INVALID_TYPE.

Referenced by AR_scan().

int ar_selected_real_kind	(	ar_data *	result,
		const AR_TYPE *	resulttype,
		const ar_data *	opnd1,
		const AR_TYPE *	opnd1type,
		const ar_data *	opnd2,
		const AR_TYPE *	opnd2type
	)