floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add MSVC-compatible complex types

This commit is contained in:
Martin Kroeker 2023-12-12 23:06:22 +01:00 committed by GitHub
parent dcf6999c4e
commit dcdc351272
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lapack-netlib/LAPACKE/include/lapacke_config.h
View File

@ -68,6 +68,17 @@ extern "C" {
#endif #endif
#ifndef LAPACK_COMPLEX_CUSTOM #ifndef LAPACK_COMPLEX_CUSTOM
#if defined(_MSC_VER)
#define _CRT_USE_C_COMPLEX_H
#include <complex.h>
#define LAPACK_COMPLEX_CUSTOM
#define lapack_complex_float _Fcomplex
#define lapack_complex_double _Dcomplex
#define lapack_complex_float_real(z) (creal(z))
#define lapack_complex_float_imag(z) (cimag(z))
#define lapack_complex_double_real(z) (creal(z))
#define lapack_complex_double_imag(z) (cimag(z))
#else
#if defined(LAPACK_COMPLEX_STRUCTURE) #if defined(LAPACK_COMPLEX_STRUCTURE)
@ -109,6 +120,7 @@ typedef struct { double real, imag; } _lapack_complex_double;
#define lapack_complex_double_real(z) (creal(z)) #define lapack_complex_double_real(z) (creal(z))
#define lapack_complex_double_imag(z) (cimag(z)) #define lapack_complex_double_imag(z) (cimag(z))
#endif
#endif #endif
lapack_complex_float lapack_make_complex_float( float re, float im ); lapack_complex_float lapack_make_complex_float( float re, float im );