diff options
| author | mfaverge <mfaverge@8a072113-8704-0410-8d35-dd094bca7971> | 2015-11-25 14:37:14 +0000 |
|---|---|---|
| committer | mfaverge <mfaverge@8a072113-8704-0410-8d35-dd094bca7971> | 2015-11-25 14:37:14 +0000 |
| commit | f939a3367db4a46803c09ac724f71a7d00d6d48c (patch) | |
| tree | 42332e1d683659f2295aba225e3205191c29f6e1 /LAPACKE | |
| parent | be56cf6e46db4d8efb0b4759c7c27df41c646225 (diff) | |
| download | lapack-f939a3367db4a46803c09ac724f71a7d00d6d48c.tar.gz lapack-f939a3367db4a46803c09ac724f71a7d00d6d48c.tar.bz2 lapack-f939a3367db4a46803c09ac724f71a7d00d6d48c.zip | |
Fix bug on [sd]lantr which don't report the result
Diffstat (limited to 'LAPACKE')
| -rw-r--r-- | LAPACKE/src/lapacke_dlantr_work.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_slantr_work.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/LAPACKE/src/lapacke_dlantr_work.c b/LAPACKE/src/lapacke_dlantr_work.c index 59eef380..7eb37093 100644 --- a/LAPACKE/src/lapacke_dlantr_work.c +++ b/LAPACKE/src/lapacke_dlantr_work.c @@ -41,7 +41,7 @@ double LAPACKE_dlantr_work( int matrix_layout, char norm, char uplo, double res = 0.; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_dlantr( &norm, &uplo, &diag, &m, &n, a, &lda, work ); + res = LAPACK_dlantr( &norm, &uplo, &diag, &m, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } diff --git a/LAPACKE/src/lapacke_slantr_work.c b/LAPACKE/src/lapacke_slantr_work.c index 79c71a00..92a0e401 100644 --- a/LAPACKE/src/lapacke_slantr_work.c +++ b/LAPACKE/src/lapacke_slantr_work.c @@ -41,7 +41,7 @@ float LAPACKE_slantr_work( int matrix_layout, char norm, char uplo, float res = 0.; if( matrix_layout == LAPACK_COL_MAJOR ) { /* Call LAPACK function and adjust info */ - LAPACK_slantr( &norm, &uplo, &diag, &m, &n, a, &lda, work ); + res = LAPACK_slantr( &norm, &uplo, &diag, &m, &n, a, &lda, work ); if( info < 0 ) { info = info - 1; } |