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

diff --git a/LAPACKE/src/lapacke_cgelq.c b/LAPACKE/src/lapacke_cgelq.c
index df1d488..2bca629 100644 (file)
--- 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 ae39111..1ed183d 100644 (file)
--- 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 bd2be2c..c9ef031 100644 (file)
--- 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 3fb1d9f..d594cbc 100644 (file)
--- 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 1ed3f04..bdece27 100644 (file)
--- 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 5f12035..4adb4f4 100644 (file)
--- 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 b47ca26..559bb8f 100644 (file)
--- 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