Commit b0abd27f authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

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);
......
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