lapack_make_complex_double()

lapack_complex_double lapack_make_complex_double	(	double	re,
		double	im
	)

Definition at line 37 of file lapacke_make_complex_double.c.

                                                                         {
    lapack_complex_double z;
#if defined(LAPACK_COMPLEX_STRUCTURE)
    z.real = re;
    z.imag = im;
#elif defined(LAPACK_COMPLEX_C99)
    z = re + im * I;
#elif defined(LAPACK_COMPLEX_CPP)
    z = std::complex<double>(re,im);
#else /* C99 is default */
    z = re + im*I;
#endif
   return z;
}