OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Merge pull request #3818 from martin-frbg/lapack665 

Fix leading dimension check of eigen-/Schur vectors in LAPACKE (Reference-LAPACK PR 665)
tags/v0.3.22^2
Martin Kroeker GitHub 3 years ago
parent
92411dfecb 2226a82f2e
commit
c5c4888ed6
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
16 changed files with 32 additions and 32 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c
  2. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c
  3. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_cgges_work.c
  4. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c
  5. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c
  6. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c
  7. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_dgges_work.c
  8. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c
  9. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c
  10. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c
  11. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_sgges_work.c
  12. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c
  13. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c
  14. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c
  15. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_zgges_work.c
  16. +2
    -2
      lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c

+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c View File

@@ -61,12 +61,12 @@ lapack_int LAPACKE_cgeev_work( int matrix_layout, char jobvl, char jobvr,
LAPACKE_xerbla( "LAPACKE_cgeev_work", info ); LAPACKE_xerbla( "LAPACKE_cgeev_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -9; info = -9;
LAPACKE_xerbla( "LAPACKE_cgeev_work", info ); LAPACKE_xerbla( "LAPACKE_cgeev_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -11; info = -11;
LAPACKE_xerbla( "LAPACKE_cgeev_work", info ); LAPACKE_xerbla( "LAPACKE_cgeev_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c View File

@@ -65,12 +65,12 @@ lapack_int LAPACKE_cgeevx_work( int matrix_layout, char balanc, char jobvl,
LAPACKE_xerbla( "LAPACKE_cgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_cgeevx_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -11; info = -11;
LAPACKE_xerbla( "LAPACKE_cgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_cgeevx_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -13; info = -13;
LAPACKE_xerbla( "LAPACKE_cgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_cgeevx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_cgges_work.c View File

@@ -72,12 +72,12 @@ lapack_int LAPACKE_cgges_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_cgges_work", info ); LAPACKE_xerbla( "LAPACKE_cgges_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -15; info = -15;
LAPACKE_xerbla( "LAPACKE_cgges_work", info ); LAPACKE_xerbla( "LAPACKE_cgges_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -17; info = -17;
LAPACKE_xerbla( "LAPACKE_cgges_work", info ); LAPACKE_xerbla( "LAPACKE_cgges_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c View File

@@ -76,12 +76,12 @@ lapack_int LAPACKE_cggesx_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_cggesx_work", info ); LAPACKE_xerbla( "LAPACKE_cggesx_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -16; info = -16;
LAPACKE_xerbla( "LAPACKE_cggesx_work", info ); LAPACKE_xerbla( "LAPACKE_cggesx_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -18; info = -18;
LAPACKE_xerbla( "LAPACKE_cggesx_work", info ); LAPACKE_xerbla( "LAPACKE_cggesx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c View File

@@ -59,12 +59,12 @@ lapack_int LAPACKE_dgeev_work( int matrix_layout, char jobvl, char jobvr,
LAPACKE_xerbla( "LAPACKE_dgeev_work", info ); LAPACKE_xerbla( "LAPACKE_dgeev_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -10; info = -10;
LAPACKE_xerbla( "LAPACKE_dgeev_work", info ); LAPACKE_xerbla( "LAPACKE_dgeev_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -12; info = -12;
LAPACKE_xerbla( "LAPACKE_dgeev_work", info ); LAPACKE_xerbla( "LAPACKE_dgeev_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c View File

@@ -63,12 +63,12 @@ lapack_int LAPACKE_dgeevx_work( int matrix_layout, char balanc, char jobvl,
LAPACKE_xerbla( "LAPACKE_dgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_dgeevx_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -12; info = -12;
LAPACKE_xerbla( "LAPACKE_dgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_dgeevx_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -14; info = -14;
LAPACKE_xerbla( "LAPACKE_dgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_dgeevx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_dgges_work.c View File

@@ -70,12 +70,12 @@ lapack_int LAPACKE_dgges_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_dgges_work", info ); LAPACKE_xerbla( "LAPACKE_dgges_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -16; info = -16;
LAPACKE_xerbla( "LAPACKE_dgges_work", info ); LAPACKE_xerbla( "LAPACKE_dgges_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -18; info = -18;
LAPACKE_xerbla( "LAPACKE_dgges_work", info ); LAPACKE_xerbla( "LAPACKE_dgges_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c View File

@@ -73,12 +73,12 @@ lapack_int LAPACKE_dggesx_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_dggesx_work", info ); LAPACKE_xerbla( "LAPACKE_dggesx_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -17; info = -17;
LAPACKE_xerbla( "LAPACKE_dggesx_work", info ); LAPACKE_xerbla( "LAPACKE_dggesx_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -19; info = -19;
LAPACKE_xerbla( "LAPACKE_dggesx_work", info ); LAPACKE_xerbla( "LAPACKE_dggesx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c View File

@@ -59,12 +59,12 @@ lapack_int LAPACKE_sgeev_work( int matrix_layout, char jobvl, char jobvr,
LAPACKE_xerbla( "LAPACKE_sgeev_work", info ); LAPACKE_xerbla( "LAPACKE_sgeev_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -10; info = -10;
LAPACKE_xerbla( "LAPACKE_sgeev_work", info ); LAPACKE_xerbla( "LAPACKE_sgeev_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -12; info = -12;
LAPACKE_xerbla( "LAPACKE_sgeev_work", info ); LAPACKE_xerbla( "LAPACKE_sgeev_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c View File

@@ -63,12 +63,12 @@ lapack_int LAPACKE_sgeevx_work( int matrix_layout, char balanc, char jobvl,
LAPACKE_xerbla( "LAPACKE_sgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_sgeevx_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -12; info = -12;
LAPACKE_xerbla( "LAPACKE_sgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_sgeevx_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -14; info = -14;
LAPACKE_xerbla( "LAPACKE_sgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_sgeevx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_sgges_work.c View File

@@ -70,12 +70,12 @@ lapack_int LAPACKE_sgges_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_sgges_work", info ); LAPACKE_xerbla( "LAPACKE_sgges_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -16; info = -16;
LAPACKE_xerbla( "LAPACKE_sgges_work", info ); LAPACKE_xerbla( "LAPACKE_sgges_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -18; info = -18;
LAPACKE_xerbla( "LAPACKE_sgges_work", info ); LAPACKE_xerbla( "LAPACKE_sgges_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c View File

@@ -73,12 +73,12 @@ lapack_int LAPACKE_sggesx_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_sggesx_work", info ); LAPACKE_xerbla( "LAPACKE_sggesx_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -17; info = -17;
LAPACKE_xerbla( "LAPACKE_sggesx_work", info ); LAPACKE_xerbla( "LAPACKE_sggesx_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -19; info = -19;
LAPACKE_xerbla( "LAPACKE_sggesx_work", info ); LAPACKE_xerbla( "LAPACKE_sggesx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c View File

@@ -61,12 +61,12 @@ lapack_int LAPACKE_zgeev_work( int matrix_layout, char jobvl, char jobvr,
LAPACKE_xerbla( "LAPACKE_zgeev_work", info ); LAPACKE_xerbla( "LAPACKE_zgeev_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -9; info = -9;
LAPACKE_xerbla( "LAPACKE_zgeev_work", info ); LAPACKE_xerbla( "LAPACKE_zgeev_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -11; info = -11;
LAPACKE_xerbla( "LAPACKE_zgeev_work", info ); LAPACKE_xerbla( "LAPACKE_zgeev_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c View File

@@ -65,12 +65,12 @@ lapack_int LAPACKE_zgeevx_work( int matrix_layout, char balanc, char jobvl,
LAPACKE_xerbla( "LAPACKE_zgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_zgeevx_work", info );
return info; return info;
} }
if( ldvl < n ) {
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
info = -11; info = -11;
LAPACKE_xerbla( "LAPACKE_zgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_zgeevx_work", info );
return info; return info;
} }
if( ldvr < n ) {
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
info = -13; info = -13;
LAPACKE_xerbla( "LAPACKE_zgeevx_work", info ); LAPACKE_xerbla( "LAPACKE_zgeevx_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_zgges_work.c View File

@@ -72,12 +72,12 @@ lapack_int LAPACKE_zgges_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_zgges_work", info ); LAPACKE_xerbla( "LAPACKE_zgges_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -15; info = -15;
LAPACKE_xerbla( "LAPACKE_zgges_work", info ); LAPACKE_xerbla( "LAPACKE_zgges_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -17; info = -17;
LAPACKE_xerbla( "LAPACKE_zgges_work", info ); LAPACKE_xerbla( "LAPACKE_zgges_work", info );
return info; return info;


+ 2
- 2
lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c View File

@@ -76,12 +76,12 @@ lapack_int LAPACKE_zggesx_work( int matrix_layout, char jobvsl, char jobvsr,
LAPACKE_xerbla( "LAPACKE_zggesx_work", info ); LAPACKE_xerbla( "LAPACKE_zggesx_work", info );
return info; return info;
} }
if( ldvsl < n ) {
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
info = -16; info = -16;
LAPACKE_xerbla( "LAPACKE_zggesx_work", info ); LAPACKE_xerbla( "LAPACKE_zggesx_work", info );
return info; return info;
} }
if( ldvsr < n ) {
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
info = -18; info = -18;
LAPACKE_xerbla( "LAPACKE_zggesx_work", info ); LAPACKE_xerbla( "LAPACKE_zggesx_work", info );
return info; return info;


Write Preview
Loading…
Cancel
Save