Fix cast for lwork in complex [cz]uncsd2by1 routines

diff --git a/LAPACKE/src/lapacke_cuncsd2by1.c b/LAPACKE/src/lapacke_cuncsd2by1.c
index cdd7543..f00ac34 100644 (file)
--- 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 061cc49..c5c9338 100644 (file)
--- 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 ) {