Skip to content
Snippets Groups Projects
Commit 787fea08 authored by Simon Praetorius's avatar Simon Praetorius
Browse files

Merge branch 'issue/remove-lapack-mangle-defines' into 'master'

Move definition of LAPACK_MANGLE and FC_FUNC to fmatrixev.cc

See merge request !951
parents 8cccdc41 35bb96c7
No related branches found
No related tags found
1 merge request!951Move definition of LAPACK_MANGLE and FC_FUNC to fmatrixev.cc
Pipeline #35167 passed
......@@ -167,14 +167,6 @@
/* Used to call lapack functions */
#cmakedefine LAPACK_NEEDS_UNDERLINE
#ifdef LAPACK_NEEDS_UNDERLINE
#define LAPACK_MANGLE(name,NAME) name##_
#else
#define LAPACK_MANGLE(name,NAME) name
#endif
#define FC_FUNC LAPACK_MANGLE
/* end dune-common
Everything below here will be overwritten
*/
......@@ -16,6 +16,14 @@
#if HAVE_LAPACK
#ifdef LAPACK_NEEDS_UNDERLINE
#define LAPACK_MANGLE(name,NAME) name##_
#else
#define LAPACK_MANGLE(name,NAME) name
#endif
#define FC_FUNC LAPACK_MANGLE
// symmetric matrices
#define DSYEV_FORTRAN FC_FUNC (dsyev, DSYEV)
#define SSYEV_FORTRAN FC_FUNC (ssyev, SSYEV)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment