Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 1b4504ef authored by PRUVOST Florent's avatar PRUVOST Florent
Browse files

whitespaces

parent aa12229b
No related branches found
No related tags found
No related merge requests found
...@@ -287,7 +287,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A, ...@@ -287,7 +287,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
RUNTIME_barrier(morse); RUNTIME_barrier(morse);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
return status; return status;
......
...@@ -159,7 +159,7 @@ int MORSE_zungqr(int M, int N, int K, ...@@ -159,7 +159,7 @@ int MORSE_zungqr(int M, int N, int K,
/* morse_ziptile2lap( descQ, Q, NB, NB, LDQ, N, sequence, &request);*/ /* morse_ziptile2lap( descQ, Q, NB, NB, LDQ, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* RUNTIME_barrier(morse);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
return status; return status;
......
...@@ -133,7 +133,7 @@ int testing_zgemm(int argc, char **argv) ...@@ -133,7 +133,7 @@ int testing_zgemm(int argc, char **argv)
MORSE_zgemm(trans[ta], trans[tb], M, N, K, alpha, A, LDA, B, LDB, beta, Cfinal, LDC); MORSE_zgemm(trans[ta], trans[tb], M, N, K, alpha, A, LDA, B, LDB, beta, Cfinal, LDC);
/* Check the solution */ /* Check the solution */
info_solution = check_solution(trans[ta], trans[tb], M, N, K, info_solution = check_solution(trans[ta], trans[tb], M, N, K,
alpha, A, LDA, B, LDB, beta, Cinit, Cfinal, LDC); alpha, A, LDA, B, LDB, beta, Cinit, Cfinal, LDC);
if (MORSE_My_Mpi_Rank() == 0){ if (MORSE_My_Mpi_Rank() == 0){
if (info_solution == 0) { if (info_solution == 0) {
...@@ -191,7 +191,7 @@ static int check_solution(MORSE_enum transA, MORSE_enum transB, int M, int N, in ...@@ -191,7 +191,7 @@ static int check_solution(MORSE_enum transA, MORSE_enum transB, int M, int N, in
Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), Am, An, A, LDA, work); Anorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), Am, An, A, LDA, work);
Bnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), Bm, Bn, B, LDB, work); Bnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), Bm, Bn, B, LDB, work);
Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), M, N, Cref, LDC, work); Cinitnorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), M, N, Cref, LDC, work);
Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), M, N, Cmorse, LDC, work); Cmorsenorm = LAPACKE_zlange_work(LAPACK_COL_MAJOR, morse_lapack_const(MorseInfNorm), M, N, Cmorse, LDC, work);
cblas_zgemm(CblasColMajor, (CBLAS_TRANSPOSE)transA, (CBLAS_TRANSPOSE)transB, M, N, K, cblas_zgemm(CblasColMajor, (CBLAS_TRANSPOSE)transA, (CBLAS_TRANSPOSE)transB, M, N, K,
CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC); CBLAS_SADDR(alpha), A, LDA, B, LDB, CBLAS_SADDR(beta), Cref, LDC);
......
...@@ -57,7 +57,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_) ...@@ -57,7 +57,7 @@ RunTest(int *iparam, double *dparam, morse_time_t *t_)
START_TIMING(); START_TIMING();
MORSE_zgels_Tile( MorseNoTrans, descA, descT, descX ); MORSE_zgels_Tile( MorseNoTrans, descA, descT, descX );
STOP_TIMING(); STOP_TIMING();
/* Allocate Workspace */ /* Allocate Workspace */
MORSE_Dealloc_Workspace(&descT); MORSE_Dealloc_Workspace(&descT);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment