The R Project SVN R

Rev

Rev 7016 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7016 Rev 7108
Line 28... Line 28...
28 
#define MATHLIB_H
 28 
#define MATHLIB_H
29 
 
 29 
 
30 
/*-- Mathlib as part of R --  undefine this for standalone : */
 30 
/*-- Mathlib as part of R --  undefine this for standalone : */
31 
#define MATHLIB_IN_R
 31 
#define MATHLIB_IN_R
32 
 
 32 
 
33 
#include "Rconfig.h" /* for IEEE_754 etc */
 33 
#include "R_ext/Rver.h" /* for IEEE_754 */
34 
#include "R_ext/Arith.h"
 34 
#include "R_ext/Arith.h"
35 
/*#include "R_ext/Random.h"*/
 35 
/*#include "R_ext/Random.h"*/
36 
 
 36 
 
37 
#ifdef FORTRAN_H
 37 
#ifdef FORTRAN_H
38 
#error __MUST__include "Mathlib.h"  _before_  "Fortran.h"
 38 
#error __MUST__include "Mathlib.h"  _before_  "Fortran.h"
Line 184... Line 184...
184 
#define ME_UNDERFLOW	16
 184 
#define ME_UNDERFLOW	16
185 
/*	and underflow occured (important for IEEE)*/
 185 
/*	and underflow occured (important for IEEE)*/
186 
 
 186 
 
187 
 
 187 
 
188 
#ifdef IEEE_754
 188 
#ifdef IEEE_754
189 
 
 189 
#ifdef OLD
190 
# ifdef HAVE_IEEE754_H
 190 
# ifdef HAVE_IEEE754_H
191 
#  include <ieee754.h> /* newer Linuxen */
 191 
#  include <ieee754.h> /* newer Linuxen */
192 
# else
 192 
# else
193 
#  ifdef HAVE_IEEEFP_H
 193 
#  ifdef HAVE_IEEEFP_H
194 
#   include <ieeefp.h> /* others [Solaris 2.5.x], .. */
 194 
#   include <ieeefp.h> /* others [Solaris 2.5.x], .. */
195 
#  endif
 195 
#  endif
196 
# endif
 196 
# endif
- 
 
 197 
#endif
197 
 
 198 
 
198 
extern double m_zero;
 199 
extern double m_zero;
199 
extern double m_one;
 200 
extern double m_one;
200 
/* extern double m_tiny; */
 201 
/* extern double m_tiny; */
201 
#define ML_ERROR(x)	/* nothing */
 202 
#define ML_ERROR(x)	/* nothing */