Commit b0abd27f authored by Mathieu Faverge's avatar Mathieu Faverge

Change the getoncpu for the async version

parent a332a029
......@@ -250,8 +250,8 @@ int MORSE_zgeadd_Tile(MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zgeadd_Tile_Async(trans, alpha, A, beta, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -201,7 +201,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
morse_sequence_create(morse, &sequence);
MORSE_zgelqf_Tile_Async(A, T, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -198,7 +198,7 @@ int MORSE_zgelqf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zgelqf_param_Tile_Async(qrtree, A, TS, TT, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -223,8 +223,8 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zgelqs_Tile_Async(A, T, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -228,8 +228,8 @@ int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zgelqs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -287,8 +287,8 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
morse_sequence_create(morse, &sequence);
MORSE_zgels_Tile_Async(trans, A, T, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -292,8 +292,8 @@ int MORSE_zgels_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum trans, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zgels_param_Tile_Async(qrtree, trans, A, TS, TT, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -322,9 +322,9 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB,
morse_sequence_create(morse, &sequence);
MORSE_zgemm_Tile_Async(transA, transB, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -200,7 +200,7 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
morse_sequence_create(morse, &sequence);
MORSE_zgeqrf_Tile_Async(A, T, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -207,7 +207,7 @@ int MORSE_zgeqrf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zgeqrf_param_Tile_Async(qrtree, A, TS, TT, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -222,9 +222,9 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zgeqrs_Tile_Async(A, T, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(T);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( T, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -217,10 +217,10 @@ int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zgeqrs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(TS);
RUNTIME_desc_getoncpu(TT);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( TS, sequence );
RUNTIME_desc_getoncpu_async( TT, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -227,8 +227,8 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d
morse_sequence_create(morse, &sequence);
MORSE_zgesv_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -219,8 +219,8 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zgesv_nopiv_Tile_Async(A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -205,7 +205,7 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV)
morse_sequence_create(morse, &sequence);
MORSE_zgetrf_incpiv_Tile_Async(A, L, IPIV, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -193,7 +193,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
morse_sequence_create(morse, &sequence);
MORSE_zgetrf_nopiv_Tile_Async(A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -230,8 +230,8 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zgetrs_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -218,8 +218,8 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zgetrs_nopiv_Tile_Async(A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -261,8 +261,8 @@ int MORSE_zheevd_Tile(MORSE_enum jobz, MORSE_enum uplo,
MORSE_zheevd_Tile_Async(jobz, uplo, A, W, T, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(T);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( T, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -287,9 +287,9 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo,
morse_sequence_create(morse, &sequence);
MORSE_zhemm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -286,9 +286,9 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zher2k_Tile_Async(uplo, trans, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -262,8 +262,8 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zherk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -148,7 +148,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(&descA);
RUNTIME_desc_getoncpu_async( &descA, sequence );
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
......
......@@ -148,7 +148,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
/* if ( MORSE_TRANSLATION == MORSE_OUTOFPLACE ) {*/
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(&descA);
RUNTIME_desc_getoncpu_async( &descA, sequence );
morse_desc_mat_free(&descA);
/* } else {*/
/* morse_ziptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);*/
......
......@@ -202,7 +202,7 @@ int MORSE_zlauum_Tile(MORSE_enum uplo, MORSE_desc_t *A)
morse_sequence_create(morse, &sequence);
MORSE_zlauum_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -245,8 +245,8 @@ int MORSE_zposv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zposv_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -214,7 +214,7 @@ int MORSE_zpotrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
morse_sequence_create(morse, &sequence);
MORSE_zpotrf_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -202,7 +202,7 @@ int MORSE_zpotri_Tile(MORSE_enum uplo, MORSE_desc_t *A)
morse_sequence_create(morse, &sequence);
MORSE_zpotri_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -220,7 +220,7 @@ int MORSE_zpotrimm_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE
morse_sequence_create(morse, &sequence);
MORSE_zpotrimm_Tile_Async(uplo, A, B, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -220,8 +220,8 @@ int MORSE_zpotrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zpotrs_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -287,9 +287,9 @@ int MORSE_zsymm_Tile(MORSE_enum side, MORSE_enum uplo,
morse_sequence_create(morse, &sequence);
MORSE_zsymm_Tile_Async(side, uplo, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -286,9 +286,9 @@ int MORSE_zsyr2k_Tile(MORSE_enum uplo, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zsyr2k_Tile_Async(uplo, trans, alpha, A, B, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -262,8 +262,8 @@ int MORSE_zsyrk_Tile(MORSE_enum uplo, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zsyrk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -238,8 +238,8 @@ int MORSE_zsysv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zsysv_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -203,7 +203,7 @@ int MORSE_zsytrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
morse_sequence_create(morse, &sequence);
MORSE_zsytrf_Tile_Async(uplo, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -216,8 +216,8 @@ int MORSE_zsytrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
morse_sequence_create(morse, &sequence);
MORSE_zsytrs_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -84,7 +84,7 @@ int MORSE_zLapack_to_Tile(MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A)
morse_pzlapack_to_tile( Af77, LDA, A, sequence, &request);
RUNTIME_sequence_wait( morse, sequence );
RUNTIME_desc_getoncpu( A );
RUNTIME_desc_getoncpu_async( A , sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......@@ -211,7 +211,7 @@ int MORSE_zTile_to_Lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA)
morse_pztile_to_lapack( A, Af77, LDA, sequence, &request);
RUNTIME_sequence_wait( morse, sequence );
RUNTIME_desc_getoncpu( A );
RUNTIME_desc_getoncpu_async( A , sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
......
......@@ -297,8 +297,8 @@ int MORSE_ztpgqrt_Tile( int L,
morse_sequence_create(morse, &sequence);
MORSE_ztpgqrt_Tile_Async(L, V1, T1, V2, T2, Q1, Q2, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(Q1);
RUNTIME_desc_getoncpu(Q2);
RUNTIME_desc_getoncpu_async( Q1, sequence );
RUNTIME_desc_getoncpu_async( Q2, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -269,8 +269,8 @@ int MORSE_ztpqrt_Tile( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T
morse_sequence_create(morse, &sequence);
MORSE_ztpqrt_Tile_Async(L, A, B, T, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -266,8 +266,8 @@ int MORSE_ztradd_Tile(MORSE_enum uplo, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_ztradd_Tile_Async(uplo, trans, alpha, A, beta, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -288,8 +288,8 @@ int MORSE_ztrmm_Tile(MORSE_enum side, MORSE_enum uplo,
morse_sequence_create(morse, &sequence);
MORSE_ztrmm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -286,8 +286,8 @@ int MORSE_ztrsm_Tile(MORSE_enum side, MORSE_enum uplo,
morse_sequence_create(morse, &sequence);
MORSE_ztrsm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -215,8 +215,8 @@ int MORSE_ztrsmpl_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t
morse_sequence_create(morse, &sequence);
MORSE_ztrsmpl_Tile_Async(A, L, IPIV, B, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(B);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( B, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -221,7 +221,7 @@ int MORSE_ztrtri_Tile(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A)
morse_sequence_create(morse, &sequence);
MORSE_ztrtri_Tile_Async(uplo, diag, A, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu_async( A, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -217,8 +217,8 @@ int MORSE_zunglq_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q)
morse_sequence_create(morse, &sequence);
MORSE_zunglq_Tile_Async(A, T, Q, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(Q);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( Q, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -214,8 +214,8 @@ int MORSE_zunglq_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zunglq_param_Tile_Async(qrtree, A, TS, TT, Q, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(Q);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( Q, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -216,8 +216,8 @@ int MORSE_zungqr_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q)
morse_sequence_create(morse, &sequence);
MORSE_zungqr_Tile_Async(A, T, Q, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(Q);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( Q, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -215,8 +215,8 @@ int MORSE_zungqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zungqr_param_Tile_Async(qrtree, A, TS, TT, Q, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(Q);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( Q, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -270,8 +270,8 @@ int MORSE_zunmlq_Tile(MORSE_enum side, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zunmlq_Tile_Async(side, trans, A, T, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -269,8 +269,8 @@ int MORSE_zunmlq_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zunmlq_param_Tile_Async(qrtree, side, trans, A, TS, TT, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -274,8 +274,8 @@ int MORSE_zunmqr_Tile(MORSE_enum side, MORSE_enum trans,
morse_sequence_create(morse, &sequence);
MORSE_zunmqr_Tile_Async(side, trans, A, T, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -275,8 +275,8 @@ int MORSE_zunmqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_
morse_sequence_create(morse, &sequence);
MORSE_zunmqr_param_Tile_Async(qrtree, side, trans, A, TS, TT, C, sequence, &request);
morse_sequence_wait(morse, sequence);
RUNTIME_desc_getoncpu(A);
RUNTIME_desc_getoncpu(C);
RUNTIME_desc_getoncpu_async( A, sequence );
RUNTIME_desc_getoncpu_async( C, sequence );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......