From 2a504e9ecb5bffb5694c7b3c30c5555a1d09d111 Mon Sep 17 00:00:00 2001 From: Julie Date: Sun, 12 Nov 2017 20:07:02 -0800 Subject: [PATCH] Small Precision fix for LAPACKE Aasen 2 stage --- LAPACKE/src/lapacke_zhesv_aa_2stage_work.c | 2 +- LAPACKE/src/lapacke_zsysv_aa_2stage_work.c | 2 +- LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c b/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c index 5fafbafbb5..9dfd16ec50 100644 --- a/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c @@ -105,7 +105,7 @@ lapack_int LAPACKE_zhesv_aa_2stage_work( int matrix_layout, char uplo, lapack_in } /* Transpose output matrices */ LAPACKE_zhe_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); - LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); + LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); exit_level_2: diff --git a/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c b/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c index 866e640532..144b3bc74a 100644 --- a/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c @@ -105,7 +105,7 @@ lapack_int LAPACKE_zsysv_aa_2stage_work( int matrix_layout, char uplo, lapack_in } /* Transpose output matrices */ LAPACKE_zsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); - LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); + LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); exit_level_2: diff --git a/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c b/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c index 71618b4a68..1c5b602809 100644 --- a/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c +++ b/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c @@ -95,7 +95,7 @@ lapack_int LAPACKE_zsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_i } /* Transpose output matrices */ LAPACKE_zsy_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda ); - LAPACKE_sge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); + LAPACKE_zge_trans( LAPACK_COL_MAJOR, n, nrhs, b_t, ldb_t, b, ldb ); /* Release memory and exit */ LAPACKE_free( b_t ); exit_level_2: