The R Project SVN R

Rev

Rev 37019 | Rev 38505 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 37019 Rev 37374
Line 29... Line 29...
29 
 
 29 
 
30 
#include "arithmetic.h"		/* complex_*  */
 30 
#include "arithmetic.h"		/* complex_*  */
31 
 
 31 
 
32 
#ifdef HAVE_C99_COMPLEX
 32 
#ifdef HAVE_C99_COMPLEX
33 
# include <complex.h>
 33 
# include <complex.h>
- 
 
 34 
# ifdef USE_RINTERNALS
34 
# define C99_COMPLEX(x)	((double complex *) DATAPTR(x))
 35 
#  define C99_COMPLEX(x) ((double complex *) DATAPTR(x))
- 
 
 36 
# else
- 
 
 37 
#  define C99_COMPLEX(x) ((double complex *) COMPLEX(x))
- 
 
 38 
# endif
35 
#endif
 39 
#endif
36 
 
 40 
 
37 
#ifndef HAVE_HYPOT
 41 
#ifndef HAVE_HYPOT
38 
# define hypot pythag
 42 
# define hypot pythag
39 
#endif
 43 
#endif