diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-11-11 05:13:21 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-11-11 05:13:21 +0000 |
| commit | b4c44df6d0abc6513616bf6ab8fa960ff80c3ee5 (patch) | |
| tree | 6a77201204215e20b6562a0b3d63263438475869 /LAPACKE | |
| parent | 1894619166f4e4fb670533b64a37f5c95f5a45ea (diff) | |
| download | lapack-b4c44df6d0abc6513616bf6ab8fa960ff80c3ee5.tar.gz lapack-b4c44df6d0abc6513616bf6ab8fa960ff80c3ee5.tar.bz2 lapack-b4c44df6d0abc6513616bf6ab8fa960ff80c3ee5.zip | |
Fix cast for lwork in complex [cz]uncsd2by1 routines
Diffstat (limited to 'LAPACKE')
| -rw-r--r-- | LAPACKE/src/lapacke_cuncsd2by1.c | 2 | ||||
| -rw-r--r-- | LAPACKE/src/lapacke_zuncsd2by1.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/LAPACKE/src/lapacke_cuncsd2by1.c b/LAPACKE/src/lapacke_cuncsd2by1.c index cdd75432..f00ac34b 100644 --- a/LAPACKE/src/lapacke_cuncsd2by1.c +++ b/LAPACKE/src/lapacke_cuncsd2by1.c @@ -82,7 +82,7 @@ lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_2; } lrwork = (lapack_int)rwork_query; - lwork = (lapack_int)work_query; + lwork = LAPACK_C2INT( work_query ); /* Allocate memory for work arrays */ rwork = (float*)LAPACKE_malloc( sizeof(float) * lrwork ); if( rwork == NULL ) { diff --git a/LAPACKE/src/lapacke_zuncsd2by1.c b/LAPACKE/src/lapacke_zuncsd2by1.c index 061cc497..c5c93381 100644 --- a/LAPACKE/src/lapacke_zuncsd2by1.c +++ b/LAPACKE/src/lapacke_zuncsd2by1.c @@ -82,7 +82,7 @@ lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2, goto exit_level_2; } lrwork = (lapack_int)rwork_query; - lwork = (lapack_int)work_query; + lwork = LAPACK_Z2INT( work_query ); /* Allocate memory for work arrays */ rwork = (double*)LAPACKE_malloc( sizeof(double) * lrwork ); if( rwork == NULL ) { |