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

Move declarations of lapack_complex_custom types outside the extern C 

fixes #2510
This commit is contained in:
Martin Kroeker 2020-03-13 20:34:13 +01:00 committed by GitHub
parent 9c22170f52
commit ee2e758278
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 23 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lapack-netlib/LAPACKE/include/lapack.h
View File

@ -12,27 +12,6 @@
#include <stdlib.h> #include <stdlib.h>
#ifdef __cplusplus
extern "C" {
#endif
/*----------------------------------------------------------------------------*/
#ifndef lapack_int
#define lapack_int int
#endif
#ifndef lapack_logical
#define lapack_logical lapack_int
#endif
/* f2c, hence clapack and MacOS Accelerate, returns double instead of float
* for sdot, slange, clange, etc. */
#if defined(LAPACK_F2C)
typedef double lapack_float_return;
#else
typedef float lapack_float_return;
#endif
/* Complex types are structures equivalent to the /* Complex types are structures equivalent to the
* Fortran complex types COMPLEX(4) and COMPLEX(8). * Fortran complex types COMPLEX(4) and COMPLEX(8).
* *
@ -88,6 +67,29 @@ extern "C" {
#endif /* LAPACK_COMPLEX_CUSTOM */ #endif /* LAPACK_COMPLEX_CUSTOM */
#ifdef __cplusplus
extern "C" {
#endif
/*----------------------------------------------------------------------------*/
#ifndef lapack_int
#define lapack_int int
#endif
#ifndef lapack_logical
#define lapack_logical lapack_int
#endif
/* f2c, hence clapack and MacOS Accelerate, returns double instead of float
* for sdot, slange, clange, etc. */
#if defined(LAPACK_F2C)
typedef double lapack_float_return;
#else
typedef float lapack_float_return;
#endif
/* Callback logical functions of one, two, or three arguments are used /* Callback logical functions of one, two, or three arguments are used
* to select eigenvalues to sort to the top left of the Schur form. * to select eigenvalues to sort to the top left of the Schur form.
* The value is selected if function returns TRUE (non-zero). */ * The value is selected if function returns TRUE (non-zero). */