Commit e7fb36f3 authored by Mathieu Faverge's avatar Mathieu Faverge

Remove references to RUNTIME interface in z*.c files

parent 2b62f08f
......@@ -244,8 +244,8 @@ int MORSE_zgeadd_Tile(MORSE_enum trans,
}
morse_sequence_create(morse, &sequence);
MORSE_zgeadd_Tile_Async( trans, alpha, A, beta, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -196,7 +196,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -193,7 +193,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -217,8 +217,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -222,8 +222,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -275,8 +275,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -279,8 +279,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -316,9 +316,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -195,7 +195,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -202,7 +202,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -216,9 +216,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( T, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( T, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -211,10 +211,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( TS, sequence );
RUNTIME_desc_flush( TT, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( TS, sequence );
MORSE_Desc_Flush( TT, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -221,8 +221,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -213,8 +213,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -200,7 +200,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -186,7 +186,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
}
morse_sequence_create(morse, &sequence);
MORSE_zgetrf_nopiv_Tile_Async( A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -225,8 +225,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -213,8 +213,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -255,8 +255,8 @@ int MORSE_zheevd_Tile(MORSE_enum jobz, MORSE_enum uplo,
}
morse_sequence_create(morse, &sequence);
MORSE_zheevd_Tile_Async( jobz, uplo, A, W, T, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( T, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( T, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -281,9 +281,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -281,9 +281,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -257,8 +257,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -189,7 +189,7 @@ int MORSE_zlascal_Tile(MORSE_enum uplo,
}
morse_sequence_create(morse, &sequence);
MORSE_zlascal_Tile_Async( uplo, alpha, A, sequence, &request );
RUNTIME_sequence_wait(morse, sequence);
morse_sequence_wait(morse, sequence);
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
......
......@@ -197,7 +197,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -146,7 +146,7 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
}
/* Set NT & NTRHS */
NB = MORSE_NB;
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
......@@ -239,8 +239,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -209,7 +209,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -197,7 +197,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -219,7 +219,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 );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -215,8 +215,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -281,9 +281,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -281,9 +281,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -257,8 +257,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -232,8 +232,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -198,7 +198,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -211,8 +211,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -66,7 +66,7 @@ int MORSE_zLapack_to_Tile(MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A)
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request;
MORSE_desc_t B;
MORSE_desc_t *B;
int status;
morse = morse_context_self();
......@@ -81,25 +81,21 @@ int MORSE_zLapack_to_Tile(MORSE_Complex64_t *Af77, int LDA, MORSE_desc_t *A)
}
/* Create the B descriptor to handle the Lapack format matrix */
B = morse_desc_init_user(
MorseComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
morse_getaddr_cm, morse_getblkldd_cm, NULL );
B.mat = Af77;
B.styp = MorseCM;
RUNTIME_desc_create( &B );
MORSE_Desc_Create_User( &B, Af77, MorseComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
morse_getaddr_cm, morse_getblkldd_cm, NULL );
/* Start the computation */
morse_sequence_create(morse, &sequence);
morse_pzlacpy( MorseUpperLower, &B, A, sequence, &request );
morse_pzlacpy( MorseUpperLower, B, A, sequence, &request );
RUNTIME_desc_flush( &B, sequence );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait( morse, sequence );
RUNTIME_desc_destroy( &B );
/* Destroy temporary B descriptor */
MORSE_Desc_Destroy( &B );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......@@ -146,7 +142,7 @@ int MORSE_zTile_to_Lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA)
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request;
MORSE_desc_t B;
MORSE_desc_t *B;
int status;
morse = morse_context_self();
......@@ -161,25 +157,21 @@ int MORSE_zTile_to_Lapack(MORSE_desc_t *A, MORSE_Complex64_t *Af77, int LDA)
}
/* Create the B descriptor to handle the Lapack format matrix */
B = morse_desc_init_user(
MorseComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
morse_getaddr_cm, morse_getblkldd_cm, NULL );
B.mat = Af77;
B.styp = MorseCM;
RUNTIME_desc_create( &B );
MORSE_Desc_Create_User( &B, Af77, MorseComplexDouble, A->mb, A->nb, A->bsiz,
LDA, A->n, 0, 0, A->m, A->n, 1, 1,
morse_getaddr_cm, morse_getblkldd_cm, NULL );
/* Start the computation */
morse_sequence_create(morse, &sequence);
morse_pzlacpy( MorseUpperLower, A, &B, sequence, &request );
morse_pzlacpy( MorseUpperLower, A, B, sequence, &request );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( &B, sequence );
morse_sequence_wait( morse, sequence );
RUNTIME_desc_destroy( &B );
MORSE_Desc_Destroy( &B );
status = sequence->status;
morse_sequence_destroy(morse, sequence);
......
......@@ -291,8 +291,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 );
RUNTIME_desc_flush( Q1, sequence );
RUNTIME_desc_flush( Q2, sequence );
MORSE_Desc_Flush( Q1, sequence );
MORSE_Desc_Flush( Q2, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -265,8 +265,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -260,8 +260,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -282,8 +282,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -280,8 +280,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -210,8 +210,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( B, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -216,7 +216,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 );
RUNTIME_desc_flush( A, sequence );
MORSE_Desc_Flush( A, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -212,8 +212,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( Q, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -209,8 +209,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( Q, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -211,8 +211,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( Q, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -210,8 +210,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( Q, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -264,8 +264,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -263,8 +263,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -268,8 +268,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(morse, sequence);
......
......@@ -269,8 +269,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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
MORSE_Desc_Flush( A, sequence );
MORSE_Desc_Flush( C, sequence );
morse_sequence_wait(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