diff --git a/coreblas/compute/core_zgelqt.c b/coreblas/compute/core_zgelqt.c
index c7ca8c12d7ea786e17afb83a0f705993b3bd4f8e..8268be84117d9f19fc705a0f3c9c288dd0270ace 100644
--- a/coreblas/compute/core_zgelqt.c
+++ b/coreblas/compute/core_zgelqt.c
@@ -156,22 +156,6 @@ int CORE_zgelqt(int M, int N, int IB,
                 WORK, M-i-sb);
         }
     }
-    // print the matrices
-//    int i1, i2;
-//    printf("\nV \n");
-//    for (i1=0; i1<M; i1++){
-//        for (i2=0; i2<N; i2++){
-//            printf("%f ", A[i1+i2*LDA]);
-//        }
-//        printf("\n");
-//    }
-//    printf("\nT \n");
-//    for (i1=0; i1<IB; i1++){
-//        for (i2=0; i2<N; i2++){
-//            printf("%f ", T[i1+i2*LDT]);
-//        }
-//        printf("\n");
-//    }
     return MORSE_SUCCESS;
 }