From 1401ea15bc7569eb389605b03250752a29a82fed Mon Sep 17 00:00:00 2001 From: julie Date: Sat, 14 Nov 2015 06:40:57 +0000 Subject: Fix cast... --- LAPACKE/src/lapacke_cgesvdx.c | 2 +- LAPACKE/src/lapacke_zgesvdx.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/LAPACKE/src/lapacke_cgesvdx.c b/LAPACKE/src/lapacke_cgesvdx.c index da0bb070..93f5fc14 100644 --- 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 43220780..3b9b12dc 100644 --- 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 ) { -- cgit v1.2.3