Commit 998c7a2a authored by Mathieu Faverge's avatar Mathieu Faverge

Reorder loops in SYMM to add the dataflush calls for distributed

parent f3f08db3
......@@ -19,11 +19,9 @@
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @author Hatem Ltaief
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @author Ali M Charara
* @date 2010-11-15
* @precisions normal z -> s d c
*
......@@ -47,7 +45,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
int ldak, ldam, ldan;
int tempkm, tempmm, tempnn, tempkn;
MORSE_Complex64_t alpha = (MORSE_Complex64_t) 1.0;
MORSE_Complex64_t alpha = (MORSE_Complex64_t) 1.0;
MORSE_Complex64_t beta = (MORSE_Complex64_t) 0.0;
MORSE_Complex64_t zbeta;
MORSE_Complex64_t zone = (MORSE_Complex64_t) 1.0;
......
This diff is collapsed.
......@@ -74,9 +74,9 @@
*
******************************************************************************/
int MORSE_zpotrimm(MORSE_enum uplo, int N,
MORSE_Complex64_t *A, int LDA,
MORSE_Complex64_t *B, int LDB,
MORSE_Complex64_t *C, int LDC)
MORSE_Complex64_t *A, int LDA,
MORSE_Complex64_t *B, int LDB,
MORSE_Complex64_t *C, int LDC)
{
int NB;
int status;
......@@ -310,17 +310,14 @@ int MORSE_zpotrimm_Tile_Async(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
return morse_request_fail(sequence, request, -1);
}
/* Quick return */
/*
if (max(N, 0) == 0)
return MORSE_SUCCESS;
*/
/*
if (max(N, 0) == 0)
return MORSE_SUCCESS;
*/
morse_pzpotrimm(uplo, A, B, C, sequence, request);
/*
morse_pztrtri(uplo, MorseNonUnit, A, sequence, request);
morse_pzlauum(uplo, A, sequence, request);
morse_pztrtri(uplo, MorseNonUnit, A, sequence, request);
morse_pzlauum(uplo, A, sequence, request);
*/
return MORSE_SUCCESS;
......
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