Fix lapacke *stegr, *stein, *bdsdc, *stev, *stevd: e has only (n-1) elements

diff --git a/LAPACKE/src/lapacke_cstegr.c b/LAPACKE/src/lapacke_cstegr.c
index 0cd589a..07057a6 100644 (file)
--- a/LAPACKE/src/lapacke_cstegr.c
+++ b/LAPACKE/src/lapacke_cstegr.c
@@ -58,7 +58,7 @@ lapack_int LAPACKE_cstegr( int matrix_layout, char jobz, char range,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
     if( LAPACKE_lsame( range, 'v' ) ) {

diff --git a/LAPACKE/src/lapacke_cstein.c b/LAPACKE/src/lapacke_cstein.c
index 5f5cd36..b1d20cc 100644 (file)
--- a/LAPACKE/src/lapacke_cstein.c
+++ b/LAPACKE/src/lapacke_cstein.c
@@ -51,7 +51,7 @@ lapack_int LAPACKE_cstein( int matrix_layout, lapack_int n, const float* d,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -3;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -4;
     }
     if( LAPACKE_s_nancheck( n, w, 1 ) ) {

diff --git a/LAPACKE/src/lapacke_dbdsdc.c b/LAPACKE/src/lapacke_dbdsdc.c
index a18d507..e1d9d38 100644 (file)
--- a/LAPACKE/src/lapacke_dbdsdc.c
+++ b/LAPACKE/src/lapacke_dbdsdc.c
@@ -52,7 +52,7 @@ lapack_int LAPACKE_dbdsdc( int matrix_layout, char uplo, char compq,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_dstegr.c b/LAPACKE/src/lapacke_dstegr.c
index 1d63e12..2704e47 100644 (file)
--- a/LAPACKE/src/lapacke_dstegr.c
+++ b/LAPACKE/src/lapacke_dstegr.c
@@ -58,7 +58,7 @@ lapack_int LAPACKE_dstegr( int matrix_layout, char jobz, char range,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
     if( LAPACKE_lsame( range, 'v' ) ) {

diff --git a/LAPACKE/src/lapacke_dstein.c b/LAPACKE/src/lapacke_dstein.c
index 140a1f5..85c6e41 100644 (file)
--- a/LAPACKE/src/lapacke_dstein.c
+++ b/LAPACKE/src/lapacke_dstein.c
@@ -50,7 +50,7 @@ lapack_int LAPACKE_dstein( int matrix_layout, lapack_int n, const double* d,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -3;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -4;
     }
     if( LAPACKE_d_nancheck( n, w, 1 ) ) {

diff --git a/LAPACKE/src/lapacke_dstev.c b/LAPACKE/src/lapacke_dstev.c
index 6e575b1..0817a5c 100644 (file)
--- a/LAPACKE/src/lapacke_dstev.c
+++ b/LAPACKE/src/lapacke_dstev.c
@@ -47,7 +47,7 @@ lapack_int LAPACKE_dstev( int matrix_layout, char jobz, lapack_int n, double* d,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -4;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -5;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_dstevd.c b/LAPACKE/src/lapacke_dstevd.c
index be2f092..c0f1560 100644 (file)
--- a/LAPACKE/src/lapacke_dstevd.c
+++ b/LAPACKE/src/lapacke_dstevd.c
@@ -52,7 +52,7 @@ lapack_int LAPACKE_dstevd( int matrix_layout, char jobz, lapack_int n, double* d
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -4;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -5;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_dstevx.c b/LAPACKE/src/lapacke_dstevx.c
index 45f161d..7ebc341 100644 (file)
--- a/LAPACKE/src/lapacke_dstevx.c
+++ b/LAPACKE/src/lapacke_dstevx.c
@@ -54,7 +54,7 @@ lapack_int LAPACKE_dstevx( int matrix_layout, char jobz, char range,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
     if( LAPACKE_lsame( range, 'v' ) ) {

diff --git a/LAPACKE/src/lapacke_sbdsdc.c b/LAPACKE/src/lapacke_sbdsdc.c
index 4317680..ee1db7a 100644 (file)
--- a/LAPACKE/src/lapacke_sbdsdc.c
+++ b/LAPACKE/src/lapacke_sbdsdc.c
@@ -52,7 +52,7 @@ lapack_int LAPACKE_sbdsdc( int matrix_layout, char uplo, char compq,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_sstegr.c b/LAPACKE/src/lapacke_sstegr.c
index a3c5d4d..1694273 100644 (file)
--- a/LAPACKE/src/lapacke_sstegr.c
+++ b/LAPACKE/src/lapacke_sstegr.c
@@ -58,7 +58,7 @@ lapack_int LAPACKE_sstegr( int matrix_layout, char jobz, char range,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
     if( LAPACKE_lsame( range, 'v' ) ) {

diff --git a/LAPACKE/src/lapacke_sstein.c b/LAPACKE/src/lapacke_sstein.c
index ccad56f..fa8b384 100644 (file)
--- a/LAPACKE/src/lapacke_sstein.c
+++ b/LAPACKE/src/lapacke_sstein.c
@@ -50,7 +50,7 @@ lapack_int LAPACKE_sstein( int matrix_layout, lapack_int n, const float* d,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -3;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -4;
     }
     if( LAPACKE_s_nancheck( n, w, 1 ) ) {

diff --git a/LAPACKE/src/lapacke_sstev.c b/LAPACKE/src/lapacke_sstev.c
index 97da731..1006aee 100644 (file)
--- a/LAPACKE/src/lapacke_sstev.c
+++ b/LAPACKE/src/lapacke_sstev.c
@@ -47,7 +47,7 @@ lapack_int LAPACKE_sstev( int matrix_layout, char jobz, lapack_int n, float* d,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -4;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -5;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_sstevd.c b/LAPACKE/src/lapacke_sstevd.c
index b2bf5bb..ae0b679 100644 (file)
--- a/LAPACKE/src/lapacke_sstevd.c
+++ b/LAPACKE/src/lapacke_sstevd.c
@@ -52,7 +52,7 @@ lapack_int LAPACKE_sstevd( int matrix_layout, char jobz, lapack_int n, float* d,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -4;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -5;
     }
 #endif

diff --git a/LAPACKE/src/lapacke_sstevx.c b/LAPACKE/src/lapacke_sstevx.c
index 1dd833d..b71ee9a 100644 (file)
--- a/LAPACKE/src/lapacke_sstevx.c
+++ b/LAPACKE/src/lapacke_sstevx.c
@@ -54,7 +54,7 @@ lapack_int LAPACKE_sstevx( int matrix_layout, char jobz, char range,
     if( LAPACKE_s_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_s_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
     if( LAPACKE_lsame( range, 'v' ) ) {

diff --git a/LAPACKE/src/lapacke_zstegr.c b/LAPACKE/src/lapacke_zstegr.c
index 189e6be..6de8383 100644 (file)
--- a/LAPACKE/src/lapacke_zstegr.c
+++ b/LAPACKE/src/lapacke_zstegr.c
@@ -59,7 +59,7 @@ lapack_int LAPACKE_zstegr( int matrix_layout, char jobz, char range,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -5;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -6;
     }
     if( LAPACKE_lsame( range, 'v' ) ) {

diff --git a/LAPACKE/src/lapacke_zstein.c b/LAPACKE/src/lapacke_zstein.c
index 1d1b2ef..70b9988 100644 (file)
--- a/LAPACKE/src/lapacke_zstein.c
+++ b/LAPACKE/src/lapacke_zstein.c
@@ -51,7 +51,7 @@ lapack_int LAPACKE_zstein( int matrix_layout, lapack_int n, const double* d,
     if( LAPACKE_d_nancheck( n, d, 1 ) ) {
         return -3;
     }
-    if( LAPACKE_d_nancheck( n, e, 1 ) ) {
+    if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {
         return -4;
     }
     if( LAPACKE_d_nancheck( n, w, 1 ) ) {