diff --git a/coreblas/compute/core_ztsmlq_hetra1.c b/coreblas/compute/core_ztsmlq_hetra1.c
index e7edbe4befedd2f3eaf65592af49e836ae676e6d..e7903c4e05b4c4be3b756aacc90d00a712e30f59 100644
--- a/coreblas/compute/core_ztsmlq_hetra1.c
+++ b/coreblas/compute/core_ztsmlq_hetra1.c
@@ -143,8 +143,9 @@ int CORE_ztsmlq_hetra1( MORSE_enum side, MORSE_enum trans,
 
     /* in-place transposition of A1 */
     for (j = 0; j < n1; j++){
+#if defined(PRECISION_z) || defined(PRECISION_c)
         A1[j + j*lda1] = conj(A1[j + j*lda1]);
-
+#endif
         for (i = j+1; i < m1; i++){
             *WORK = *(A1 + i + j*lda1);
             *(A1 + i + j*lda1) = conj(*(A1 + j + i*lda1));
@@ -159,8 +160,9 @@ int CORE_ztsmlq_hetra1( MORSE_enum side, MORSE_enum trans,
 
     /* in-place transposition of A1 */
     for (j = 0; j < n1; j++){
+#if defined(PRECISION_z) || defined(PRECISION_c)
         A1[j + j*lda1] = conj(A1[j + j*lda1]);
-
+#endif
         for (i = j+1; i < m1; i++){
             *WORK = *(A1 + i + j*lda1);
             *(A1 + i + j*lda1) = conj(*(A1 + j + i*lda1));
diff --git a/coreblas/compute/core_ztsmqr_hetra1.c b/coreblas/compute/core_ztsmqr_hetra1.c
index e0675ddfff5193364dc3d803a68c2858302126c0..f66c27f1101b9ab192d1a550a101f75f7148a530 100644
--- a/coreblas/compute/core_ztsmqr_hetra1.c
+++ b/coreblas/compute/core_ztsmqr_hetra1.c
@@ -145,8 +145,9 @@ int CORE_ztsmqr_hetra1( MORSE_enum side, MORSE_enum trans,
 
     /* in-place transposition of A1 */
     for (j = 0; j < n1; j++){
+#if defined(PRECISION_z) || defined(PRECISION_c)
         A1[j + j*lda1] = conj(A1[j + j*lda1]);
-
+#endif
         for (i = j+1; i < m1; i++){
             *WORK = *(A1 + i + j*lda1);
             *(A1 + i + j*lda1) = conj(*(A1 + j + i*lda1));
@@ -158,8 +159,9 @@ int CORE_ztsmqr_hetra1( MORSE_enum side, MORSE_enum trans,
 
     /* in-place transposition of A1 */
     for (j = 0; j < n1; j++){
+#if defined(PRECISION_z) || defined(PRECISION_c)
         A1[j + j*lda1] = conj(A1[j + j*lda1]);
-
+#endif
         for (i = j+1; i < m1; i++){
             *WORK = *(A1 + i + j*lda1);
             *(A1 + i + j*lda1) = conj(*(A1 + j + i*lda1));