Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
quad.h
Go to the documentation of this file.
00001 /*
00002 
00003   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00004 
00005   This program is free software; you can redistribute it and/or modify it
00006   under the terms of version 2 of the GNU General Public License as
00007   published by the Free Software Foundation.
00008 
00009   This program is distributed in the hope that it would be useful, but
00010   WITHOUT ANY WARRANTY; without even the implied warranty of
00011   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00012 
00013   Further, this software is distributed without any warranty that it is
00014   free of the rightful claim of any third person regarding infringement 
00015   or the like.  Any license provided herein, whether implied or 
00016   otherwise, applies only to this software file.  Patent licenses, if 
00017   any, provided herein do not apply to combinations of this program with 
00018   other software, or any other product whatsoever.  
00019 
00020   You should have received a copy of the GNU General Public License along
00021   with this program; if not, write the Free Software Foundation, Inc., 59
00022   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00023 
00024   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00025   Mountain View, CA 94043, or:
00026 
00027   http://www.sgi.com
00028 
00029   For further information regarding this notice, see:
00030 
00031   http://oss.sgi.com/projects/GenInfo/NoticeExplan
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 /* eraxxon: rename quad to o64quad to prevent header conflicts */
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 /* !__QUAD_H__ */
00128 
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines