Skip to content

Commit 07dbb8b

Browse files
jprhynejprhyne
authored
Merge branch 'Reference-LAPACK:master' into xorgqr
2 parents 4e3bad0 + 2475f7b commit 07dbb8b

File tree

18 files changed

+63
-44
lines changed

18 files changed

+63
-44
lines changed

‎BLAS/SRC/drotm.f‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,10 @@
3838
*> H=( ) ( ) ( ) ( )
3939
*> (DH21 DH22), (DH21 1.D0), (-1.D0 DH22), (0.D0 1.D0).
4040
*> SEE DROTMG FOR A DESCRIPTION OF DATA STORAGE IN DPARAM.
41+
*>
42+
*> IF DFLAG IS NOT ONE OF THE LISTED ABOVE, THE BEHAVIOR IS UNDEFINED.
43+
*> NANS IN DFLAG MAY NOT PROPAGATE TO THE OUTPUT.
44+
*>
4145
*> \endverbatim
4246
*
4347
* Arguments:

‎BLAS/SRC/srotm.f‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -39,6 +39,9 @@
3939
*> (SH21 SH22), (SH21 1.E0), (-1.E0 SH22), (0.E0 1.E0).
4040
*> SEE SROTMG FOR A DESCRIPTION OF DATA STORAGE IN SPARAM.
4141
*>
42+
*> IF SFLAG IS NOT ONE OF THE LISTED ABOVE, THE BEHAVIOR IS UNDEFINED.
43+
*> NANS IN SFLAG MAY NOT PROPAGATE TO THE OUTPUT.
44+
*>
4245
*> \endverbatim
4346
*
4447
* Arguments:

‎LAPACKE/src/lapacke_cgesdd_work.c‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -58,6 +58,9 @@ lapack_int API_SUFFIX(LAPACKE_cgesdd_work)( int matrix_layout, char jobz, lapack
5858
lapack_int nrows_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
5959
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n :
6060
( API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ? MIN(m,n) : 1);
61+
lapack_int ncols_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
62+
API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ||
63+
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n : 1;
6164
lapack_int lda_t = MAX(1,m);
6265
lapack_int ldu_t = MAX(1,nrows_u);
6366
lapack_int ldvt_t = MAX(1,nrows_vt);
@@ -75,7 +78,7 @@ lapack_int API_SUFFIX(LAPACKE_cgesdd_work)( int matrix_layout, char jobz, lapack
7578
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_cgesdd_work", info );
7679
return info;
7780
}
78-
if( ldvt < n ) {
81+
if( ldvt < ncols_vt ) {
7982
info = -11;
8083
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_cgesdd_work", info );
8184
return info;

‎LAPACKE/src/lapacke_dgesdd_work.c‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,6 +56,9 @@ lapack_int API_SUFFIX(LAPACKE_dgesdd_work)( int matrix_layout, char jobz, lapack
5656
lapack_int nrows_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
5757
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n :
5858
( API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ? MIN(m,n) : 1);
59+
lapack_int ncols_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
60+
API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ||
61+
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n : 1;
5962
lapack_int lda_t = MAX(1,m);
6063
lapack_int ldu_t = MAX(1,nrows_u);
6164
lapack_int ldvt_t = MAX(1,nrows_vt);
@@ -73,7 +76,7 @@ lapack_int API_SUFFIX(LAPACKE_dgesdd_work)( int matrix_layout, char jobz, lapack
7376
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_dgesdd_work", info );
7477
return info;
7578
}
76-
if( ldvt < n ) {
79+
if( ldvt < ncols_vt ) {
7780
info = -11;
7881
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_dgesdd_work", info );
7982
return info;

‎LAPACKE/src/lapacke_sgesdd_work.c‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -56,6 +56,9 @@ lapack_int API_SUFFIX(LAPACKE_sgesdd_work)( int matrix_layout, char jobz, lapack
5656
lapack_int nrows_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
5757
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n :
5858
( API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ? MIN(m,n) : 1);
59+
lapack_int ncols_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
60+
API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ||
61+
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n : 1;
5962
lapack_int lda_t = MAX(1,m);
6063
lapack_int ldu_t = MAX(1,nrows_u);
6164
lapack_int ldvt_t = MAX(1,nrows_vt);
@@ -73,7 +76,7 @@ lapack_int API_SUFFIX(LAPACKE_sgesdd_work)( int matrix_layout, char jobz, lapack
7376
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_sgesdd_work", info );
7477
return info;
7578
}
76-
if( ldvt < n ) {
79+
if( ldvt < ncols_vt ) {
7780
info = -11;
7881
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_sgesdd_work", info );
7982
return info;

‎LAPACKE/src/lapacke_zgesdd_work.c‎

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -58,6 +58,9 @@ lapack_int API_SUFFIX(LAPACKE_zgesdd_work)( int matrix_layout, char jobz, lapack
5858
lapack_int nrows_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
5959
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n :
6060
( API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ? MIN(m,n) : 1);
61+
lapack_int ncols_vt = ( API_SUFFIX(LAPACKE_lsame)( jobz, 'a' ) ||
62+
API_SUFFIX(LAPACKE_lsame)( jobz, 's' ) ||
63+
( API_SUFFIX(LAPACKE_lsame)( jobz, 'o' ) && m>=n) ) ? n : 1;
6164
lapack_int lda_t = MAX(1,m);
6265
lapack_int ldu_t = MAX(1,nrows_u);
6366
lapack_int ldvt_t = MAX(1,nrows_vt);
@@ -75,7 +78,7 @@ lapack_int API_SUFFIX(LAPACKE_zgesdd_work)( int matrix_layout, char jobz, lapack
7578
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_zgesdd_work", info );
7679
return info;
7780
}
78-
if( ldvt < n ) {
81+
if( ldvt < ncols_vt ) {
7982
info = -11;
8083
API_SUFFIX(LAPACKE_xerbla)( "LAPACKE_zgesdd_work", info );
8184
return info;

‎SRC/DEPRECATED/cgelqs.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
* ..
1717
* .. Array Arguments ..
1818
* COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
19-
* $ WORK( LWORK )
19+
* $ WORK( * )
2020
* ..
2121
*
2222
*
@@ -128,7 +128,7 @@ SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
128128
* ..
129129
* .. Array Arguments ..
130130
COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
131-
$ WORK( LWORK )
131+
$ WORK( * )
132132
* ..
133133
*
134134
* =====================================================================

‎SRC/DEPRECATED/cgeqrs.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
* ..
1717
* .. Array Arguments ..
1818
* COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
19-
* $ WORK( LWORK )
19+
* $ WORK( * )
2020
* ..
2121
*
2222
*
@@ -128,7 +128,7 @@ SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
128128
* ..
129129
* .. Array Arguments ..
130130
COMPLEX A( LDA, * ), B( LDB, * ), TAU( * ),
131-
$ WORK( LWORK )
131+
$ WORK( * )
132132
* ..
133133
*
134134
* =====================================================================

‎SRC/DEPRECATED/dgelqs.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
* ..
1717
* .. Array Arguments ..
1818
* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
19-
* $ WORK( LWORK )
19+
* $ WORK( * )
2020
* ..
2121
*
2222
*
@@ -128,7 +128,7 @@ SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
128128
* ..
129129
* .. Array Arguments ..
130130
DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
131-
$ WORK( LWORK )
131+
$ WORK( * )
132132
* ..
133133
*
134134
* =====================================================================

‎SRC/DEPRECATED/dgeqrs.f‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
* ..
1717
* .. Array Arguments ..
1818
* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
19-
* $ WORK( LWORK )
19+
* $ WORK( * )
2020
* ..
2121
*
2222
*
@@ -128,7 +128,7 @@ SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK,
128128
* ..
129129
* .. Array Arguments ..
130130
DOUBLE PRECISION A( LDA, * ), B( LDB, * ), TAU( * ),
131-
$ WORK( LWORK )
131+
$ WORK( * )
132132
* ..
133133
*
134134
* =====================================================================

0 commit comments

Comments
 (0)