00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036 #ifndef __QUAD_H__
00037 #define __QUAD_H__
00038
00039 #include <stdio.h>
00040 #include <stdlib.h>
00041 #include <inttypes.h>
00042 #include "cmplx.h"
00043 #include "qcmplx.h"
00044
00045 typedef double double_t;
00046
00047
00048 typedef struct {
00049 double hi;
00050 double lo;
00051 } o64quad;
00052
00053 typedef union {
00054 long double ld;
00055 o64quad q;
00056 } ldquad;
00057
00058 extern long double __libm_zero_ld;
00059 extern long double __libm_qnan_ld;
00060 extern long double __libm_inf_ld;
00061 extern long double __libm_neginf_ld;
00062
00063 extern int32_t *__errnoaddr;
00064
00065 extern double __lgamma(double);
00066 extern double __trunc(double);
00067 extern double __exp(double);
00068 extern double d_acosd (double *);
00069 extern double d_asind (double *);
00070 extern double d_atand (double *);
00071 extern double d_atn2d (double *, double *);
00072 extern double d_cosd (double *);
00073 extern double d_sind (double *);
00074 extern double d_tand (double *);
00075 extern double_t pow_di(double_t *, int32_t *);
00076 extern double_t pow_dl(double_t *, int64_t *);
00077 extern void pow_zi_(dcomplex *, dcomplex *, int32_t *);
00078 extern void pow_zl_(dcomplex *, dcomplex *, int64_t *);
00079 extern void pow_zz(dcomplex *, dcomplex *, dcomplex *);
00080 extern double_t z_abs(dcomplex *);
00081 extern void z_cos(dcomplex *, dcomplex *);
00082 extern void z_exp(dcomplex *, dcomplex *);
00083 extern void z_log(dcomplex *, dcomplex *);
00084 extern void z_sin(dcomplex *, dcomplex *);
00085 extern void z_sqrt(dcomplex *, dcomplex *);
00086 extern int32_t __q_ge (double, double, double, double);
00087 extern int32_t __q_le (double, double, double, double);
00088 extern long double __qabs(long double);
00089 extern long double __qmod(long double, long double);
00090 extern long double __q_nint(long double *);
00091 extern int16_t __ii_qint(double, double);
00092 extern int32_t __ji_qint(double, double);
00093 extern int16_t __iiqnnt(double, double);
00094 extern int32_t __jiqnnt(double, double);
00095 extern int64_t __kiqnnt(double, double);
00096 extern long double __q_flotk(int64_t);
00097 extern long double __qint(double, double);
00098 extern long double __q_max1(double, double, double, double);
00099 extern long double __q_min1(double, double, double, double);
00100 extern long double __qsign(double, double, double, double);
00101 extern long double __qnint(double, double);
00102 extern long double __qacos(long double);
00103 extern long double __qatan(long double);
00104 extern long double __qatan2(long double, long double);
00105 extern long double __qasin(long double);
00106 extern long double __qcos(long double);
00107 extern long double __qcosh(long double);
00108 extern long double __qdim(double, double, double, double);
00109 extern long double __qerf(long double);
00110 extern long double __qerfc(long double);
00111 extern long double __qexp(long double);
00112 extern long double __qhypot(long double, long double);
00113 extern long double __qlog10(long double);
00114 extern long double __qlog(long double);
00115 extern long double __qpow(long double, long double);
00116 extern long double __qprod(double, double);
00117 extern long double __qsin(long double);
00118 extern long double __qsinh(long double);
00119 extern long double __qsqrt(long double);
00120 extern long double __qtan(long double);
00121 extern long double __qtanh(long double);
00122 extern long double __q_sub(double xhi, double xlo, double yhi, double ylo);
00123 extern long double __q_add(double xhi, double xlo, double yhi, double ylo);
00124 extern void __cq_conjg (qcomplex *, qcomplex *);
00125 extern void __cq_mul (qcomplex *, qcomplex *, qcomplex *);
00126
00127 #endif
00128