aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlangou <julien.langou@ucdenver.edu>2016-12-29 21:34:08 +0100
committerGitHub <noreply@github.com>2016-12-29 21:34:08 +0100
commit31b82f0a9c8ae82c1eac265dec944da6010c922a (patch)
tree1410c4c63fbd8c0443cc5180aa149c214111bc05
parent663bdbf4e150d521ac0bee4a125e28715d70e714 (diff)
parentb7c2416b4a2423502baeeb99a54b98dc812bec33 (diff)
downloadlapack-31b82f0a9c8ae82c1eac265dec944da6010c922a.tar.gz
Merge pull request #107 from jschueller/ftbfs-aggregated
Fix complex to int conversion
-rw-r--r--LAPACKE/src/lapacke_chetri_3.c2
-rw-r--r--LAPACKE/src/lapacke_csytri_3.c2
-rw-r--r--LAPACKE/src/lapacke_zhetri_3.c2
-rw-r--r--LAPACKE/src/lapacke_zsytri_3.c2
4 files changed, 4 insertions, 4 deletions
diff --git a/LAPACKE/src/lapacke_chetri_3.c b/LAPACKE/src/lapacke_chetri_3.c
index a41146eb..8ce3ad35 100644
--- a/LAPACKE/src/lapacke_chetri_3.c
+++ b/LAPACKE/src/lapacke_chetri_3.c
@@ -60,7 +60,7 @@ lapack_int LAPACKE_chetri_3( int matrix_layout, char uplo, lapack_int n,
if( info != 0 ) {
goto exit_level_0;
}
- lwork = (lapack_int)work_query;
+ lwork = LAPACK_C2INT( work_query );
/* Allocate memory for working array(s) */
work = (lapack_complex_float*)
LAPACKE_malloc( sizeof(lapack_complex_float) * lwork );
diff --git a/LAPACKE/src/lapacke_csytri_3.c b/LAPACKE/src/lapacke_csytri_3.c
index ee550543..543d408d 100644
--- a/LAPACKE/src/lapacke_csytri_3.c
+++ b/LAPACKE/src/lapacke_csytri_3.c
@@ -60,7 +60,7 @@ lapack_int LAPACKE_csytri_3( int matrix_layout, char uplo, lapack_int n,
if( info != 0 ) {
goto exit_level_0;
}
- lwork = (lapack_int)work_query;
+ lwork = LAPACK_C2INT( work_query );
/* Allocate memory for working array(s) */
work = (lapack_complex_float*)
LAPACKE_malloc( sizeof(lapack_complex_float) * lwork );
diff --git a/LAPACKE/src/lapacke_zhetri_3.c b/LAPACKE/src/lapacke_zhetri_3.c
index b9651605..33790c2f 100644
--- a/LAPACKE/src/lapacke_zhetri_3.c
+++ b/LAPACKE/src/lapacke_zhetri_3.c
@@ -60,7 +60,7 @@ lapack_int LAPACKE_zhetri_3( int matrix_layout, char uplo, lapack_int n,
if( info != 0 ) {
goto exit_level_0;
}
- lwork = (lapack_int)work_query;
+ lwork = LAPACK_Z2INT( work_query );
/* Allocate memory for working array(s) */
work = (lapack_complex_double*)
LAPACKE_malloc( sizeof(lapack_complex_double) * lwork );
diff --git a/LAPACKE/src/lapacke_zsytri_3.c b/LAPACKE/src/lapacke_zsytri_3.c
index cb519b9e..0902c57f 100644
--- a/LAPACKE/src/lapacke_zsytri_3.c
+++ b/LAPACKE/src/lapacke_zsytri_3.c
@@ -60,7 +60,7 @@ lapack_int LAPACKE_zsytri_3( int matrix_layout, char uplo, lapack_int n,
if( info != 0 ) {
goto exit_level_0;
}
- lwork = (lapack_int)work_query;
+ lwork = LAPACK_Z2INT( work_query );
/* Allocate memory for working array(s) */
work = (lapack_complex_double*)
LAPACKE_malloc( sizeof(lapack_complex_double) * lwork );