/*This is only for "make install" target.*/

#ifdef NEEDBUNDERSCORE

#define BLASFUNC(FUNC) FUNC##_

#else

#define BLASFUNC(FUNC) FUNC

#endif

#ifdef QUAD_PRECISION

typedef struct {

  unsigned long x[2];

}  xdouble;

#elif defined EXPRECISION

#define xdouble long double

#else

#define xdouble double

#endif

#if defined(OS_WINDOWS) && defined(__64BIT__)

typedef long long BLASLONG;

typedef unsigned long long BLASULONG;

#else

typedef long BLASLONG;

typedef unsigned long BLASULONG;

#endif

#ifdef USE64BITINT

typedef BLASLONG blasint;

#else

typedef int blasint;

#endif

#if defined(XDOUBLE) || defined(DOUBLE)

#define FLOATRET	FLOAT

#else

#ifdef NEED_F2CCONV

#define FLOATRET	double

#else

#define FLOATRET	float

#endif

#endif

/* Inclusion of a standard header file is needed for definition of __STDC_*

   predefined macros with some compilers (e.g. GCC 4.7 on Linux).  This occurs

   as a side effect of including either <features.h> or <stdc-predef.h>. */</stdc-predef.h></features.h>

#include <stdio.h></stdio.h>

/* C99 supports complex floating numbers natively, which GCC also offers as an

   extension since version 3.0.  If neither are available, use a compatible

   structure as fallback (see Clause 6.2.5.13 of the C99 standard). */

#if defined(__STDC_IEC_559_COMPLEX__) || __STDC_VERSION__ >= 199901L || __GNUC__ >= 3

  #define OPENBLAS_COMPLEX_C99

  #include <complex.h></complex.h>

  typedef float _Complex openblas_complex_float;

  typedef double _Complex openblas_complex_double;

  #define openblas_make_complex_float(real, imag)   ((real) + ((imag) * _Complex_I))

  #define openblas_make_complex_double(real, imag)  ((real) + ((imag) * _Complex_I))

  #define openblas_complex_float_real(z)            (creal(z))

  #define openblas_complex_float_imag(z)            (cimag(z))

  #define openblas_complex_double_real(z)           (creal(z))

  #define openblas_complex_double_imag(z)           (cimag(z))

#else

  #define OPENBLAS_COMPLEX_STRUCT

  typedef struct { float real, imag; } openblas_complex_float;

  typedef struct { double real, imag; } openblas_complex_double;

  #define openblas_make_complex_float(real, imag)   {(real), (imag)}

  #define openblas_make_complex_double(real, imag)  {(real), (imag)}

  #define openblas_complex_float_real(z)            ((z).real)

  #define openblas_complex_float_imag(z)            ((z).imag)

  #define openblas_complex_double_real(z)           ((z).real)

  #define openblas_complex_double_imag(z)           ((z).imag)

#endif