The R Project SVN R

Rev

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

Rev 7639 Rev 7654
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"
33 
#include "Arith.h"
 34 
#include "Arith.h"
34 
#include "Random.h"
 35 
#include "Random.h"
35 
 
 36 
 
36 
#ifdef FORTRAN_H
 37 
#ifdef FORTRAN_H
37 
#error __MUST__include "Mathlib.h"  _before_  "Fortran.h"
 38 
#error __MUST__include "Mathlib.h"  _before_  "Fortran.h"
Line 173... Line 174...
173 
#define ME_UNDERFLOW	16
 174 
#define ME_UNDERFLOW	16
174 
/*	and underflow occured (important for IEEE)*/
 175 
/*	and underflow occured (important for IEEE)*/
175 
 
 176 
 
176 
 
 177 
 
177 
#ifdef IEEE_754
 178 
#ifdef IEEE_754
178 
 
 - 
 
179 
# ifdef HAVE_IEEE754_H
 - 
 
180 
#  include <ieee754.h> /* newer Linuxen */
 - 
 
181 
# else
 - 
 
182 
#  ifdef HAVE_IEEEFP_H
 - 
 
183 
#   include <ieeefp.h> /* others [Solaris 2.5.x], .. */
 - 
 
184 
#  endif
 - 
 
185 
# endif
 - 
 
186 
 
 - 
 
187 
extern double m_zero;
 179 
extern double m_zero;
188 
extern double m_one;
 180 
extern double m_one;
189 
/* extern double m_tiny; */
 181 
/* extern double m_tiny; */
190 
#define ML_ERROR(x)	/* nothing */
 182 
#define ML_ERROR(x)	/* nothing */
191 
#define ML_POSINF	(m_one / m_zero)
 183 
#define ML_POSINF	(m_one / m_zero)