tgmath.h

Go to the documentation of this file.

/*---------------------------------------------------------------------------------------------
 * /
 * / apeNEXT tgmath functions for nlcc
 * /
 * / $Id: tgmath.h,v 1.11 2005/06/08 14:06:53 pleiter Exp $
 * /
 * /
 * / ISO/IEC 9899:1999 (E) Standard
 * / Type generic math macros  <tgmath.h>
 * /
 * /
 * / Author: Olaf Kaczmarek (okacz@physik.uni-bielefeld.de)
 * /
 * / IMPLEMENTATION for APEnext: done, needs to be tested    (tgmath.h)
 * /-------------------------------------------------------------------------------------------*/

#ifndef _TGMATH_H
#define _TGMATH_H

#include <nlibc.h>

/* Include the needed headers.  */
#include <math.h>
#include <complex.h>

#define exp(Val)   ((__typecode(Val)==3) ? cexp(Val) :   exp(Val))
#define acos(Val)  ((__typecode(Val)==3) ? cacos(Val) :  acos(Val))
#define asin(Val)  ((__typecode(Val)==3) ? casin(Val) :  asin(Val))
#define atan(Val)  ((__typecode(Val)==3) ? catan(Val) :  atan(Val))
#define acosh(Val) ((__typecode(Val)==3) ? cacosh(Val) : acosh(Val))
#define asinh(Val) ((__typecode(Val)==3) ? casinh(Val) : asinh(Val))
#define atanh(Val) ((__typecode(Val)==3) ? catanh(Val) : atanh(Val))
#define cos(Val)   ((__typecode(Val)==3) ? ccos(Val) :   cos(Val))
#define sin(Val)   ((__typecode(Val)==3) ? csin(Val) :   sin(Val))
#define tan(Val)   ((__typecode(Val)==3) ? ctan(Val) :   tan(Val))
#define cosh(Val)  ((__typecode(Val)==3) ? ccosh(Val) :  cosh(Val))
#define sinh(Val)  ((__typecode(Val)==3) ? csinh(Val) :  sinh(Val))
#define tanh(Val)  ((__typecode(Val)==3) ? ctanh(Val) :  tanh(Val))
#define exp(Val)   ((__typecode(Val)==3) ? cexp(Val) :   exp(Val))
#define log(Val)   ((__typecode(Val)==3) ? clog(Val) :   log(Val))
#define pow(Val)   ((__typecode(Val)==3) ? cpow(Val) :   pow(Val))
#define sqrt(Val)  ((__typecode(Val)==3) ? csqrt(Val) :  sqrt(Val))
#define fabs(Val)  ((__typecode(Val)==3) ? cabs(Val) :   fabs(Val))


#endif /* ifndef _TGMATH_H  */

---