In LAPACKE interfaces for ?GGSVD3, ?GGSVP3 in LWORK query all *_t matrices should be replaced with ones without _t.

reported by Alex Zotkevich, Intel Co. on april 11th 2016
See http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4950

8 files changed, 24 insertions, 24 deletions

diff --git a/LAPACKE/src/lapacke_cggsvd3_work.c b/LAPACKE/src/lapacke_cggsvd3_work.c
index 652e8b72..8144b871 100644
--- a/LAPACKE/src/lapacke_cggsvd3_work.c
+++ b/LAPACKE/src/lapacke_cggsvd3_work.c
@@ -93,9 +93,9 @@ lapack_int LAPACKE_cggsvd3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-            LAPACK_cggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t,
-                            &lda_t, b_t, &ldb_t, alpha, beta, u_t, &ldu_t,
-                            v_t, &ldv_t, q_t, &ldq_t, work, &lwork, rwork,
+            LAPACK_cggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a,
+                            &lda_t, b, &ldb_t, alpha, beta, u, &ldu_t,
+                            v, &ldv_t, q, &ldq_t, work, &lwork, rwork,
                             iwork, &info );
             return (info < 0) ? (info - 1) : info;
         }
diff --git a/LAPACKE/src/lapacke_cggsvp3_work.c b/LAPACKE/src/lapacke_cggsvp3_work.c
index 77e77b2d..23fb4b3c 100644
--- a/LAPACKE/src/lapacke_cggsvp3_work.c
+++ b/LAPACKE/src/lapacke_cggsvp3_work.c
@@ -94,9 +94,9 @@ lapack_int LAPACKE_cggsvp3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-          LAPACK_cggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t,
-                          &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t, &ldv_t,
-                          q_t, &ldq_t, iwork, rwork, tau, work, &lwork, &info );
+          LAPACK_cggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b,
+                          &ldb_t, &tola, &tolb, k, l, u, &ldu_t, v, &ldv_t,
+                          q, &ldq_t, iwork, rwork, tau, work, &lwork, &info );
           return (info < 0) ? (info - 1) : info;
         }
         /* Allocate memory for temporary array(s) */
diff --git a/LAPACKE/src/lapacke_dggsvd3_work.c b/LAPACKE/src/lapacke_dggsvd3_work.c
index dcc6bc81..228a5b72 100644
--- a/LAPACKE/src/lapacke_dggsvd3_work.c
+++ b/LAPACKE/src/lapacke_dggsvd3_work.c
@@ -91,9 +91,9 @@ lapack_int LAPACKE_dggsvd3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-          LAPACK_dggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, &lda_t,
-                          b_t, &ldb_t, alpha, beta, u_t, &ldu_t, v_t, &ldv_t,
-                          q_t, &ldq_t, work, &lwork, iwork, &info );
+          LAPACK_dggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, &lda_t,
+                          b, &ldb_t, alpha, beta, u, &ldu_t, v, &ldv_t,
+                          q, &ldq_t, work, &lwork, iwork, &info );
           return (info < 0) ? (info - 1) : info;
         }
         /* Allocate memory for temporary array(s) */
diff --git a/LAPACKE/src/lapacke_dggsvp3_work.c b/LAPACKE/src/lapacke_dggsvp3_work.c
index 73acb27d..d044df1e 100644
--- a/LAPACKE/src/lapacke_dggsvp3_work.c
+++ b/LAPACKE/src/lapacke_dggsvp3_work.c
@@ -90,9 +90,9 @@ lapack_int LAPACKE_dggsvp3_work( int matrix_layout, char jobu, char jobv,
             return info;
         }
         if( lwork == -1 ) {
-          LAPACK_dggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t,
-                          &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t,
-                          &ldv_t, q_t, &ldq_t, iwork, tau, work, &lwork,
+          LAPACK_dggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b,
+                          &ldb_t, &tola, &tolb, k, l, u, &ldu_t, v,
+                          &ldv_t, q, &ldq_t, iwork, tau, work, &lwork,
                           &info );
           return (info < 0) ? (info - 1) : info;
         }
diff --git a/LAPACKE/src/lapacke_sggsvd3_work.c b/LAPACKE/src/lapacke_sggsvd3_work.c
index 617ecf2a..8964773d 100644
--- a/LAPACKE/src/lapacke_sggsvd3_work.c
+++ b/LAPACKE/src/lapacke_sggsvd3_work.c
@@ -91,9 +91,9 @@ lapack_int LAPACKE_sggsvd3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-          LAPACK_sggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, &lda_t,
-                          b_t, &ldb_t, alpha, beta, u_t, &ldu_t, v_t, &ldv_t,
-                          q_t, &ldq_t, work, &lwork, iwork, &info );
+          LAPACK_sggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, &lda_t,
+                          b, &ldb_t, alpha, beta, u, &ldu_t, v, &ldv_t,
+                          q, &ldq_t, work, &lwork, iwork, &info );
           return (info < 0) ? (info - 1) : info;
         }
 
diff --git a/LAPACKE/src/lapacke_sggsvp3_work.c b/LAPACKE/src/lapacke_sggsvp3_work.c
index 36c74c27..905b8244 100644
--- a/LAPACKE/src/lapacke_sggsvp3_work.c
+++ b/LAPACKE/src/lapacke_sggsvp3_work.c
@@ -91,9 +91,9 @@ lapack_int LAPACKE_sggsvp3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-          LAPACK_sggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t,
-                          &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t,
-                          v_t, &ldv_t, q_t, &ldq_t, iwork, tau, work, &lwork,
+          LAPACK_sggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b,
+                          &ldb_t, &tola, &tolb, k, l, u, &ldu_t,
+                          v, &ldv_t, q, &ldq_t, iwork, tau, work, &lwork,
                           &info );
           return (info < 0) ? (info - 1) : info;
         }
diff --git a/LAPACKE/src/lapacke_zggsvd3_work.c b/LAPACKE/src/lapacke_zggsvd3_work.c
index aedd405f..1c651532 100644
--- a/LAPACKE/src/lapacke_zggsvd3_work.c
+++ b/LAPACKE/src/lapacke_zggsvd3_work.c
@@ -93,9 +93,9 @@ lapack_int LAPACKE_zggsvd3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-          LAPACK_zggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a_t, &lda_t,
-                          b_t, &ldb_t, alpha, beta, u_t, &ldu_t, v_t, &ldv_t,
-                          q_t, &ldq_t, work, &lwork, rwork, iwork, &info );
+          LAPACK_zggsvd3( &jobu, &jobv, &jobq, &m, &n, &p, k, l, a, &lda_t,
+                          b, &ldb_t, alpha, beta, u, &ldu_t, v, &ldv_t,
+                          q, &ldq_t, work, &lwork, rwork, iwork, &info );
           return (info < 0) ? (info - 1) : info;
         }
         /* Allocate memory for temporary array(s) */
diff --git a/LAPACKE/src/lapacke_zggsvp3_work.c b/LAPACKE/src/lapacke_zggsvp3_work.c
index 74af1932..6ea0c8d5 100644
--- a/LAPACKE/src/lapacke_zggsvp3_work.c
+++ b/LAPACKE/src/lapacke_zggsvp3_work.c
@@ -94,9 +94,9 @@ lapack_int LAPACKE_zggsvp3_work( int matrix_layout, char jobu, char jobv,
         }
         /* Query optimal working array(s) size if requested */
         if( lwork == -1 ) {
-          LAPACK_zggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a_t, &lda_t, b_t,
-                          &ldb_t, &tola, &tolb, k, l, u_t, &ldu_t, v_t,
-                          &ldv_t, q_t, &ldq_t, iwork, rwork, tau, work,
+          LAPACK_zggsvp3( &jobu, &jobv, &jobq, &m, &p, &n, a, &lda_t, b,
+                          &ldb_t, &tola, &tolb, k, l, u, &ldu_t, v,
+                          &ldv_t, q, &ldq_t, iwork, rwork, tau, work,
                           &lwork, &info );
           return (info < 0) ? (info - 1) : info;
         }