Commit 45327348 authored by Mathieu Faverge's avatar Mathieu Faverge

Reorder getoncpu async

parent b0abd27f
...@@ -249,9 +249,9 @@ int MORSE_zgeadd_Tile(MORSE_enum trans, ...@@ -249,9 +249,9 @@ int MORSE_zgeadd_Tile(MORSE_enum trans,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgeadd_Tile_Async(trans, alpha, A, beta, B, sequence, &request); MORSE_zgeadd_Tile_Async(trans, alpha, A, beta, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -200,8 +200,8 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T) ...@@ -200,8 +200,8 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -197,8 +197,8 @@ int MORSE_zgelqf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_ ...@@ -197,8 +197,8 @@ int MORSE_zgelqf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgelqf_param_Tile_Async(qrtree, A, TS, TT, sequence, &request); MORSE_zgelqf_param_Tile_Async(qrtree, A, TS, TT, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -222,9 +222,9 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B) ...@@ -222,9 +222,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -227,9 +227,9 @@ int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_ ...@@ -227,9 +227,9 @@ int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgelqs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request); MORSE_zgelqs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -286,9 +286,9 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A, ...@@ -286,9 +286,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -291,9 +291,9 @@ int MORSE_zgels_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum trans, MORSE_ ...@@ -291,9 +291,9 @@ int MORSE_zgels_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum trans, MORSE_
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgels_param_Tile_Async(qrtree, trans, A, TS, TT, B, sequence, &request); MORSE_zgels_param_Tile_Async(qrtree, trans, A, TS, TT, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -321,10 +321,10 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB, ...@@ -321,10 +321,10 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -199,8 +199,8 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T) ...@@ -199,8 +199,8 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -206,8 +206,8 @@ int MORSE_zgeqrf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_ ...@@ -206,8 +206,8 @@ int MORSE_zgeqrf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgeqrf_param_Tile_Async(qrtree, A, TS, TT, sequence, &request); MORSE_zgeqrf_param_Tile_Async(qrtree, A, TS, TT, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -221,10 +221,10 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B) ...@@ -221,10 +221,10 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( T, sequence ); RUNTIME_desc_getoncpu_async( T, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -216,11 +216,11 @@ int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_ ...@@ -216,11 +216,11 @@ int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zgeqrs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request); MORSE_zgeqrs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( TS, sequence ); RUNTIME_desc_getoncpu_async( TS, sequence );
RUNTIME_desc_getoncpu_async( TT, sequence ); RUNTIME_desc_getoncpu_async( TT, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -226,9 +226,9 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d ...@@ -226,9 +226,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -218,9 +218,9 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -218,9 +218,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -204,8 +204,8 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV) ...@@ -204,8 +204,8 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -192,8 +192,8 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A) ...@@ -192,8 +192,8 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -229,9 +229,9 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_ ...@@ -229,9 +229,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -217,9 +217,9 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -217,9 +217,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -286,10 +286,10 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo, ...@@ -286,10 +286,10 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -285,10 +285,10 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -285,10 +285,10 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -261,9 +261,9 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -261,9 +261,9 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -147,8 +147,8 @@ double MORSE_zlange(MORSE_enum norm, int M, int N, ...@@ -147,8 +147,8 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( &descA, sequence ); RUNTIME_desc_getoncpu_async( &descA, sequence );
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);*/
......
...@@ -147,8 +147,8 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N, ...@@ -147,8 +147,8 @@ 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);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( &descA, sequence ); RUNTIME_desc_getoncpu_async( &descA, sequence );
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);*/
......
...@@ -201,8 +201,8 @@ int MORSE_zlauum_Tile(MORSE_enum uplo, MORSE_desc_t *A) ...@@ -201,8 +201,8 @@ int MORSE_zlauum_Tile(MORSE_enum uplo, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zlauum_Tile_Async(uplo, A, sequence, &request); MORSE_zlauum_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -244,9 +244,9 @@ int MORSE_zposv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -244,9 +244,9 @@ int MORSE_zposv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zposv_Tile_Async(uplo, A, B, sequence, &request); MORSE_zposv_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -213,8 +213,8 @@ int MORSE_zpotrf_Tile(MORSE_enum uplo, MORSE_desc_t *A) ...@@ -213,8 +213,8 @@ int MORSE_zpotrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zpotrf_Tile_Async(uplo, A, sequence, &request); MORSE_zpotrf_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -201,8 +201,8 @@ int MORSE_zpotri_Tile(MORSE_enum uplo, MORSE_desc_t *A) ...@@ -201,8 +201,8 @@ int MORSE_zpotri_Tile(MORSE_enum uplo, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zpotri_Tile_Async(uplo, A, sequence, &request); MORSE_zpotri_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -219,8 +219,8 @@ int MORSE_zpotrimm_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE ...@@ -219,8 +219,8 @@ int MORSE_zpotrimm_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zpotrimm_Tile_Async(uplo, A, B, C, sequence, &request); MORSE_zpotrimm_Tile_Async(uplo, A, B, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -219,9 +219,9 @@ int MORSE_zpotrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -219,9 +219,9 @@ int MORSE_zpotrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zpotrs_Tile_Async(uplo, A, B, sequence, &request); MORSE_zpotrs_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -286,10 +286,10 @@ int MORSE_zsymm_Tile(MORSE_enum side, MORSE_enum uplo, ...@@ -286,10 +286,10 @@ int MORSE_zsymm_Tile(MORSE_enum side, MORSE_enum uplo,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zsymm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request); MORSE_zsymm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -285,10 +285,10 @@ int MORSE_zsyr2k_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -285,10 +285,10 @@ int MORSE_zsyr2k_Tile(MORSE_enum uplo, MORSE_enum trans,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zsyr2k_Tile_Async(uplo, trans, alpha, A, B, beta, C, sequence, &request); MORSE_zsyr2k_Tile_Async(uplo, trans, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -261,9 +261,9 @@ int MORSE_zsyrk_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -261,9 +261,9 @@ int MORSE_zsyrk_Tile(MORSE_enum uplo, MORSE_enum trans,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zsyrk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request); MORSE_zsyrk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence ); RUNTIME_desc_getoncpu_async( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -237,9 +237,9 @@ int MORSE_zsysv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -237,9 +237,9 @@ int MORSE_zsysv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zsysv_Tile_Async(uplo, A, B, sequence, &request); MORSE_zsysv_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -202,8 +202,8 @@ int MORSE_zsytrf_Tile(MORSE_enum uplo, MORSE_desc_t *A) ...@@ -202,8 +202,8 @@ int MORSE_zsytrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zsytrf_Tile_Async(uplo, A, sequence, &request); MORSE_zsytrf_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -215,9 +215,9 @@ int MORSE_zsytrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B) ...@@ -215,9 +215,9 @@ int MORSE_zsytrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_zsytrs_Tile_Async(uplo, A, B, sequence, &request); MORSE_zsytrs_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -296,9 +296,9 @@ int MORSE_ztpgqrt_Tile( int L, ...@@ -296,9 +296,9 @@ int MORSE_ztpgqrt_Tile( int L,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_ztpgqrt_Tile_Async(L, V1, T1, V2, T2, Q1, Q2, sequence, &request); MORSE_ztpgqrt_Tile_Async(L, V1, T1, V2, T2, Q1, Q2, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( Q1, sequence ); RUNTIME_desc_getoncpu_async( Q1, sequence );
RUNTIME_desc_getoncpu_async( Q2, sequence ); RUNTIME_desc_getoncpu_async( Q2, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -268,9 +268,9 @@ int MORSE_ztpqrt_Tile( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T ...@@ -268,9 +268,9 @@ int MORSE_ztpqrt_Tile( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_ztpqrt_Tile_Async(L, A, B, T, sequence, &request); MORSE_ztpqrt_Tile_Async(L, A, B, T, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -265,9 +265,9 @@ int MORSE_ztradd_Tile(MORSE_enum uplo, MORSE_enum trans, ...@@ -265,9 +265,9 @@ int MORSE_ztradd_Tile(MORSE_enum uplo, MORSE_enum trans,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_ztradd_Tile_Async(uplo, trans, alpha, A, beta, B, sequence, &request); MORSE_ztradd_Tile_Async(uplo, trans, alpha, A, beta, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;
morse_sequence_destroy(morse, sequence); morse_sequence_destroy(morse, sequence);
......
...@@ -287,9 +287,9 @@ int MORSE_ztrmm_Tile(MORSE_enum side, MORSE_enum uplo, ...@@ -287,9 +287,9 @@ int MORSE_ztrmm_Tile(MORSE_enum side, MORSE_enum uplo,
} }
morse_sequence_create(morse, &sequence); morse_sequence_create(morse, &sequence);
MORSE_ztrmm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request); MORSE_ztrmm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu_async( A, sequence ); RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence ); RUNTIME_desc_getoncpu_async( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status; status = sequence->status;