Commit 293b7e87 authored by Mathieu Faverge's avatar Mathieu Faverge

Fix a a mistake: we should do sequence_wait and not barrier_wait in the _Tile and _Lapack calls

parent d70f1843
...@@ -134,11 +134,11 @@ int MORSE_zgelqf(int M, int N, ...@@ -134,11 +134,11 @@ int MORSE_zgelqf(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -198,7 +198,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T) ...@@ -198,7 +198,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgelqf_Tile_Async(A, T, sequence, &request); MORSE_zgelqf_Tile_Async(A, T, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
status = sequence->status; status = sequence->status;
......
...@@ -153,13 +153,13 @@ int MORSE_zgelqs(int M, int N, int NRHS, ...@@ -153,13 +153,13 @@ int MORSE_zgelqs(int M, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -219,7 +219,7 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B) ...@@ -219,7 +219,7 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgelqs_Tile_Async(A, T, B, sequence, &request); MORSE_zgelqs_Tile_Async(A, T, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -202,13 +202,13 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS, ...@@ -202,13 +202,13 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -284,7 +284,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A, ...@@ -284,7 +284,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgels_Tile_Async(trans, A, T, B, sequence, &request); MORSE_zgels_Tile_Async(trans, A, T, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -231,7 +231,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K, ...@@ -231,7 +231,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request); morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC); morse_desc_mat_free(&descC);
...@@ -239,7 +239,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K, ...@@ -239,7 +239,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, Bn, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, Bn, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/ /* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -319,7 +319,7 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB, ...@@ -319,7 +319,7 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgemm_Tile_Async(transA, transB, alpha, A, B, beta, C, sequence, &request); MORSE_zgemm_Tile_Async(transA, transB, alpha, A, B, beta, C, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C); RUNTIME_desc_getoncpu(C);
......
...@@ -133,11 +133,11 @@ int MORSE_zgeqrf(int M, int N, ...@@ -133,11 +133,11 @@ int MORSE_zgeqrf(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -197,7 +197,7 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T) ...@@ -197,7 +197,7 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgeqrf_Tile_Async(A, T, sequence, &request); MORSE_zgeqrf_Tile_Async(A, T, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
status = sequence->status; status = sequence->status;
......
...@@ -153,13 +153,13 @@ int MORSE_zgeqrs(int M, int N, int NRHS, ...@@ -153,13 +153,13 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -218,7 +218,7 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B) ...@@ -218,7 +218,7 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgeqrs_Tile_Async(A, T, B, sequence, &request); MORSE_zgeqrs_Tile_Async(A, T, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(T); RUNTIME_desc_getoncpu(T);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -153,13 +153,13 @@ int MORSE_zgesv_incpiv(int N, int NRHS, ...@@ -153,13 +153,13 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -224,7 +224,7 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d ...@@ -224,7 +224,7 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgesv_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request); MORSE_zgesv_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -152,13 +152,13 @@ int MORSE_zgesv_nopiv(int N, int NRHS, ...@@ -152,13 +152,13 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -216,7 +216,7 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -216,7 +216,7 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgesv_nopiv_Tile_Async(A, B, sequence, &request); MORSE_zgesv_nopiv_Tile_Async(A, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -135,11 +135,11 @@ int MORSE_zgetrf_incpiv(int M, int N, ...@@ -135,11 +135,11 @@ int MORSE_zgetrf_incpiv(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -202,7 +202,7 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV) ...@@ -202,7 +202,7 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgetrf_incpiv_Tile_Async(A, L, IPIV, sequence, &request); MORSE_zgetrf_incpiv_Tile_Async(A, L, IPIV, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
status = sequence->status; status = sequence->status;
......
...@@ -129,12 +129,12 @@ int MORSE_zgetrf_nopiv(int M, int N, ...@@ -129,12 +129,12 @@ int MORSE_zgetrf_nopiv(int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request ); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request );
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N,*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N,*/
/* sequence, &request );*/ /* sequence, &request );*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -190,7 +190,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A) ...@@ -190,7 +190,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgetrf_nopiv_Tile_Async(A, sequence, &request); MORSE_zgetrf_nopiv_Tile_Async(A, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
status = sequence->status; status = sequence->status;
......
...@@ -158,13 +158,13 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS, ...@@ -158,13 +158,13 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -227,7 +227,7 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_ ...@@ -227,7 +227,7 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgetrs_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request); MORSE_zgetrs_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -152,13 +152,13 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS, ...@@ -152,13 +152,13 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, NRHS, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -215,7 +215,7 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -215,7 +215,7 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgetrs_nopiv_Tile_Async(A, B, sequence, &request); MORSE_zgetrs_nopiv_Tile_Async(A, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
......
...@@ -194,7 +194,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N, ...@@ -194,7 +194,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request); morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC); morse_desc_mat_free(&descC);
...@@ -202,7 +202,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N, ...@@ -202,7 +202,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
/* morse_ziptile2lap( descA, A, NB, NB, LDA, Am, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, Am, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/ /* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -284,7 +284,7 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo, ...@@ -284,7 +284,7 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zhemm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request); MORSE_zhemm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C); RUNTIME_desc_getoncpu(C);
......
...@@ -198,7 +198,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K, ...@@ -198,7 +198,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request); morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC); morse_desc_mat_free(&descC);
...@@ -206,7 +206,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K, ...@@ -206,7 +206,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, An, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, An, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/ /* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -283,7 +283,7 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -283,7 +283,7 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zher2k_Tile_Async(uplo, trans, alpha, A, B, beta, C, sequence, &request); MORSE_zher2k_Tile_Async(uplo, trans, alpha, A, B, beta, C, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B); RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C); RUNTIME_desc_getoncpu(C);
......
...@@ -180,13 +180,13 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K, ...@@ -180,13 +180,13 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request); morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descC); morse_desc_mat_free(&descC);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, An, sequence, &request);*/
/* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/ /* morse_ziptile2lap( descC, C, NB, NB, LDC, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
status = sequence->status; status = sequence->status;
...@@ -259,7 +259,7 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -259,7 +259,7 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zherk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request); MORSE_zherk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A); RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C); RUNTIME_desc_getoncpu(C);
......
...@@ -146,12 +146,12 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N, ...@@ -146,12 +146,12 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descB, B, NB, NB, LDB, N, sequence, &request); morse_zooptile2lap(descB, B, NB, NB, LDB, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB); morse_desc_mat_free(&descB);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);*/ /* morse_ziptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
...@@ -211,7 +211,7 @@ int MORSE_zlacpy_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -211,7 +211,7 @@ int MORSE_zlacpy_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zlacpy_Tile_Async(uplo, A, B, sequence, &request); MORSE_zlacpy_Tile_Async(uplo, A, B, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
return MORSE_SUCCESS; return MORSE_SUCCESS;
} }
......
...@@ -146,12 +146,12 @@ double MORSE_zlange(MORSE_enum norm, int M, int N, ...@@ -146,12 +146,12 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(&descA); RUNTIME_desc_getoncpu(&descA);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
...@@ -210,7 +210,7 @@ double MORSE_zlange_Tile(MORSE_enum norm, MORSE_desc_t *A) ...@@ -210,7 +210,7 @@ double MORSE_zlange_Tile(MORSE_enum norm, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zlange_Tile_Async(norm, A, &value, sequence, &request); MORSE_zlange_Tile_Async(norm, A, &value, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
return value; return value;
} }
......
...@@ -146,12 +146,12 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N, ...@@ -146,12 +146,12 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request); morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(&descA); RUNTIME_desc_getoncpu(&descA);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
...@@ -214,7 +214,7 @@ double MORSE_zlanhe_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A) ...@@ -214,7 +214,7 @@ double MORSE_zlanhe_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zlanhe_Tile_Async(norm, uplo, A, &value, sequence, &request); MORSE_zlanhe_Tile_Async(norm, uplo, A, &value, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
return value; return value;
} }
......
...@@ -145,11 +145,11 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N, ...@@ -145,11 +145,11 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_zlansy_Tile_Async(norm, uplo, &descA, &value, sequence, &request); MORSE_zlansy_Tile_Async(norm, uplo, &descA, &value, sequence, &request);
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/ /* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA); morse_desc_mat_free(&descA);
/* } else {*/ /* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/ /* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
/* RUNTIME_barrier(morse);*/ /* morse_sequence_wait(morse, sequence);*/
/* }*/ /* }*/
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
...@@ -212,7 +212,7 @@ double MORSE_zlansy_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A) ...@@ -212,7 +212,7 @@ double MORSE_zlansy_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zlansy_Tile_Async(norm, uplo, A, &value, sequence, &request); MORSE_zlansy_Tile_Async(norm, uplo, A, &value, sequence, &request);
RUNTIME_barrier(morse); morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
return value; return value;
} }
......
...@@ -165,11 +165,11 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag, ...@@ -165,11 +165,11 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,