lapacke_*gelq and lapacke_*gemlq: names of functions are incorrect

7 files changed, 15 insertions, 15 deletions

diff --git a/LAPACKE/src/lapacke_cgelq.c b/LAPACKE/src/lapacke_cgelq.c
index df1d4882..2bca629c 100644
--- a/LAPACKE/src/lapacke_cgelq.c
+++ b/LAPACKE/src/lapacke_cgelq.c
@@ -33,9 +33,9 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_cgelq_work( int matrix_layout, lapack_int m, lapack_int n,
-                               lapack_complex_float* a, lapack_int lda,
-                               lapack_complex_float* t, lapack_int tsize )
+lapack_int LAPACKE_cgelq( int matrix_layout, lapack_int m, lapack_int n,
+                          lapack_complex_float* a, lapack_int lda,
+                          lapack_complex_float* t, lapack_int tsize )
 {
     lapack_int info = 0;
     lapack_int lwork = -1;
diff --git a/LAPACKE/src/lapacke_cgemlq.c b/LAPACKE/src/lapacke_cgemlq.c
index ae391110..1ed183df 100644
--- a/LAPACKE/src/lapacke_cgemlq.c
+++ b/LAPACKE/src/lapacke_cgemlq.c
@@ -55,7 +55,7 @@ lapack_int LAPACKE_cgemlq( int matrix_layout, char side, char trans,
     if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) {
         return -10;
     }
-    if( LAPACKE_d_nancheck( tsize, t, 1 ) ) {
+    if( LAPACKE_c_nancheck( tsize, t, 1 ) ) {
         return -9;
     }
 #endif
diff --git a/LAPACKE/src/lapacke_dgelq.c b/LAPACKE/src/lapacke_dgelq.c
index bd2be2c1..c9ef0318 100644
--- a/LAPACKE/src/lapacke_dgelq.c
+++ b/LAPACKE/src/lapacke_dgelq.c
@@ -33,9 +33,9 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_dgelq_work( int matrix_layout, lapack_int m, lapack_int n,
-                               double* a, lapack_int lda,
-                               double* t, lapack_int tsize )
+lapack_int LAPACKE_dgelq( int matrix_layout, lapack_int m, lapack_int n,
+                          double* a, lapack_int lda,
+                          double* t, lapack_int tsize )
 {
     lapack_int info = 0;
     lapack_int lwork = -1;
diff --git a/LAPACKE/src/lapacke_sgelq.c b/LAPACKE/src/lapacke_sgelq.c
index 3fb1d9f8..d594cbc0 100644
--- a/LAPACKE/src/lapacke_sgelq.c
+++ b/LAPACKE/src/lapacke_sgelq.c
@@ -33,9 +33,9 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_sgelq_work( int matrix_layout, lapack_int m, lapack_int n,
-                               float* a, lapack_int lda,
-                               float* t, lapack_int tsize )
+lapack_int LAPACKE_sgelq( int matrix_layout, lapack_int m, lapack_int n,
+                          float* a, lapack_int lda,
+                          float* t, lapack_int tsize )
 {
     lapack_int info = 0;
     lapack_int lwork = -1;
diff --git a/LAPACKE/src/lapacke_sgemlq.c b/LAPACKE/src/lapacke_sgemlq.c
index 1ed3f048..bdece275 100644
--- a/LAPACKE/src/lapacke_sgemlq.c
+++ b/LAPACKE/src/lapacke_sgemlq.c
@@ -55,7 +55,7 @@ lapack_int LAPACKE_sgemlq( int matrix_layout, char side, char trans,
     if( LAPACKE_sge_nancheck( matrix_layout, m, n, c, ldc ) ) {
         return -10;
     }
-    if( LAPACKE_d_nancheck( tsize, t, 1 ) ) {
+    if( LAPACKE_s_nancheck( tsize, t, 1 ) ) {
         return -9;
     }
 #endif
diff --git a/LAPACKE/src/lapacke_zgelq.c b/LAPACKE/src/lapacke_zgelq.c
index 5f120350..4adb4f43 100644
--- a/LAPACKE/src/lapacke_zgelq.c
+++ b/LAPACKE/src/lapacke_zgelq.c
@@ -33,9 +33,9 @@
 
 #include "lapacke_utils.h"
 
-lapack_int LAPACKE_zgelq_work( int matrix_layout, lapack_int m, lapack_int n,
-                               lapack_complex_double* a, lapack_int lda,
-                               lapack_complex_double* t, lapack_int tsize )
+lapack_int LAPACKE_zgelq( int matrix_layout, lapack_int m, lapack_int n,
+                          lapack_complex_double* a, lapack_int lda,
+                          lapack_complex_double* t, lapack_int tsize )
 {
     lapack_int info = 0;
     lapack_int lwork = -1;
diff --git a/LAPACKE/src/lapacke_zgemlq.c b/LAPACKE/src/lapacke_zgemlq.c
index b47ca26a..559bb8fb 100644
--- a/LAPACKE/src/lapacke_zgemlq.c
+++ b/LAPACKE/src/lapacke_zgemlq.c
@@ -55,7 +55,7 @@ lapack_int LAPACKE_zgemlq( int matrix_layout, char side, char trans,
     if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) {
         return -10;
     }
-    if( LAPACKE_d_nancheck( tsize, t, 1 ) ) {
+    if( LAPACKE_z_nancheck( tsize, t, 1 ) ) {
         return -9;
     }
 #endif