Small Precision fix for LAPACKE Aasen 2 stage

Reference-LAPACK · Nov 13, 2017 · 2a504e9 · 2a504e9
1 parent 03f1d35
commit 2a504e9
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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: