Open64 (mfef90, whirl2f, and IR tools)
TAG: version-openad; SVN changeset: 916
|
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