diff options
author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-29 21:53:54 +0100 |
---|---|---|
committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-29 21:53:54 +0100 |
commit | b5144a4ca1830ab349296ec141e877651ce08332 (patch) | |
tree | 313fd4b98e944215181753420a35f95919e7948f /LAPACKE | |
parent | c5788233f95fed2c7f008ea079e8257a85348287 (diff) |
fixes some more complex to int conversion in the LAPACKE files during workspace
queries See pull request #107 for an initial bunch of these corrections, this
is a follow up. This should hopefully fix them all.
Diffstat (limited to 'LAPACKE')
-rw-r--r-- | LAPACKE/src/lapacke_cgelq.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_cgemlq.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_cgeqr.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zgelq.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zgemlq.c | 2 | ||||
-rw-r--r-- | LAPACKE/src/lapacke_zgeqr.c | 2 |
6 files changed, 6 insertions, 6 deletions
diff --git a/LAPACKE/src/lapacke_cgelq.c b/LAPACKE/src/lapacke_cgelq.c index 5dcbe32c..df1d4882 100644 --- a/LAPACKE/src/lapacke_cgelq.c +++ b/LAPACKE/src/lapacke_cgelq.c @@ -60,7 +60,7 @@ lapack_int LAPACKE_cgelq_work( int matrix_layout, lapack_int m, lapack_int n, if( tsize == -1 || tsize == -2 ) { goto exit_level_0; } - lwork = (lapack_int)work_query; + lwork = LAPACK_C2INT( work_query ); /* Allocate memory for work arrays */ work = (lapack_complex_float*)LAPACKE_malloc( sizeof(lapack_complex_float) * lwork ); if( work == NULL ) { diff --git a/LAPACKE/src/lapacke_cgemlq.c b/LAPACKE/src/lapacke_cgemlq.c index 587f2df9..ae391110 100644 --- a/LAPACKE/src/lapacke_cgemlq.c +++ b/LAPACKE/src/lapacke_cgemlq.c @@ -65,7 +65,7 @@ lapack_int LAPACKE_cgemlq( int matrix_layout, char side, char trans, if( info != 0 ) { goto exit_level_0; } - lwork = (lapack_int)work_query; + lwork = LAPACK_C2INT( work_query ); /* Allocate memory for work arrays */ work = (lapack_complex_float*)LAPACKE_malloc( sizeof(lapack_complex_float) * lwork ); if( work == NULL ) { diff --git a/LAPACKE/src/lapacke_cgeqr.c b/LAPACKE/src/lapacke_cgeqr.c index beabeb8f..264b1356 100644 --- a/LAPACKE/src/lapacke_cgeqr.c +++ b/LAPACKE/src/lapacke_cgeqr.c @@ -60,7 +60,7 @@ lapack_int LAPACKE_cgeqr( int matrix_layout, lapack_int m, lapack_int n, if( tsize == -1 || tsize == -2 ) { goto exit_level_0; } - lwork = (lapack_int)work_query; + lwork = LAPACK_C2INT( work_query ); /* Allocate memory for work arrays */ work = (lapack_complex_float*) LAPACKE_malloc( sizeof(lapack_complex_float) * lwork ); diff --git a/LAPACKE/src/lapacke_zgelq.c b/LAPACKE/src/lapacke_zgelq.c index 327aa1d1..5f120350 100644 --- a/LAPACKE/src/lapacke_zgelq.c +++ b/LAPACKE/src/lapacke_zgelq.c @@ -60,7 +60,7 @@ lapack_int LAPACKE_zgelq_work( int matrix_layout, lapack_int m, lapack_int n, if( tsize == -1 || tsize == -2 ) { goto exit_level_0; } - lwork = (lapack_int)work_query; + lwork = LAPACK_Z2INT( work_query ); /* Allocate memory for work arrays */ work = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lwork ); if( work == NULL ) { diff --git a/LAPACKE/src/lapacke_zgemlq.c b/LAPACKE/src/lapacke_zgemlq.c index cce77032..b47ca26a 100644 --- a/LAPACKE/src/lapacke_zgemlq.c +++ b/LAPACKE/src/lapacke_zgemlq.c @@ -65,7 +65,7 @@ lapack_int LAPACKE_zgemlq( int matrix_layout, char side, char trans, if( info != 0 ) { goto exit_level_0; } - lwork = (lapack_int)work_query; + lwork = LAPACK_Z2INT( work_query ); /* Allocate memory for work arrays */ work = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lwork ); if( work == NULL ) { diff --git a/LAPACKE/src/lapacke_zgeqr.c b/LAPACKE/src/lapacke_zgeqr.c index 61a179de..2370f4c2 100644 --- a/LAPACKE/src/lapacke_zgeqr.c +++ b/LAPACKE/src/lapacke_zgeqr.c @@ -60,7 +60,7 @@ lapack_int LAPACKE_zgeqr( int matrix_layout, lapack_int m, lapack_int n, if( tsize == -1 || tsize == -2 ) { goto exit_level_0; } - lwork = (lapack_int)work_query; + lwork = LAPACK_Z2INT( work_query ); /* Allocate memory for work arrays */ work = (lapack_complex_double*) LAPACKE_malloc( sizeof(lapack_complex_double) * lwork ); |