Commit 812732a2 authored by Mathieu Faverge's avatar Mathieu Faverge

Remove unused tile_to_zero

parent 99b1c7ee
...@@ -126,36 +126,3 @@ void morse_pztile_to_lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int ldaf77 ...@@ -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_options_finalize( &options, morse );
RUNTIME_desc_destroy( &B ); 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 );
}
...@@ -313,7 +313,7 @@ int MORSE_zgelqs_Tile_Async(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B, ...@@ -313,7 +313,7 @@ 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); /* 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); */ free(subB); */
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
......
...@@ -322,7 +322,7 @@ int MORSE_zgelqs_param_Tile_Async(const libhqr_tree_t *qrtree, MORSE_desc_t *A, ...@@ -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); /* 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); */ free(subB); */
subB = morse_desc_submatrix(B, 0, 0, A->m, B->n); subB = morse_desc_submatrix(B, 0, 0, A->m, B->n);
......
...@@ -409,7 +409,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A, ...@@ -409,7 +409,7 @@ int MORSE_zgels_Tile_Async(MORSE_enum trans, MORSE_desc_t *A,
} }
else { else {
/* subB = morse_desc_submatrix(B, A->m, 0, A->n-A->m, B->n); /* 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); */ free(subB); */
#if defined(CHAMELEON_COPY_DIAG) #if defined(CHAMELEON_COPY_DIAG)
{ {
......
...@@ -51,11 +51,6 @@ void morse_pclapack_to_tile(MORSE_Complex32_t*, int, MORSE_desc_t*, MORSE_sequen ...@@ -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_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_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 #ifdef __cplusplus
} }
#endif #endif
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment