OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
lapacke_make_complex_double.c File Reference
#include "lapacke.h"
#include "lapacke_utils.h"

Go to the source code of this file.

Functions

lapack_complex_double lapack_make_complex_double (double re, double im)

Function Documentation

◆ 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.

37 {
39#if defined(LAPACK_COMPLEX_STRUCTURE)
40 z.real = re;
41 z.imag = im;
42#elif defined(LAPACK_COMPLEX_C99)
43 z = re + im * I;
44#elif defined(LAPACK_COMPLEX_CPP)
45 z = std::complex<double>(re,im);
46#else /* C99 is default */
47 z = re + im*I;
48#endif
49 return z;
50}
#define lapack_complex_double
Definition lapack.h:63