Merge pull request #2512 from martin-frbg/lapackh

Move declarations of lapack_complex_custom types outside the extern C
This commit is contained in:
Martin Kroeker 2020-03-14 13:27:40 +01:00 committed by GitHub
commit c775458299
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 23 additions and 21 deletions

View File

@ -12,27 +12,6 @@
#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
* Fortran complex types COMPLEX(4) and COMPLEX(8).
*
@ -88,6 +67,29 @@ extern "C" {
#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
* to select eigenvalues to sort to the top left of the Schur form.
* The value is selected if function returns TRUE (non-zero). */