diff options
Diffstat (limited to 'conversion.patch')
-rw-r--r-- | conversion.patch | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/conversion.patch b/conversion.patch new file mode 100644 index 000000000000..9cab326bdba8 --- /dev/null +++ b/conversion.patch @@ -0,0 +1,52 @@ +diff --git a/LAPACKE/src/lapacke_chetri_3.c b/LAPACKE/src/lapacke_chetri_3.c +index a41146e..8ce3ad3 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 ee55054..543d408 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 b965160..33790c2 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 cb519b9..0902c57 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 ); |