Commit 6a341c23 authored by Mathieu Faverge's avatar Mathieu Faverge

Replace the tile2lap

parent 35fe8c53
......@@ -130,8 +130,11 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
/* Call the tile interface */
MORSE_zbuild_Tile_Async(uplo, &descA, user_data, user_build_callback, sequence, &request );
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -197,7 +200,9 @@ int MORSE_zbuild_Tile( MORSE_enum uplo, MORSE_desc_t *A,
}
morse_sequence_create(morse, &sequence);
MORSE_zbuild_Tile_Async( uplo, A, user_data, user_build_callback, sequence, &request );
morse_sequence_wait(morse, sequence);
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
......
......@@ -164,8 +164,11 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
trans, alpha, &descA, beta, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap( descB, B, NB, NB, LDB, N, sequence, &request);
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -240,6 +243,7 @@ int MORSE_zgeadd_Tile(MORSE_enum trans,
MORSE_zgeadd_Tile_Async(trans, alpha, A, beta, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -130,8 +130,11 @@ int MORSE_zgelqf(int M, int N,
MORSE_zgelqf_Tile_Async(&descA, descT, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -193,6 +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_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -127,8 +127,11 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_zgelqf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -190,6 +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_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -147,9 +147,13 @@ int MORSE_zgelqs(int M, int N, int NRHS,
MORSE_zgelqs_Tile_Async(&descA, descT, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -213,6 +217,7 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
MORSE_zgelqs_Tile_Async(A, T, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -149,9 +149,13 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_zgelqs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -218,6 +222,7 @@ int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
MORSE_zgelqs_param_Tile_Async(qrtree, A, TS, TT, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -189,9 +189,13 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
MORSE_zgels_Tile_Async(MorseNoTrans, &descA, descT, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -271,6 +275,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
MORSE_zgels_Tile_Async(trans, A, T, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -190,9 +190,13 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
MORSE_zgels_param_Tile_Async(qrtree, MorseNoTrans, &descA, descTS, descTT, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -275,6 +279,7 @@ int MORSE_zgels_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum trans, MORSE_
MORSE_zgels_param_Tile_Async(qrtree, trans, A, TS, TT, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -223,8 +223,11 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
transA, transB, alpha, &descA, &descB, beta, &descC, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC);
......@@ -310,6 +313,7 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB,
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -129,8 +129,11 @@ int MORSE_zgeqrf(int M, int N,
MORSE_zgeqrf_Tile_Async(&descA, descT, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -192,6 +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_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -132,8 +132,11 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
MORSE_zgeqrf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -199,6 +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_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -147,9 +147,13 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
MORSE_zgeqrs_Tile_Async(&descA, descT, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -213,6 +217,7 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( T, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -142,9 +142,13 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
MORSE_zgeqrs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -209,6 +213,7 @@ int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
RUNTIME_desc_flush( TS, sequence );
RUNTIME_desc_flush( TT, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -146,9 +146,13 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
MORSE_zgesv_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -217,6 +221,7 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d
MORSE_zgesv_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -145,9 +145,13 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
MORSE_zgesv_nopiv_Tile_Async(&descA, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -209,6 +213,7 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
MORSE_zgesv_nopiv_Tile_Async(A, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -222,8 +222,11 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_zgesvd_Tile_Async(jobu, jobvt, &descA, S, descT, U, LDU, VT, LDVT, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -350,7 +353,9 @@ int MORSE_zgesvd_Tile(MORSE_enum jobu, MORSE_enum jobvt,
}
morse_sequence_create(morse, &sequence);
MORSE_zgesvd_Tile_Async(jobu, jobvt, A, S, T, U, LDU, VT, LDVT, sequence, &request);
morse_sequence_wait(morse, sequence);
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
......@@ -551,6 +556,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
if ( jobvt != MorseNoVec ) {
morse_zooplap2tile( descVT, VT, NB, NB, LDVT, N, 0, 0, N, N, sequence, request, morse_desc_mat_free(&(descVT)) );
}
morse_sequence_wait(morse, sequence);
subA = NULL;
......@@ -597,6 +603,7 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
}
morse_sequence_wait(morse, sequence);
if (subA) {
free(subA); free(subUVT); free(subT);
}
......
......@@ -131,8 +131,11 @@ int MORSE_zgetrf_incpiv(int M, int N,
MORSE_zgetrf_incpiv_Tile_Async(&descA, descL, IPIV, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -197,6 +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_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -124,8 +124,11 @@ int MORSE_zgetrf_nopiv(int M, int N,
MORSE_zgetrf_nopiv_Tile_Async(&descA, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request );
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -183,6 +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_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -152,8 +152,11 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
MORSE_zgetrs_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -220,6 +223,7 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
MORSE_zgetrs_incpiv_Tile_Async(A, L, IPIV, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -146,8 +146,11 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
MORSE_zgetrs_nopiv_Tile_Async(&descA, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descB, B, NB, NB, LDB, NRHS, sequence, &request);
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -208,6 +211,7 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
MORSE_zgetrs_nopiv_Tile_Async(A, B, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -160,8 +160,11 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_zheevd_Tile_Async(jobz, uplo, &descA, W, descT, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -253,6 +256,7 @@ int MORSE_zheevd_Tile(MORSE_enum jobz, MORSE_enum uplo,
MORSE_zheevd_Tile_Async(jobz, uplo, A, W, T, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( T, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......@@ -417,7 +421,6 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
morse_error("MORSE_zheevd_Tile", "MORSE_zhetrd failed");
}
if (jobz == MorseNoVec){
#if !defined(CHAMELEON_SIMULATION)
/* Tridiagonal eigensolver */
......
......@@ -186,8 +186,11 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
side, uplo, alpha, &descA, &descB, beta, &descC, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC);
......@@ -275,6 +278,7 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo,
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -190,8 +190,11 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
MORSE_zher2k_Tile_Async(uplo, trans, alpha, &descA, &descB, beta, &descC, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
morse_desc_mat_free(&descC);
......@@ -274,6 +277,7 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans,
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -174,8 +174,11 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
MORSE_zherk_Tile_Async(uplo, trans, alpha, &descA, beta, &descC, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descC, C, NB, NB, LDC, N, sequence, &request);
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descC);
......@@ -252,6 +255,7 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans,
MORSE_zherk_Tile_Async(uplo, trans, alpha, A, beta, C, sequence, &request);
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
morse_sequence_wait(morse, sequence);
status = sequence->status;
......
......@@ -174,8 +174,11 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_zhetrd_Tile_Async(jobz, uplo, &descA, D, E, descT, Q, LDQ, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
status = sequence->status;
......@@ -279,7 +282,9 @@ int MORSE_zhetrd_Tile(MORSE_enum jobz, MORSE_enum uplo,
}
morse_sequence_create(morse, &sequence);
MORSE_zhetrd_Tile_Async(jobz, uplo, A, D, E, T, Q, LDQ, sequence, &request);
morse_sequence_wait(morse, sequence);
status = sequence->status;
morse_sequence_destroy(morse, sequence);
return status;
......@@ -408,6 +413,7 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
/* Copy data into band structure */
morse_pztile2band( uplo, A, &descAB,
sequence, request );
morse_sequence_wait(morse, sequence);
/* Reduce band matrix to tridiagonal matrix */
......
......@@ -140,8 +140,11 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
MORSE_zlacpy_Tile_Async(uplo, &descA, &descB, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descB, B, NB, NB, LDB, N, sequence, &request);
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_desc_mat_free(&descB);
......@@ -203,7 +206,9 @@ int MORSE_zlacpy_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
}
morse_sequence_create(morse, &sequence);
MORSE_zlacpy_Tile_Async(uplo, A, B, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence);
return MORSE_SUCCESS;
}
......
......@@ -142,9 +142,12 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
MORSE_zlange_Tile_Async(norm, &descA, &value, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
RUNTIME_desc_flush( &descA, sequence );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_sequence_destroy(morse, sequence);
......@@ -204,7 +207,9 @@ double MORSE_zlange_Tile(MORSE_enum norm, MORSE_desc_t *A)
}
morse_sequence_create(morse, &sequence);
MORSE_zlange_Tile_Async(norm, A, &value, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence);
return value;
}
......
......@@ -142,9 +142,12 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_zlanhe_Tile_Async(norm, uplo, &descA, &value, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap(descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
RUNTIME_desc_flush( &descA, sequence );
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_sequence_destroy(morse, sequence);
......@@ -208,7 +211,9 @@ double MORSE_zlanhe_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
}
morse_sequence_create(morse, &sequence);
MORSE_zlanhe_Tile_Async(norm, uplo, A, &value, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence);
return value;
}
......
......@@ -142,7 +142,9 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
MORSE_zlansy_Tile_Async(norm, uplo, &descA, &value, sequence, &request);
/* Submit the matrix conversion */
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_sequence_destroy(morse, sequence);
......@@ -206,7 +208,9 @@ double MORSE_zlansy_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
}
morse_sequence_create(morse, &sequence);
MORSE_zlansy_Tile_Async(norm, uplo, A, &value, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence);
return value;
}
......
......@@ -162,7 +162,9 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
MORSE_zlantr_Tile_Async(norm, uplo, diag, &descA, &value, sequence, &request);
/* Submit the matrix conversion */
morse_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);
morse_sequence_destroy(morse, sequence);
......@@ -228,7 +230,9 @@ double MORSE_zlantr_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag, MORS
}
morse_sequence_create(morse, &sequence);
MORSE_zlantr_Tile_Async(norm, uplo, diag, A, &value, sequence, &request);
morse_sequence_wait(morse, sequence);
morse_sequence_destroy(morse, sequence);
return value;
}
......
......@@ -122,7 +122,8 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
uplo, alpha, &descA, sequence, &request);
/* Submit the matrix conversion */
morse_zooptile2lap( descA, A, NB, NB, LDA, N, sequence, &request);
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
RUNTIME_sequence_wait(morse, sequence);
morse_desc_mat_free(&descA);