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

echeresh · echeresh · commit 760d0b621989 · 2017-05-24T01:38:33.000-07:00
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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 ) ) {

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ lapack_int LAPACKE_cstegr( int matrix_layout, char jobz, char range,`
`58`	`58`	`if( LAPACKE_s_nancheck( n, d, 1 ) ) {`
`59`	`59`	`return -5;`
`60`	`60`	`}`
`61`		`- if( LAPACKE_s_nancheck( n, e, 1 ) ) {`
	`61`	`+ if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {`
`62`	`62`	`return -6;`
`63`	`63`	`}`
`64`	`64`	`if( LAPACKE_lsame( range, 'v' ) ) {`
Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ lapack_int LAPACKE_cstein( int matrix_layout, lapack_int n, const float* d,`
`51`	`51`	`if( LAPACKE_s_nancheck( n, d, 1 ) ) {`
`52`	`52`	`return -3;`
`53`	`53`	`}`
`54`		`- if( LAPACKE_s_nancheck( n, e, 1 ) ) {`
	`54`	`+ if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {`
`55`	`55`	`return -4;`
`56`	`56`	`}`
`57`	`57`	`if( LAPACKE_s_nancheck( n, w, 1 ) ) {`
Original file line number	Diff line number	Diff line change
`@@ -52,7 +52,7 @@ lapack_int LAPACKE_dbdsdc( int matrix_layout, char uplo, char compq,`
`52`	`52`	`if( LAPACKE_d_nancheck( n, d, 1 ) ) {`
`53`	`53`	`return -5;`
`54`	`54`	`}`
`55`		`- if( LAPACKE_d_nancheck( n, e, 1 ) ) {`
	`55`	`+ if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {`
`56`	`56`	`return -6;`
`57`	`57`	`}`
`58`	`58`	`#endif`
Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ lapack_int LAPACKE_dstegr( int matrix_layout, char jobz, char range,`
`58`	`58`	`if( LAPACKE_d_nancheck( n, d, 1 ) ) {`
`59`	`59`	`return -5;`
`60`	`60`	`}`
`61`		`- if( LAPACKE_d_nancheck( n, e, 1 ) ) {`
	`61`	`+ if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {`
`62`	`62`	`return -6;`
`63`	`63`	`}`
`64`	`64`	`if( LAPACKE_lsame( range, 'v' ) ) {`
Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,7 @@ lapack_int LAPACKE_dstein( int matrix_layout, lapack_int n, const double* d,`
`50`	`50`	`if( LAPACKE_d_nancheck( n, d, 1 ) ) {`
`51`	`51`	`return -3;`
`52`	`52`	`}`
`53`		`- if( LAPACKE_d_nancheck( n, e, 1 ) ) {`
	`53`	`+ if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {`
`54`	`54`	`return -4;`
`55`	`55`	`}`
`56`	`56`	`if( LAPACKE_d_nancheck( n, w, 1 ) ) {`
Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ lapack_int LAPACKE_dstev( int matrix_layout, char jobz, lapack_int n, double* d,`
`47`	`47`	`if( LAPACKE_d_nancheck( n, d, 1 ) ) {`
`48`	`48`	`return -4;`
`49`	`49`	`}`
`50`		`- if( LAPACKE_d_nancheck( n, e, 1 ) ) {`
	`50`	`+ if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {`
`51`	`51`	`return -5;`
`52`	`52`	`}`
`53`	`53`	`#endif`
Original file line number	Diff line number	Diff line change
`@@ -52,7 +52,7 @@ lapack_int LAPACKE_dstevd( int matrix_layout, char jobz, lapack_int n, double* d`
`52`	`52`	`if( LAPACKE_d_nancheck( n, d, 1 ) ) {`
`53`	`53`	`return -4;`
`54`	`54`	`}`
`55`		`- if( LAPACKE_d_nancheck( n, e, 1 ) ) {`
	`55`	`+ if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {`
`56`	`56`	`return -5;`
`57`	`57`	`}`
`58`	`58`	`#endif`
Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ lapack_int LAPACKE_dstevx( int matrix_layout, char jobz, char range,`
`54`	`54`	`if( LAPACKE_d_nancheck( n, d, 1 ) ) {`
`55`	`55`	`return -5;`
`56`	`56`	`}`
`57`		`- if( LAPACKE_d_nancheck( n, e, 1 ) ) {`
	`57`	`+ if( LAPACKE_d_nancheck( n-1, e, 1 ) ) {`
`58`	`58`	`return -6;`
`59`	`59`	`}`
`60`	`60`	`if( LAPACKE_lsame( range, 'v' ) ) {`
Original file line number	Diff line number	Diff line change
`@@ -52,7 +52,7 @@ lapack_int LAPACKE_sbdsdc( int matrix_layout, char uplo, char compq,`
`52`	`52`	`if( LAPACKE_s_nancheck( n, d, 1 ) ) {`
`53`	`53`	`return -5;`
`54`	`54`	`}`
`55`		`- if( LAPACKE_s_nancheck( n, e, 1 ) ) {`
	`55`	`+ if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {`
`56`	`56`	`return -6;`
`57`	`57`	`}`
`58`	`58`	`#endif`
Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ lapack_int LAPACKE_sstegr( int matrix_layout, char jobz, char range,`
`58`	`58`	`if( LAPACKE_s_nancheck( n, d, 1 ) ) {`
`59`	`59`	`return -5;`
`60`	`60`	`}`
`61`		`- if( LAPACKE_s_nancheck( n, e, 1 ) ) {`
	`61`	`+ if( LAPACKE_s_nancheck( n-1, e, 1 ) ) {`
`62`	`62`	`return -6;`
`63`	`63`	`}`
`64`	`64`	`if( LAPACKE_lsame( range, 'v' ) ) {`