Fix cast...

diff --git a/LAPACKE/src/lapacke_cgesvdx.c b/LAPACKE/src/lapacke_cgesvdx.c
index da0bb07..93f5fc1 100644 (file)
--- a/LAPACKE/src/lapacke_cgesvdx.c
+++ b/LAPACKE/src/lapacke_cgesvdx.c
@@ -66,7 +66,7 @@ lapack_int LAPACKE_cgesvdx( int matrix_layout, char jobu, char jobvt, char range
     if( info != 0 ) {
         goto exit_level_0;
     }
-    lwork = (lapack_int)work_query;
+    lwork = LAPACK_C2INT (work_query);
     /* Allocate memory for work arrays */
     rwork = (float*)LAPACKE_malloc( sizeof(float) * lwork );
     if( work == NULL ) {

diff --git a/LAPACKE/src/lapacke_zgesvdx.c b/LAPACKE/src/lapacke_zgesvdx.c
index 4322078..3b9b12d 100644 (file)
--- a/LAPACKE/src/lapacke_zgesvdx.c
+++ b/LAPACKE/src/lapacke_zgesvdx.c
@@ -66,7 +66,7 @@ lapack_int LAPACKE_zgesvdx( int matrix_layout, char jobu, char jobvt, char range
     if( info != 0 ) {
         goto exit_level_0;
     }
-    lwork = (lapack_int)work_query;
+    lwork = LAPACK_Z2INT (work_query);
     /* Allocate memory for work arrays */
     rwork = (double*)LAPACKE_malloc( sizeof(double) * lwork );
     if( work == NULL ) {