Open64: osprey/libF77/mips/quad/quad.h Source 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 #if _COMPILER_VERSION != 400
00040 #include <stdio.h>
00041 #include <stdlib.h>
00042 #endif
00043 
00044 #include <inttypes.h>
00045 #include "cmplx.h"
00046 #include "qcmplx.h"
00047 
00048 typedef double double_t;
00049 
00050 typedef struct {
00051 double  hi;
00052 double  lo;
00053 } quad;
00054 
00055 typedef union {
00056   long double ld;
00057   quad q;
00058 } ldquad;
00059 
00060 extern  long double __libm_zero_ld;
00061 extern  long double __libm_qnan_ld;
00062 extern  long double __libm_inf_ld;
00063 extern  long double __libm_neginf_ld;
00064 
00065 extern  int32_t *__errnoaddr;
00066 
00067 extern double __lgamma(double);
00068 extern double __trunc(double);
00069 extern double __exp(double);
00070 extern double d_acosd (double *);
00071 extern double d_asind (double *);
00072 extern double d_atand (double *);
00073 extern double d_atn2d (double *, double *);
00074 extern double d_cosd (double *);
00075 extern double d_sind (double *);
00076 extern double d_tand (double *);
00077 extern double_t pow_di(double_t *, int32_t *);
00078 extern double_t pow_dl(double_t *, int64_t *);
00079 extern void pow_zi_(dcomplex *, dcomplex *, int32_t *);
00080 extern void pow_zl_(dcomplex *, dcomplex *, int64_t *);
00081 extern void pow_zz(dcomplex *, dcomplex *, dcomplex *);
00082 extern double_t z_abs(dcomplex *);
00083 extern void z_cos(dcomplex *, dcomplex *);
00084 extern void z_exp(dcomplex *, dcomplex *);
00085 extern void z_log(dcomplex *, dcomplex *);
00086 extern void z_sin(dcomplex *, dcomplex *);
00087 extern void z_sqrt(dcomplex *, dcomplex *);
00088 extern int32_t __q_ge (double, double, double, double);
00089 extern int32_t __q_le (double, double, double, double);
00090 extern long double __qabs(long double);
00091 extern long double __qmod(long double, long double);
00092 extern long double __q_nint(long double *);
00093 extern int16_t __ii_qint(double, double);
00094 extern int32_t __ji_qint(double, double);
00095 extern int16_t __iiqnnt(double, double);
00096 extern int32_t __jiqnnt(double, double);
00097 extern int64_t __kiqnnt(double, double);
00098 extern long double __q_flotk(int64_t);
00099 extern long double __qint(double, double);
00100 extern long double __q_max1(double, double, double, double);
00101 extern long double __q_min1(double, double, double, double);
00102 extern long double __qsign(double, double, double, double);
00103 extern long double __qnint(double, double);
00104 extern long double __qacos(long double);
00105 extern long double __qatan(long double);
00106 extern long double __qatan2(long double, long double);
00107 extern long double __qasin(long double);
00108 extern long double __qcos(long double);
00109 extern long double __qcosh(long double);
00110 extern long double __qdim(double, double, double, double);
00111 extern long double __qerf(long double);
00112 extern long double __qerfc(long double);
00113 extern long double __qexp(long double);
00114 extern long double __qhypot(long double, long double);
00115 extern long double __qlog10(long double);
00116 extern long double __qlog(long double);
00117 extern long double __qpow(long double, long double);
00118 extern long double __qprod(double, double);
00119 extern long double __qsin(long double);
00120 extern long double __qsinh(long double);
00121 extern long double __qsqrt(long double);
00122 extern long double __qtan(long double);
00123 extern long double __qtanh(long double);
00124 extern long double __q_sub(double xhi, double xlo, double yhi, double ylo);
00125 extern long double __q_add(double xhi, double xlo, double yhi, double ylo);
00126 extern void __cq_conjg (qcomplex *, qcomplex *);
00127 extern void __cq_mul (qcomplex *, qcomplex *, qcomplex *);
00128 
00129 #endif /* !__QUAD_H__ */
00130