Add compilation of the kernels

coreblas/compute/CMakeLists.txt

@@ -73,6 +73,8 @@ set(ZSRC
     core_zsyrk.c
     core_zsyssq.c
     core_zsytf2_nopiv.c
+    core_ztpqrt.c
+    core_ztpmqrt.c
     core_ztradd.c
     core_ztrasm.c
     core_ztrmm.c

coreblas/compute/core_ztpmqrt.c

@@ -148,8 +148,7 @@ int CORE_ztpmqrt( MORSE_enum side, MORSE_enum trans,
                   MORSE_Complex64_t *B, int LDB,
                   MORSE_Complex64_t *WORK )
 {
-    int m1;
-    int n1;
+    int m1, n1, ldwork;
 
     /* Check input arguments */
     if ((side != MorseLeft) && (side != MorseRight)) {
@@ -160,7 +159,7 @@ int CORE_ztpmqrt( MORSE_enum side, MORSE_enum trans,
     if ( side == MorseLeft ) {
         m1 = K;
         n1 = N;
-        ldwork = ib;
+        ldwork = IB;
     }
     else {
         m1 = M;

coreblas/compute/core_ztpqrt.c

@@ -102,12 +102,6 @@ int CORE_ztpqrt( int M, int N, int L, int IB,
                  MORSE_Complex64_t *T, int LDT,
                  MORSE_Complex64_t *WORK )
 {
-    static MORSE_Complex64_t zone  = 1.0;
-    static MORSE_Complex64_t zzero = 0.0;
-
-    MORSE_Complex64_t alpha;
-    int i, ii, sb;
-
 #if !defined(NDEBUG)
      /* Check input arguments */
     if (M < 0) {
@@ -144,7 +138,7 @@ int CORE_ztpqrt( int M, int N, int L, int IB,
     if ((M == 0) || (N == 0) || (IB == 0))
         return MORSE_SUCCESS;
 
-    if ( L == O ) {
+    if ( L == 0 ) {
         CORE_ztsqrt( M, N, IB, A, LDA, B, LDB, T, LDT, WORK, WORK+N );
     }
     else if (L == M) {