From cd4fbf1244dce0cc156c434da1802c5d48d5fde2 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 31 Aug 2020 21:18:45 +0200 Subject: [PATCH] Need to drop the LAPACKE matrix_layout parameter for LAPACK ?ggsvp as well --- lapack-netlib/LAPACKE/include/lapack.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/LAPACKE/include/lapack.h b/lapack-netlib/LAPACKE/include/lapack.h index c8f3d66ce..957a35180 100644 --- a/lapack-netlib/LAPACKE/include/lapack.h +++ b/lapack-netlib/LAPACKE/include/lapack.h @@ -3753,7 +3753,7 @@ void LAPACK_zggsvd3( lapack_int* info ); #define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP) -lapack_int LAPACK_sggsvp( int matrix_layout, char jobu, char jobv, char jobq, +lapack_int LAPACK_sggsvp( char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, float* a, lapack_int lda, float* b, lapack_int ldb, float tola, float tolb, lapack_int* k, lapack_int* l, float* u, @@ -3761,7 +3761,7 @@ lapack_int LAPACK_sggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int ldq ); #define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP) -lapack_int LAPACK_dggsvp( int matrix_layout, char jobu, char jobv, char jobq, +lapack_int LAPACK_dggsvp( char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, double* a, lapack_int lda, double* b, lapack_int ldb, double tola, double tolb, lapack_int* k, @@ -3769,7 +3769,7 @@ lapack_int LAPACK_dggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_int ldv, double* q, lapack_int ldq ); #define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP) -lapack_int LAPACK_cggsvp( int matrix_layout, char jobu, char jobv, char jobq, +lapack_int LAPACK_cggsvp( char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_complex_float* a, lapack_int lda, lapack_complex_float* b, lapack_int ldb, float tola, @@ -3779,7 +3779,7 @@ lapack_int LAPACK_cggsvp( int matrix_layout, char jobu, char jobv, char jobq, lapack_complex_float* q, lapack_int ldq ); #define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP) -lapack_int LAPACK_zggsvp( int matrix_layout, char jobu, char jobv, char jobq, +lapack_int LAPACK_zggsvp( char jobu, char jobv, char jobq, lapack_int m, lapack_int p, lapack_int n, lapack_complex_double* a, lapack_int lda, lapack_complex_double* b, lapack_int ldb,