Skip to content

Commit 655e588

Browse files
langoulangou
authored
Merge pull request Reference-LAPACK#665 from angsch/fixes
Two small fixes
2 parents 3b177e9 + 9523efe commit 655e588

20 files changed

+78
-78
lines changed

‎LAPACKE/src/lapacke_cgeev_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -61,12 +61,12 @@ lapack_int LAPACKE_cgeev_work( int matrix_layout, char jobvl, char jobvr,
6161
LAPACKE_xerbla( "LAPACKE_cgeev_work", info );
6262
return info;
6363
}
64-
if( ldvl < n ) {
64+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6565
info = -9;
6666
LAPACKE_xerbla( "LAPACKE_cgeev_work", info );
6767
return info;
6868
}
69-
if( ldvr < n ) {
69+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
7070
info = -11;
7171
LAPACKE_xerbla( "LAPACKE_cgeev_work", info );
7272
return info;

‎LAPACKE/src/lapacke_cgeevx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -65,12 +65,12 @@ lapack_int LAPACKE_cgeevx_work( int matrix_layout, char balanc, char jobvl,
6565
LAPACKE_xerbla( "LAPACKE_cgeevx_work", info );
6666
return info;
6767
}
68-
if( ldvl < n ) {
68+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6969
info = -11;
7070
LAPACKE_xerbla( "LAPACKE_cgeevx_work", info );
7171
return info;
7272
}
73-
if( ldvr < n ) {
73+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
7474
info = -13;
7575
LAPACKE_xerbla( "LAPACKE_cgeevx_work", info );
7676
return info;

‎LAPACKE/src/lapacke_cgges_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -72,12 +72,12 @@ lapack_int LAPACKE_cgges_work( int matrix_layout, char jobvsl, char jobvsr,
7272
LAPACKE_xerbla( "LAPACKE_cgges_work", info );
7373
return info;
7474
}
75-
if( ldvsl < n ) {
75+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
7676
info = -15;
7777
LAPACKE_xerbla( "LAPACKE_cgges_work", info );
7878
return info;
7979
}
80-
if( ldvsr < n ) {
80+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
8181
info = -17;
8282
LAPACKE_xerbla( "LAPACKE_cgges_work", info );
8383
return info;

‎LAPACKE/src/lapacke_cggesx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -76,12 +76,12 @@ lapack_int LAPACKE_cggesx_work( int matrix_layout, char jobvsl, char jobvsr,
7676
LAPACKE_xerbla( "LAPACKE_cggesx_work", info );
7777
return info;
7878
}
79-
if( ldvsl < n ) {
79+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
8080
info = -16;
8181
LAPACKE_xerbla( "LAPACKE_cggesx_work", info );
8282
return info;
8383
}
84-
if( ldvsr < n ) {
84+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
8585
info = -18;
8686
LAPACKE_xerbla( "LAPACKE_cggesx_work", info );
8787
return info;

‎LAPACKE/src/lapacke_dgeev_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -59,12 +59,12 @@ lapack_int LAPACKE_dgeev_work( int matrix_layout, char jobvl, char jobvr,
5959
LAPACKE_xerbla( "LAPACKE_dgeev_work", info );
6060
return info;
6161
}
62-
if( ldvl < n ) {
62+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6363
info = -10;
6464
LAPACKE_xerbla( "LAPACKE_dgeev_work", info );
6565
return info;
6666
}
67-
if( ldvr < n ) {
67+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
6868
info = -12;
6969
LAPACKE_xerbla( "LAPACKE_dgeev_work", info );
7070
return info;

‎LAPACKE/src/lapacke_dgeevx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -63,12 +63,12 @@ lapack_int LAPACKE_dgeevx_work( int matrix_layout, char balanc, char jobvl,
6363
LAPACKE_xerbla( "LAPACKE_dgeevx_work", info );
6464
return info;
6565
}
66-
if( ldvl < n ) {
66+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6767
info = -12;
6868
LAPACKE_xerbla( "LAPACKE_dgeevx_work", info );
6969
return info;
7070
}
71-
if( ldvr < n ) {
71+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
7272
info = -14;
7373
LAPACKE_xerbla( "LAPACKE_dgeevx_work", info );
7474
return info;

‎LAPACKE/src/lapacke_dgges_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -70,12 +70,12 @@ lapack_int LAPACKE_dgges_work( int matrix_layout, char jobvsl, char jobvsr,
7070
LAPACKE_xerbla( "LAPACKE_dgges_work", info );
7171
return info;
7272
}
73-
if( ldvsl < n ) {
73+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
7474
info = -16;
7575
LAPACKE_xerbla( "LAPACKE_dgges_work", info );
7676
return info;
7777
}
78-
if( ldvsr < n ) {
78+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
7979
info = -18;
8080
LAPACKE_xerbla( "LAPACKE_dgges_work", info );
8181
return info;

‎LAPACKE/src/lapacke_dggesx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -73,12 +73,12 @@ lapack_int LAPACKE_dggesx_work( int matrix_layout, char jobvsl, char jobvsr,
7373
LAPACKE_xerbla( "LAPACKE_dggesx_work", info );
7474
return info;
7575
}
76-
if( ldvsl < n ) {
76+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
7777
info = -17;
7878
LAPACKE_xerbla( "LAPACKE_dggesx_work", info );
7979
return info;
8080
}
81-
if( ldvsr < n ) {
81+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
8282
info = -19;
8383
LAPACKE_xerbla( "LAPACKE_dggesx_work", info );
8484
return info;

‎LAPACKE/src/lapacke_sgeev_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -59,12 +59,12 @@ lapack_int LAPACKE_sgeev_work( int matrix_layout, char jobvl, char jobvr,
5959
LAPACKE_xerbla( "LAPACKE_sgeev_work", info );
6060
return info;
6161
}
62-
if( ldvl < n ) {
62+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6363
info = -10;
6464
LAPACKE_xerbla( "LAPACKE_sgeev_work", info );
6565
return info;
6666
}
67-
if( ldvr < n ) {
67+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
6868
info = -12;
6969
LAPACKE_xerbla( "LAPACKE_sgeev_work", info );
7070
return info;

‎LAPACKE/src/lapacke_sgeevx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -63,12 +63,12 @@ lapack_int LAPACKE_sgeevx_work( int matrix_layout, char balanc, char jobvl,
6363
LAPACKE_xerbla( "LAPACKE_sgeevx_work", info );
6464
return info;
6565
}
66-
if( ldvl < n ) {
66+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6767
info = -12;
6868
LAPACKE_xerbla( "LAPACKE_sgeevx_work", info );
6969
return info;
7070
}
71-
if( ldvr < n ) {
71+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
7272
info = -14;
7373
LAPACKE_xerbla( "LAPACKE_sgeevx_work", info );
7474
return info;

‎LAPACKE/src/lapacke_sgges_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -70,12 +70,12 @@ lapack_int LAPACKE_sgges_work( int matrix_layout, char jobvsl, char jobvsr,
7070
LAPACKE_xerbla( "LAPACKE_sgges_work", info );
7171
return info;
7272
}
73-
if( ldvsl < n ) {
73+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
7474
info = -16;
7575
LAPACKE_xerbla( "LAPACKE_sgges_work", info );
7676
return info;
7777
}
78-
if( ldvsr < n ) {
78+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
7979
info = -18;
8080
LAPACKE_xerbla( "LAPACKE_sgges_work", info );
8181
return info;

‎LAPACKE/src/lapacke_sggesx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -73,12 +73,12 @@ lapack_int LAPACKE_sggesx_work( int matrix_layout, char jobvsl, char jobvsr,
7373
LAPACKE_xerbla( "LAPACKE_sggesx_work", info );
7474
return info;
7575
}
76-
if( ldvsl < n ) {
76+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
7777
info = -17;
7878
LAPACKE_xerbla( "LAPACKE_sggesx_work", info );
7979
return info;
8080
}
81-
if( ldvsr < n ) {
81+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
8282
info = -19;
8383
LAPACKE_xerbla( "LAPACKE_sggesx_work", info );
8484
return info;

‎LAPACKE/src/lapacke_zgeev_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -61,12 +61,12 @@ lapack_int LAPACKE_zgeev_work( int matrix_layout, char jobvl, char jobvr,
6161
LAPACKE_xerbla( "LAPACKE_zgeev_work", info );
6262
return info;
6363
}
64-
if( ldvl < n ) {
64+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6565
info = -9;
6666
LAPACKE_xerbla( "LAPACKE_zgeev_work", info );
6767
return info;
6868
}
69-
if( ldvr < n ) {
69+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
7070
info = -11;
7171
LAPACKE_xerbla( "LAPACKE_zgeev_work", info );
7272
return info;

‎LAPACKE/src/lapacke_zgeevx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -65,12 +65,12 @@ lapack_int LAPACKE_zgeevx_work( int matrix_layout, char balanc, char jobvl,
6565
LAPACKE_xerbla( "LAPACKE_zgeevx_work", info );
6666
return info;
6767
}
68-
if( ldvl < n ) {
68+
if( ldvl < 1 || ( LAPACKE_lsame( jobvl, 'v' ) && ldvl < n ) ) {
6969
info = -11;
7070
LAPACKE_xerbla( "LAPACKE_zgeevx_work", info );
7171
return info;
7272
}
73-
if( ldvr < n ) {
73+
if( ldvr < 1 || ( LAPACKE_lsame( jobvr, 'v' ) && ldvr < n ) ) {
7474
info = -13;
7575
LAPACKE_xerbla( "LAPACKE_zgeevx_work", info );
7676
return info;

‎LAPACKE/src/lapacke_zgges_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -72,12 +72,12 @@ lapack_int LAPACKE_zgges_work( int matrix_layout, char jobvsl, char jobvsr,
7272
LAPACKE_xerbla( "LAPACKE_zgges_work", info );
7373
return info;
7474
}
75-
if( ldvsl < n ) {
75+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
7676
info = -15;
7777
LAPACKE_xerbla( "LAPACKE_zgges_work", info );
7878
return info;
7979
}
80-
if( ldvsr < n ) {
80+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
8181
info = -17;
8282
LAPACKE_xerbla( "LAPACKE_zgges_work", info );
8383
return info;

‎LAPACKE/src/lapacke_zggesx_work.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -76,12 +76,12 @@ lapack_int LAPACKE_zggesx_work( int matrix_layout, char jobvsl, char jobvsr,
7676
LAPACKE_xerbla( "LAPACKE_zggesx_work", info );
7777
return info;
7878
}
79-
if( ldvsl < n ) {
79+
if( ldvsl < 1 || ( LAPACKE_lsame( jobvsl, 'v' ) && ldvsl < n ) ) {
8080
info = -16;
8181
LAPACKE_xerbla( "LAPACKE_zggesx_work", info );
8282
return info;
8383
}
84-
if( ldvsr < n ) {
84+
if( ldvsr < 1 || ( LAPACKE_lsame( jobvsr, 'v' ) && ldvsr < n ) ) {
8585
info = -18;
8686
LAPACKE_xerbla( "LAPACKE_zggesx_work", info );
8787
return info;

‎SRC/ctprfb.f

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b CTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
1+
*> \brief \b CTPRFB applies a complex "triangular-pentagonal" block reflector to a complex matrix, which is composed of two blocks.
22
*
33
* =========== DOCUMENTATION ===========
44
*

‎SRC/dtprfb.f

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b DTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
1+
*> \brief \b DTPRFB applies a real "triangular-pentagonal" block reflector to a real matrix, which is composed of two blocks.
22
*
33
* =========== DOCUMENTATION ===========
44
*

0 commit comments

Comments
 (0)