Remove unused tile_to_zero

compute/pztile.c

@@ -126,36 +126,3 @@ void morse_pztile_to_lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int ldaf77
     RUNTIME_options_finalize( &options, morse );
     RUNTIME_desc_destroy( &B );
 }
-
-
-/*******************************************************************************
- *  Zeroes a submatrix in tile layout - dynamic scheduling
- **/
-void morse_pztile_zero(MORSE_desc_t *A, MORSE_sequence_t *sequence, MORSE_request_t *request)
-{
-    MORSE_context_t *morse;
-    MORSE_option_t options;
-    int m, n;
-    int ldam;
-    int tempmm, tempnn;
-
-    morse = morse_context_self();
-    if (sequence->status != MORSE_SUCCESS)
-        return;
-    RUNTIME_options_init(&options, morse, sequence, request);
-
-    for (m = 0; m < A->mt; m++) {
-        tempmm = m == A->mt-1 ? A->m-m*A->mb : A->mb;
-        ldam = BLKLDD(A, m);
-        for (n = 0; n < A->nt; n++) {
-            tempnn = n == A->nt-1 ? A->n-n*A->nb : A->nb;
-            MORSE_TASK_ztile_zero(
-                &options,
-                0, tempnn, 0, tempmm,
-                A(m, n), ldam);
-        }
-    }
-
-    RUNTIME_sequence_wait( morse, sequence );
-    RUNTIME_options_finalize( &options, morse );
-}

compute/zgelqs.c

@@ -313,8 +313,8 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B,
     }
 */
     /* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
-    morse_pztile_zero(subB, sequence, request);
-    free(subB); */
+     morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request );
+     free(subB); */
 
     subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
     subA = morse_desc_submatrix(A, 0, 0, A->m, A->m);

compute/zgelqs_param.c

@@ -322,7 +322,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A,
     }
 */
     /* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
-    morse_pztile_zero(subB, sequence, request);
+    morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request);
     free(subB); */
 
     subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);

compute/zgels.c

@@ -409,7 +409,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
     }
     else {
         /* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n);
-        morse_pztile_zero(subB, sequence, request);
+        morse_pzlaset( MorseUpperLower, 0., 0., subB, sequence, request);
         free(subB); */
 #if defined(CHAMELEON_COPY_DIAG)
         {

control/tile.h

@@ -51,11 +51,6 @@ void morse_pclapack_to_tile(MORSE_Complex32_t*, int, MORSE_desc_t*, MORSE_sequen
 void morse_pdlapack_to_tile(double*, int, MORSE_desc_t*, MORSE_sequence_t *sequence, MORSE_request_t *request);
 void morse_pslapack_to_tile(float*, int, MORSE_desc_t*, MORSE_sequence_t *sequence, MORSE_request_t *request);
 
-void morse_pztile_zero(MORSE_desc_t *dA, MORSE_sequence_t *sequence, MORSE_request_t *request);
-void morse_pctile_zero(MORSE_desc_t *dA, MORSE_sequence_t *sequence, MORSE_request_t *request);
-void morse_pdtile_zero(MORSE_desc_t *dA, MORSE_sequence_t *sequence, MORSE_request_t *request);
-void morse_pstile_zero(MORSE_desc_t *dA, MORSE_sequence_t *sequence, MORSE_request_t *request);
-
 #ifdef __cplusplus
 }
 #endif