diff --git a/compute/zbuild.c b/compute/zbuild.c
index 248a2dd1d05d789b0c5196123a6e1d523167cbbf..f0f5063bb7b1ea6ead4897a6644cbe05f5d25e57 100644
--- a/compute/zbuild.c
+++ b/compute/zbuild.c
@@ -125,10 +125,13 @@ int MORSE_zbuild( MORSE_enum uplo, int M, int N,
/* Set NT */
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
- morse_zdesc_alloc(descA, NB, NB, LDA, N, 0, 0, M, N, morse_desc_mat_free(&descA));
+
+ /* Submit the matrix conversion */
+ morse_zlap2tile( morse, &descAl, &descAt, uplo,
+ A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zbuild_Tile_Async(uplo, &descA, user_data, user_build_callback, sequence, &request );
+ MORSE_zbuild_Tile_Async( uplo, &descAt, user_data, user_build_callback, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index d68675ef6eaf8b8e1c786b03bd3b9b91fe88a119..14306b560ec2317faa56a9ec35eb5d25ed800c56 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -161,8 +161,7 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgeadd_Tile_Async(
- trans, alpha, &descA, beta, &descB, sequence, &request);
+ MORSE_zgeadd_Tile_Async( trans, alpha, &descAt, beta, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -242,7 +241,7 @@ int MORSE_zgeadd_Tile(MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index 9ec00006b2f32a561e502046ad443d75b6555bde..a59c2c18520db339ba955f54f205792dd544b66b 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -127,7 +127,7 @@ int MORSE_zgelqf(int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgelqf_Tile_Async(&descA, descT, sequence, &request);
+ MORSE_zgelqf_Tile_Async( &descAt, descT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -195,7 +195,7 @@ int MORSE_zgelqf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgelqf_Tile_Async(A, T, sequence, &request);
+ MORSE_zgelqf_Tile_Async( A, T, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index a215f3bbfb9b510e556b48944f7b8bba6d31e88e..af72e1618663f1d9e5193f064001809adb3e45e0 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -124,7 +124,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgelqf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
+ MORSE_zgelqf_param_Tile_Async( qrtree, &descAt, descTS, descTT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -192,7 +192,7 @@ int MORSE_zgelqf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index ca91e1efe0963740405d1b959da8cdab88051bdb..2e67806bc209b28f4a788bb55afc667131cc7234 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -145,7 +145,7 @@ int MORSE_zgelqs(int M, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgelqs_Tile_Async(&descA, descT, &descB, sequence, &request);
+ MORSE_zgelqs_Tile_Async( &descAt, descT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -216,7 +216,7 @@ int MORSE_zgelqs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgelqs_Tile_Async(A, T, B, sequence, &request);
+ MORSE_zgelqs_Tile_Async( A, T, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index 3c1f6885374c9bccf9ddc5801f3b098b22faace7..155e2ef2f75a3d771e8976ad0de8b54b1ad835ba 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -147,7 +147,7 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgelqs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
+ MORSE_zgelqs_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -221,7 +221,7 @@ int MORSE_zgelqs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgels.c b/compute/zgels.c
index bedaaac04d8d19a33456c03eb50661aed9068339..3cd04615754631aff34948f39dd0ca9cede649a9 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -187,7 +187,7 @@ int MORSE_zgels(MORSE_enum trans, int M, int N, int NRHS,
}
/* Call the tile interface */
- MORSE_zgels_Tile_Async(MorseNoTrans, &descA, descT, &descB, sequence, &request);
+ MORSE_zgels_Tile_Async( MorseNoTrans, &descAt, descT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -274,7 +274,7 @@ int MORSE_zgels_Tile(MORSE_enum trans, MORSE_desc_t *A,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index 526e77e5ae25947f990ef51043c93ac24cc9ca32..2b61beb07fccdf23b547a8c70d7191e0bd9f7dad 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -188,7 +188,7 @@ int MORSE_zgels_param(const libhqr_tree_t *qrtree, MORSE_enum trans, int M, int
}
/* Call the tile interface */
- MORSE_zgels_param_Tile_Async(qrtree, MorseNoTrans, &descA, descTS, descTT, &descB, sequence, &request);
+ MORSE_zgels_param_Tile_Async( qrtree, MorseNoTrans, &descAt, descTS, descTT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -278,7 +278,7 @@ int MORSE_zgels_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum trans, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgemm.c b/compute/zgemm.c
index 4c5d6570ffe7a87a32ff7fb80fc519c25d1a63d5..3251abede90c72c69503d5691c61788bac438c4e 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -221,8 +221,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgemm_Tile_Async(
- transA, transB, alpha, &descA, &descB, beta, &descC, sequence, &request);
+ MORSE_zgemm_Tile_Async( transA, transB, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -312,7 +311,7 @@ int MORSE_zgemm_Tile(MORSE_enum transA, MORSE_enum transB,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index 823492a20a5b5d0829b62ad39513cb7778e0b4dd..32bc10482e204f66c19b8a15913ec9301ec65ec9 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -126,7 +126,7 @@ int MORSE_zgeqrf(int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgeqrf_Tile_Async(&descA, descT, sequence, &request);
+ MORSE_zgeqrf_Tile_Async( &descAt, descT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -194,7 +194,7 @@ int MORSE_zgeqrf_Tile(MORSE_desc_t *A, MORSE_desc_t *T)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgeqrf_Tile_Async(A, T, sequence, &request);
+ MORSE_zgeqrf_Tile_Async( A, T, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index eacb6d0811cefa70f33e840f3e3e01b646c286ba..6d3dd8bb42e21049c054a3a2312f10c60e93ca96 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -129,7 +129,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgeqrf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
+ MORSE_zgeqrf_param_Tile_Async( qrtree, &descAt, descTS, descTT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -201,7 +201,7 @@ int MORSE_zgeqrf_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index f4331413bd0b3a1b3be436eee347770e2d187c9c..e5fa1d14dca363208fc74e8237ab631e99052f1c 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -145,7 +145,7 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgeqrs_Tile_Async(&descA, descT, &descB, sequence, &request);
+ MORSE_zgeqrs_Tile_Async( &descAt, descT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -215,7 +215,7 @@ int MORSE_zgeqrs_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgeqrs_Tile_Async(A, T, B, sequence, &request);
+ MORSE_zgeqrs_Tile_Async( A, T, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( T, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index 92dcd417cea0eb7e5681afaa5dee848f570ffdfe..9d702f0b02db97040df271330580ec1d5d6118f4 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -140,7 +140,7 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
B, NB, NB, LDB, NRHS, M, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgeqrs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
+ MORSE_zgeqrs_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -210,7 +210,7 @@ int MORSE_zgeqrs_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( TS, sequence );
RUNTIME_desc_flush( TT, sequence );
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index 8ee666675567f6e0a69fde93ea4ec6afc1545f29..d20e9c52663cf9d4a6dcd7a7e1eec8d4dc3fea55 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -144,7 +144,7 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgesv_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
+ MORSE_zgesv_incpiv_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -220,7 +220,7 @@ int MORSE_zgesv_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_d
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index 7a3e7a5a1b53e776a900f8ef968f28f5dd48aed1..6e9f421691feb1f69eb8de23c48fe66b90c87bc2 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -143,7 +143,7 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgesv_nopiv_Tile_Async(&descA, &descB, sequence, &request);
+ MORSE_zgesv_nopiv_Tile_Async( &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -212,7 +212,7 @@ int MORSE_zgesv_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgesv_nopiv_Tile_Async(A, B, sequence, &request);
+ MORSE_zgesv_nopiv_Tile_Async( A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index b6533b3bd191545df65b8849b24693873b9d8287..b05aa6f4cc5dd588be2671a39d8f4e64faaebb02 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -219,7 +219,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgesvd_Tile_Async(jobu, jobvt, &descA, S, descT, U, LDU, VT, LDVT, sequence, &request);
+ MORSE_zgesvd_Tile_Async( jobu, jobvt, &descAt, S, descT, U, LDU, VT, LDVT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -353,7 +353,7 @@ int MORSE_zgesvd_Tile(MORSE_enum jobu, MORSE_enum jobvt,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgesvd_Tile_Async(jobu, jobvt, A, S, T, U, LDU, VT, LDVT, sequence, &request);
+ MORSE_zgesvd_Tile_Async( jobu, jobvt, A, S, T, U, LDU, VT, LDVT, sequence, &request );
morse_sequence_wait(morse, sequence);
@@ -400,11 +400,11 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
MORSE_Complex64_t *VT, int LDVT,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
- MORSE_desc_t descAl, descAt;
- MORSE_desc_t descTl, descTt;
- MORSE_desc_t descUl, descUt;
- MORSE_desc_t descVTl, descVTt;
- MORSE_desc_t descABl, descABt;
+ MORSE_desc_t descA;
+ MORSE_desc_t descT;
+ MORSE_desc_t descU;
+ MORSE_desc_t descVT;
+ MORSE_desc_t descAB;
MORSE_desc_t D, *Dptr = NULL;
MORSE_desc_t *subA, *subT, *subUVT;
double *E;
@@ -549,14 +549,14 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
fprintf(stderr, "MORSE_zgesvd_Tile_Async: LAPACKE_zgbbrd = %d\n", info );
}
#endif /* !defined(CHAMELEON_SIMULATION) */
- morse_ztile2lap_cleanup( morse, &descABl, &descABt );
+ morse_desc_mat_free( &descAB );
/* Transform U and Vt into tile format */
if ( jobu != MorseNoVec ) {
- morse_zooplap2tile( descU, U, NB, NB, LDU, M, 0, 0, M, M, sequence, request, morse_desc_mat_free(&(descU)) );
+ //morse_zooplap2tile( descU, U, NB, NB, LDU, M, 0, 0, M, M, sequence, request, morse_desc_mat_free(&(descU)) );
}
if ( jobvt != MorseNoVec ) {
- morse_zooplap2tile( descVT, VT, NB, NB, LDVT, N, 0, 0, N, N, sequence, request, morse_desc_mat_free(&(descVT)) );
+ //morse_zooplap2tile( descVT, VT, NB, NB, LDVT, N, 0, 0, N, N, sequence, request, morse_desc_mat_free(&(descVT)) );
}
morse_sequence_wait(morse, sequence);
@@ -598,10 +598,10 @@ int MORSE_zgesvd_Tile_Async(MORSE_enum jobu, MORSE_enum jobvt,
/* Transform U and VT into lapack layout */
if ( jobu != MorseNoVec ) {
- morse_zooptile2lap( descU, U, NB, NB, LDU, M, sequence, request );
+ //morse_zooptile2lap( descU, U, NB, NB, LDU, M, sequence, request );
}
if ( jobvt != MorseNoVec ) {
- morse_zooptile2lap( descVT, VT, NB, NB, LDVT, N, sequence, request );
+ //morse_zooptile2lap( descVT, VT, NB, NB, LDVT, N, sequence, request );
}
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index 6253f4c1058addf8bd433926706602f8ca8d03ff..65ef98d875c29221b4960817e44147300f06c775 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -128,7 +128,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgetrf_incpiv_Tile_Async(&descA, descL, IPIV, sequence, &request);
+ MORSE_zgetrf_incpiv_Tile_Async( &descAt, descL, IPIV, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -199,7 +199,7 @@ int MORSE_zgetrf_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV)
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index dedcea01a5df14369f1dc9af6cef4f440bbad220..c4ea0f88f06bcb6385937c87e8288ecd5ec4a196 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -121,7 +121,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zgetrf_nopiv_Tile_Async(&descA, sequence, &request);
+ MORSE_zgetrf_nopiv_Tile_Async( &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -185,7 +185,7 @@ int MORSE_zgetrf_nopiv_Tile(MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgetrf_nopiv_Tile_Async(A, sequence, &request);
+ MORSE_zgetrf_nopiv_Tile_Async( A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index d52fa0153951aa8dbafeebab39cc00dfe9157673..418b598a116afbc91d11ba03720aabc196318e6b 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -150,7 +150,7 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgetrs_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
+ MORSE_zgetrs_incpiv_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -222,7 +222,7 @@ int MORSE_zgetrs_incpiv_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index 78e2c2783d94e0bdd3030c9374482672c8492107..fc2a4f12b2ddac1a901aae5f4239446bfc84e5ef 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -144,7 +144,7 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zgetrs_nopiv_Tile_Async(&descA, &descB, sequence, &request);
+ MORSE_zgetrs_nopiv_Tile_Async( &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -210,7 +210,7 @@ int MORSE_zgetrs_nopiv_Tile(MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zgetrs_nopiv_Tile_Async(A, B, sequence, &request);
+ MORSE_zgetrs_nopiv_Tile_Async( A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zheevd.c b/compute/zheevd.c
index a59d40c63149fa0800e0cde1114bb3e8a5f27722..756390496027575bc77cca6842d174c96b0da632 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -110,7 +110,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descA;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
@@ -157,7 +157,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zheevd_Tile_Async(jobz, uplo, &descA, W, descT, sequence, &request);
+ MORSE_zheevd_Tile_Async( jobz, uplo, &descAt, W, descT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -254,7 +254,7 @@ int MORSE_zheevd_Tile(MORSE_enum jobz, MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zheevd_Tile_Async(jobz, uplo, A, W, T, sequence, &request);
+ MORSE_zheevd_Tile_Async( jobz, uplo, A, W, T, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( T, sequence );
@@ -331,20 +331,20 @@ int MORSE_zheevd_Tile(MORSE_enum jobz, MORSE_enum uplo,
* @sa MORSE_ssyev_Tile_Async
*
******************************************************************************/
-int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
- MORSE_desc_t *A, double *W, MORSE_desc_t *T,
- MORSE_sequence_t *sequence, MORSE_request_t *request)
+int MORSE_zheevd_Tile_Async( MORSE_enum jobz, MORSE_enum uplo,
+ MORSE_desc_t *A, double *W, MORSE_desc_t *T,
+ MORSE_sequence_t *sequence, MORSE_request_t *request )
{
MORSE_context_t *morse;
- MORSE_desc_t descAl, descAt;
- MORSE_desc_t descTl, descTt;
+ MORSE_desc_t descA;
+ MORSE_desc_t descT;
MORSE_desc_t D, *Dptr = NULL;
MORSE_Complex64_t *Q2;
- int N, NB, status;
+ int N, status;
double *E;
MORSE_Complex64_t *V;
- MORSE_desc_t descQ2l, descQ2t;
- MORSE_desc_t descVl, descVt;
+ MORSE_desc_t descQ2;
+ MORSE_desc_t descV;
MORSE_desc_t *subA, *subQ, *subT;
morse = morse_context_self();
@@ -397,8 +397,7 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
return morse_request_fail(sequence, request, MORSE_ERR_ILLEGAL_VALUE);
}
- N = descA.m;
- NB = chameleon_min(descA.mb,descA.m);
+ N = descA.m;
/* Allocate data structures for reduction to tridiagonal form */
E = malloc( (N - 1) * sizeof(double) );
@@ -466,10 +465,10 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
/* Q from MORSE_zhetrd refers to Q2 (lapack layout) */
/* V from LAPACKE_zstedc refers to V (lapack layout) */
/* The final eigenvectors are (Q1 Q2 V) or (Q1^h Q2 V) */
- morse_zooplap2tile( descQ2, Q2, NB, NB, N, N, 0, 0, N, N, sequence, request,
- morse_ztile2lap_cleanup( morse, &(descQ2)) l, &(descQ2)) t );
- morse_zooplap2tile( descV, V, NB, NB, N, N, 0, 0, N, N, sequence, request,
- morse_desc_mat_free(&(descQ2)); morse_desc_mat_free(&(descV)) );
+ /* morse_zooplap2tile( descQ2, Q2, NB, NB, N, N, 0, 0, N, N, sequence, request, */
+ /* morse_desc_mat_free( &descQ2 ) ); */
+ /* morse_zooplap2tile( descV, V, NB, NB, N, N, 0, 0, N, N, sequence, request, */
+ /* morse_desc_mat_free(&(descQ2)); morse_desc_mat_free(&(descV)) ); */
if (uplo == MorseLower)
{
#if defined(CHAMELEON_COPY_DIAG)
@@ -522,11 +521,11 @@ int MORSE_zheevd_Tile_Async(MORSE_enum jobz, MORSE_enum uplo,
morse_sequence_wait(morse, sequence);
free(subA); free(subQ); free(subT);
- morse_ztile2lap_cleanup( morse, &descQ2l, &descQ2t );
+ morse_desc_mat_free( &descQ2 );
free(Q2);
/* Cleanup the temporary data */
- morse_ztile2lap_cleanup( morse, &descVl, &descVt );
+ morse_desc_mat_free( &descV );
free(V);
free(E);
diff --git a/compute/zhemm.c b/compute/zhemm.c
index 8d6b9782f4cb74dd55dce07e6ce1902425e5e2a5..7a6854430703f982a95685c03aed0e31253a7859 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -184,8 +184,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zhemm_Tile_Async(
- side, uplo, alpha, &descA, &descB, beta, &descC, sequence, &request);
+ MORSE_zhemm_Tile_Async( side, uplo, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -277,7 +276,7 @@ int MORSE_zhemm_Tile(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zher2k.c b/compute/zher2k.c
index 41449fb8e64cb5b3c170ce021ba4397c0091f239..397c48207f293acc9b4e877cd37da98d105825d5 100644
--- a/compute/zher2k.c
+++ b/compute/zher2k.c
@@ -189,7 +189,7 @@ int MORSE_zher2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zher2k_Tile_Async(uplo, trans, alpha, &descA, &descB, beta, &descC, sequence, &request);
+ MORSE_zher2k_Tile_Async( uplo, trans, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -276,7 +276,7 @@ int MORSE_zher2k_Tile(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zherk.c b/compute/zherk.c
index abf0f8522b387e7cfe389dadc449453e9a119de8..25723c78f45d3cc839b51445be8d7222b35a9dbe 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -172,7 +172,7 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zherk_Tile_Async(uplo, trans, alpha, &descA, beta, &descC, sequence, &request);
+ MORSE_zherk_Tile_Async( uplo, trans, alpha, &descAt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -254,7 +254,7 @@ int MORSE_zherk_Tile(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index 7d1a75fefff1cf1897f577aecb5952750b4330f9..00e971adf8b66affc692139a14ae6acba2bbf77c 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -171,7 +171,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zhetrd_Tile_Async(jobz, uplo, &descA, D, E, descT, Q, LDQ, sequence, &request);
+ MORSE_zhetrd_Tile_Async( jobz, uplo, &descAt, D, E, descT, Q, LDQ, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -282,7 +282,7 @@ int MORSE_zhetrd_Tile(MORSE_enum jobz, MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zhetrd_Tile_Async(jobz, uplo, A, D, E, T, Q, LDQ, sequence, &request);
+ MORSE_zhetrd_Tile_Async( jobz, uplo, A, D, E, T, Q, LDQ, sequence, &request );
morse_sequence_wait(morse, sequence);
@@ -333,8 +333,8 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
MORSE_context_t *morse;
- MORSE_desc_t descAl, descAt;
- MORSE_desc_t descABl, descABt;
+ MORSE_desc_t descA;
+ MORSE_desc_t descAB;
int N, NB, LDAB;
int status;
MORSE_desc_t D, *Dptr = NULL;
@@ -432,7 +432,7 @@ int MORSE_zhetrd_Tile_Async(MORSE_enum jobz,
if (Dptr != NULL) {
morse_desc_mat_free( Dptr );
}
- morse_ztile2lap_cleanup( morse, &descABl, &descABt );
+ morse_desc_mat_free( &descAB );
(void)D;
return MORSE_SUCCESS;
}
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index 2ba71f07e896270a71443ae251b530a1397bb98c..b71c9cc25a7cb7644b5c0af4dfe56c16dace337f 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -138,7 +138,7 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlacpy_Tile_Async(uplo, &descA, &descB, sequence, &request);
+ MORSE_zlacpy_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -207,7 +207,7 @@ int MORSE_zlacpy_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlacpy_Tile_Async(uplo, A, B, sequence, &request);
+ MORSE_zlacpy_Tile_Async( uplo, A, B, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zlange.c b/compute/zlange.c
index ad96f5f74f524579050e317a1a74f65f84a12455..362faddd84adad551eec34867bc599c81458c3bf 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -139,12 +139,11 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlange_Tile_Async(norm, &descA, &value, sequence, &request);
+ MORSE_zlange_Tile_Async( norm, &descAt, &value, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
- RUNTIME_desc_flush( &descA, sequence );
morse_sequence_wait(morse, sequence);
@@ -207,7 +206,7 @@ double MORSE_zlange_Tile(MORSE_enum norm, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlange_Tile_Async(norm, A, &value, sequence, &request);
+ MORSE_zlange_Tile_Async( norm, A, &value, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zlanhe.c b/compute/zlanhe.c
index 0e1141901eefd9cbb364a9aece436c0fc24c6517..c3f6baa893e92350f756727a6c35546c1d912b71 100644
--- a/compute/zlanhe.c
+++ b/compute/zlanhe.c
@@ -139,12 +139,11 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlanhe_Tile_Async(norm, uplo, &descA, &value, sequence, &request);
+ MORSE_zlanhe_Tile_Async( norm, uplo, &descAt, &value, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
- RUNTIME_desc_flush( &descA, sequence );
morse_sequence_wait(morse, sequence);
@@ -211,7 +210,7 @@ double MORSE_zlanhe_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlanhe_Tile_Async(norm, uplo, A, &value, sequence, &request);
+ MORSE_zlanhe_Tile_Async( norm, uplo, A, &value, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zlansy.c b/compute/zlansy.c
index 780d3c2c169081a3b1de3ad2de2c3297eb6557f7..00c4ace1c45d35f00c7b1376ce5373e9d8fb789a 100644
--- a/compute/zlansy.c
+++ b/compute/zlansy.c
@@ -139,7 +139,7 @@ double MORSE_zlansy(MORSE_enum norm, MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlansy_Tile_Async(norm, uplo, &descA, &value, sequence, &request);
+ MORSE_zlansy_Tile_Async( norm, uplo, &descAt, &value, sequence, &request );
/* Submit the matrix conversion */
@@ -208,7 +208,7 @@ double MORSE_zlansy_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlansy_Tile_Async(norm, uplo, A, &value, sequence, &request);
+ MORSE_zlansy_Tile_Async( norm, uplo, A, &value, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zlantr.c b/compute/zlantr.c
index 848750cc2d3fadd2cedb2e4e1d07af3d2ebbbf44..148c9577af2288e8b1c0d88a6a2ac77652f632ae 100644
--- a/compute/zlantr.c
+++ b/compute/zlantr.c
@@ -159,7 +159,7 @@ double MORSE_zlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlantr_Tile_Async(norm, uplo, diag, &descA, &value, sequence, &request);
+ MORSE_zlantr_Tile_Async( norm, uplo, diag, &descAt, &value, sequence, &request );
/* Submit the matrix conversion */
@@ -230,7 +230,7 @@ double MORSE_zlantr_Tile(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag, MORS
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlantr_Tile_Async(norm, uplo, diag, A, &value, sequence, &request);
+ MORSE_zlantr_Tile_Async( norm, uplo, diag, A, &value, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zlascal.c b/compute/zlascal.c
index b5e78c05315b275eb77e7bddc55bf8bb2255140e..1aec814eea5a21e84dff6b9a00f870027b7b9c6f 100644
--- a/compute/zlascal.c
+++ b/compute/zlascal.c
@@ -118,8 +118,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlascal_Tile_Async(
- uplo, alpha, &descA, sequence, &request);
+ MORSE_zlascal_Tile_Async( uplo, alpha, &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -186,7 +185,7 @@ int MORSE_zlascal_Tile(MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlascal_Tile_Async(uplo, alpha, A, sequence, &request);
+ MORSE_zlascal_Tile_Async( uplo, alpha, A, sequence, &request );
RUNTIME_sequence_wait(morse, sequence);
status = sequence->status;
morse_sequence_destroy(morse, sequence);
@@ -227,7 +226,7 @@ int MORSE_zlascal_Tile_Async(MORSE_enum uplo,
MORSE_sequence_t *sequence, MORSE_request_t *request)
{
MORSE_context_t *morse;
- MORSE_desc_t descAl, descAt;
+ MORSE_desc_t descA;
morse = morse_context_self();
if (morse == NULL) {
diff --git a/compute/zlaset.c b/compute/zlaset.c
index aa26d42cb148133a73165656043885d0d37701a8..604bec3caa8ec022d774cd5ae9d6c22a8f7e6354 100644
--- a/compute/zlaset.c
+++ b/compute/zlaset.c
@@ -132,7 +132,7 @@ int MORSE_zlaset(MORSE_enum uplo, int M, int N,
A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlaset_Tile_Async(uplo, alpha, beta, &descA, sequence, &request);
+ MORSE_zlaset_Tile_Async( uplo, alpha, beta, &descAt, sequence, &request );
/* Submit the matrix conversion */
@@ -196,7 +196,7 @@ int MORSE_zlaset_Tile(MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlaset_Tile_Async(uplo, alpha, beta, A, sequence, &request);
+ MORSE_zlaset_Tile_Async( uplo, alpha, beta, A, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zlauum.c b/compute/zlauum.c
index 228fb7e273200040bba58cc8e62b93417a81ada8..b980f6f2c9b5262484608e6a15216dcb6aad3ebe 100644
--- a/compute/zlauum.c
+++ b/compute/zlauum.c
@@ -126,7 +126,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zlauum_Tile_Async(uplo, &descA, sequence, &request);
+ MORSE_zlauum_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -196,7 +196,7 @@ int MORSE_zlauum_Tile(MORSE_enum uplo, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zlauum_Tile_Async(uplo, A, sequence, &request);
+ MORSE_zlauum_Tile_Async( uplo, A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zplghe.c b/compute/zplghe.c
index a2550f30d93b9a044e1fac3342f09f916ad9c454..c2ffc15aadaa7f85dadb1ef6bd16c1460d32d741 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -115,14 +115,16 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N,
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
- morse_zdesc_alloc(descA, NB, NB, LDA, N, 0, 0, N, N, morse_desc_mat_free(&descA));
+ /* Submit the matrix conversion */
+ morse_zlap2tile( morse, &descAl, &descAt, uplo,
+ A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zplghe_Tile_Async( bump, uplo, &descA, seed, sequence, &request );
+ MORSE_zplghe_Tile_Async( bump, uplo, &descAt, seed, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
- MorseUpperLower, sequence, &request );
+ uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index 89b02c279b97c79c12740ad8d0698267504d0385..4da8ef7e8914435c2eb4349b1c538356547602e3 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -115,14 +115,16 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N,
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
- morse_zdesc_alloc(descA, NB, NB, LDA, N, 0, 0, N, N, morse_desc_mat_free(&descA));
+ /* Submit the matrix conversion */
+ morse_zlap2tile( morse, &descAl, &descAt, uplo,
+ A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zplgsy_Tile_Async( bump, uplo, &descA, seed, sequence, &request );
+ MORSE_zplgsy_Tile_Async( bump, uplo, &descAt, seed, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
- MorseUpperLower, sequence, &request );
+ uplo, sequence, &request );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index 0b563d031711867f17d15d739efed0ebcd458c25..abca218fec21f7d523c7b59a4bd4a56a958da2af 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -112,10 +112,13 @@ int MORSE_zplrnt( int M, int N,
/* Set NT */
NB = MORSE_NB;
morse_sequence_create(morse, &sequence);
- morse_zdesc_alloc(descA, NB, NB, LDA, N, 0, 0, M, N, morse_desc_mat_free(&descA));
+
+ /* Submit the matrix conversion */
+ morse_zlap2tile( morse, &descAl, &descAt, MorseUpperLower,
+ A, NB, NB, LDA, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zplrnt_Tile_Async( &descA, seed, sequence, &request );
+ MORSE_zplrnt_Tile_Async( &descAt, seed, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
diff --git a/compute/zposv.c b/compute/zposv.c
index 48493733acf7f75c0ad6037b638e53e58b5a2e55..05d3a256cbd3412e9ced28d2be98e61355a54f4d 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -157,7 +157,7 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zposv_Tile_Async(uplo, &descA, &descB, sequence, &request);
+ MORSE_zposv_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -238,7 +238,7 @@ int MORSE_zposv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zposv_Tile_Async(uplo, A, B, sequence, &request);
+ MORSE_zposv_Tile_Async( uplo, A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zpotrf.c b/compute/zpotrf.c
index e471c619ac29b4c7f1a468e75ab9f073e155ab29..2ec32c2d764276c33494496d4ce6b52b16abec86 100644
--- a/compute/zpotrf.c
+++ b/compute/zpotrf.c
@@ -91,8 +91,7 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
MORSE_context_t *morse;
MORSE_sequence_t *sequence = NULL;
MORSE_request_t request = MORSE_REQUEST_INITIALIZER;
- MORSE_desc_t descAtl, descAtt;
- MORSE_desc_t descAll, descAlt;
+ MORSE_desc_t descAl, descAt;
morse = morse_context_self();
if (morse == NULL) {
@@ -133,7 +132,7 @@ int MORSE_zpotrf(MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zpotrf_Tile_Async(uplo, &descAt, sequence, &request);
+ MORSE_zpotrf_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -209,7 +208,7 @@ int MORSE_zpotrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zpotrf_Tile_Async(uplo, A, sequence, &request);
+ MORSE_zpotrf_Tile_Async( uplo, A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zpotri.c b/compute/zpotri.c
index 58c6b76dec25b57206b7238591b263a816e94c47..05c0c54ab2c6d788dd293eb18ec838402e4ceec7 100644
--- a/compute/zpotri.c
+++ b/compute/zpotri.c
@@ -123,7 +123,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zpotri_Tile_Async(uplo, &descA, sequence, &request);
+ MORSE_zpotri_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -196,7 +196,7 @@ int MORSE_zpotri_Tile(MORSE_enum uplo, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zpotri_Tile_Async(uplo, A, sequence, &request);
+ MORSE_zpotri_Tile_Async( uplo, A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index 5f9f1b9044e523979c7f3f9c22428cd841ff0e41..7dd2970fd2e96058fb9b3615484e9d93954bef32 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -139,7 +139,7 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zpotrimm_Tile_Async(uplo, &descA, &descB, &descC, sequence, &request);
+ MORSE_zpotrimm_Tile_Async( uplo, &descAt, &descBt, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -218,7 +218,7 @@ int MORSE_zpotrimm_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( C, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index dfbb3136b7cc7cecf497ece5f0a1c1df25a8c2c2..23258099ad1832a631d91e59f5263684ea5f52b0 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -141,7 +141,7 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zpotrs_Tile_Async(uplo, &descA, &descB, sequence, &request);
+ MORSE_zpotrs_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -212,7 +212,7 @@ int MORSE_zpotrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zpotrs_Tile_Async(uplo, A, B, sequence, &request);
+ MORSE_zpotrs_Tile_Async( uplo, A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zsymm.c b/compute/zsymm.c
index 8948f1c085eb9a35937930416655598fe53f75f3..1fb6dcf2b8254de7d4494ee6c9399e5220b8da90 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -184,8 +184,7 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zsymm_Tile_Async(
- side, uplo, alpha, &descA, &descB, beta, &descC, sequence, &request);
+ MORSE_zsymm_Tile_Async( side, uplo, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -277,7 +276,7 @@ int MORSE_zsymm_Tile(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zsyr2k.c b/compute/zsyr2k.c
index 1ac98900b9687a6408e8dc0ce0858e4302b2575c..1462e9e02ff99f7a4602b39247caa22af1a0caa5 100644
--- a/compute/zsyr2k.c
+++ b/compute/zsyr2k.c
@@ -189,7 +189,7 @@ int MORSE_zsyr2k(MORSE_enum uplo, MORSE_enum trans, int N, int K,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zsyr2k_Tile_Async(uplo, trans, alpha, &descA, &descB, beta, &descC, sequence, &request);
+ MORSE_zsyr2k_Tile_Async( uplo, trans, alpha, &descAt, &descBt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -276,7 +276,7 @@ int MORSE_zsyr2k_Tile(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zsyrk.c b/compute/zsyrk.c
index 94d67f8d989d2e0d1b9abad14390bc4c53ca8df8..a25615ae3072d9cacda9e062438bc3c438a32aa5 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -172,7 +172,7 @@ int MORSE_zsyrk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
C, NB, NB, LDC, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zsyrk_Tile_Async(uplo, trans, alpha, &descA, beta, &descC, sequence, &request);
+ MORSE_zsyrk_Tile_Async( uplo, trans, alpha, &descAt, beta, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -254,7 +254,7 @@ int MORSE_zsyrk_Tile(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zsysv.c b/compute/zsysv.c
index 08c21449681eae066a06c660e146349af3241cae..cc56ebaa2ca2caa2a3dc86e0d73be73d6f44c948 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -154,7 +154,7 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zsysv_Tile_Async(uplo, &descA, &descB, sequence, &request);
+ MORSE_zsysv_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -231,7 +231,7 @@ int MORSE_zsysv_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zsysv_Tile_Async(uplo, A, B, sequence, &request);
+ MORSE_zsysv_Tile_Async( uplo, A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/zsytrf.c b/compute/zsytrf.c
index 45bc1dccb9a812c9a607e2ac92e20474a3324528..c4e013a4e68b214436c67ed0d14183bea289f403 100644
--- a/compute/zsytrf.c
+++ b/compute/zsytrf.c
@@ -127,7 +127,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_zsytrf_Tile_Async(uplo, &descA, sequence, &request);
+ MORSE_zsytrf_Tile_Async( uplo, &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -197,7 +197,7 @@ int MORSE_zsytrf_Tile(MORSE_enum uplo, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zsytrf_Tile_Async(uplo, A, sequence, &request);
+ MORSE_zsytrf_Tile_Async( uplo, A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index d608cd19a0e297bb0d1608ba4110293470e3bed8..fd970720b3891e600feead3a6979f12d75710258 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -140,7 +140,7 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_zsytrs_Tile_Async(uplo, &descA, &descB, sequence, &request);
+ MORSE_zsytrs_Tile_Async( uplo, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -208,7 +208,7 @@ int MORSE_zsytrs_Tile(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zsytrs_Tile_Async(uplo, A, B, sequence, &request);
+ MORSE_zsytrs_Tile_Async( uplo, A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index 252a41d9a1033bdc4964feef40ff34dc7639da81..faff5bee665364d6ca9bcf0f9db56ecde93dd72d 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -221,7 +221,7 @@ int MORSE_ztpgqrt( int M, int N, int K, int L,
Q2, NB, NB, LDQ2, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_ztpgqrt_Tile_Async(L, &descV1, descT1, &descV2, descT2, &descQ1, &descQ2, sequence, &request);
+ MORSE_ztpgqrt_Tile_Async( L, &descV1t, descT1, &descV2t, descT2, &descQ1t, &descQ2t, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQ1l, &descQ1t,
@@ -286,7 +286,7 @@ int MORSE_ztpgqrt_Tile( int L,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( Q1, sequence );
RUNTIME_desc_flush( Q2, sequence );
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index a84b9f606e1202321bf2d351a7edd2aabc8a154d..ba56c04a387017112024982aa27db367008f2f8b 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -193,7 +193,7 @@ int MORSE_ztpqrt( int M, int N, int L,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_ztpqrt_Tile_Async(L, &descA, &descB, descT, sequence, &request);
+ MORSE_ztpqrt_Tile_Async( L, &descAt, &descBt, descT, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -264,7 +264,7 @@ int MORSE_ztpqrt_Tile( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/ztradd.c b/compute/ztradd.c
index 81e9d4d872909088ddce47aefc9099679efc42ca..a540f8aeb8c4bb58408d4e002d2450aea7fb0ff6 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -171,8 +171,7 @@ int MORSE_ztradd(MORSE_enum uplo, MORSE_enum trans, int M, int N,
B, NB, NB, LDB, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_ztradd_Tile_Async(
- uplo, trans, alpha, &descA, beta, &descB, sequence, &request);
+ MORSE_ztradd_Tile_Async( uplo, trans, alpha, &descAt, beta, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -258,7 +257,7 @@ int MORSE_ztradd_Tile(MORSE_enum uplo, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index 95ea52546aea3a1c9507abbd74b00f434073aea9..680230233616f0ae5fcf70e3d225af6499706db4 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -185,8 +185,7 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_ztrmm_Tile_Async(
- side, uplo, transA, diag, alpha, &descA, &descB, sequence, &request);
+ MORSE_ztrmm_Tile_Async( side, uplo, transA, diag, alpha, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -280,7 +279,7 @@ int MORSE_ztrmm_Tile(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
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 );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index 622fafe9a0386954c0740dba5e1e18de36063232..81de93126d84fd3f01f5c4bb0b3ffca420861aac 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -183,8 +183,7 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_ztrsm_Tile_Async(
- side, uplo, transA, diag, alpha, &descA, &descB, sequence, &request);
+ MORSE_ztrsm_Tile_Async( side, uplo, transA, diag, alpha, &descAt, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -278,7 +277,7 @@ int MORSE_ztrsm_Tile(MORSE_enum side, MORSE_enum uplo,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_ztrsm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request);
+ MORSE_ztrsm_Tile_Async(side, uplo, transA, diag, alpha, A, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index 864489313d9148ea9251e809d86784b3b7255c18..ec0c750e761f81b918441b24f064f6364c069a4f 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -138,7 +138,7 @@ int MORSE_ztrsmpl(int N, int NRHS,
B, NB, NB, LDB, NRHS, N, NRHS, sequence, &request );
/* Call the tile interface */
- MORSE_ztrsmpl_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
+ MORSE_ztrsmpl_Tile_Async( &descAt, descL, IPIV, &descBt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
@@ -207,7 +207,7 @@ int MORSE_ztrsmpl_Tile(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, MORSE_desc_t
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_ztrsmpl_Tile_Async(A, L, IPIV, B, sequence, &request);
+ MORSE_ztrsmpl_Tile_Async( A, L, IPIV, B, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( B, sequence );
diff --git a/compute/ztrtri.c b/compute/ztrtri.c
index de6004fdd1d65db7e44e9b934cb0a3f1ad6cd8f4..9d7c2eeae1fb16e75d8870937df6c41bad32545c 100644
--- a/compute/ztrtri.c
+++ b/compute/ztrtri.c
@@ -135,7 +135,7 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
A, NB, NB, LDA, N, N, N, sequence, &request );
/* Call the tile interface */
- MORSE_ztrtri_Tile_Async(uplo, diag, &descA, sequence, &request);
+ MORSE_ztrtri_Tile_Async( uplo, diag, &descAt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
@@ -215,7 +215,7 @@ int MORSE_ztrtri_Tile(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_ztrtri_Tile_Async(uplo, diag, A, sequence, &request);
+ MORSE_ztrtri_Tile_Async( uplo, diag, A, sequence, &request );
RUNTIME_desc_flush( A, sequence );
morse_sequence_wait(morse, sequence);
diff --git a/compute/zunglq.c b/compute/zunglq.c
index a5c65ad097cb2ecb9e75fce83963bbb1fb7ab829..c6cf9ed57fa83acfb7b7a8104fa43fab9e74a6c2 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -144,7 +144,7 @@ int MORSE_zunglq(int M, int N, int K,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zunglq_Tile_Async(&descA, descT, &descQ, sequence, &request);
+ MORSE_zunglq_Tile_Async( &descAt, descT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
@@ -209,7 +209,7 @@ int MORSE_zunglq_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zunglq_Tile_Async(A, T, Q, sequence, &request);
+ MORSE_zunglq_Tile_Async( A, T, Q, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 822ddce3501160bf0716c0bb2d1004be22a30d39..e1c6607a4b3e7ef914a109ba739002933202ec05 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -141,7 +141,7 @@ int MORSE_zunglq_param(const libhqr_tree_t *qrtree, int M, int N, int K,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zunglq_param_Tile_Async(qrtree, &descA, descTS, descTT, &descQ, sequence, &request);
+ MORSE_zunglq_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
@@ -206,7 +206,7 @@ int MORSE_zunglq_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zunglq_param_Tile_Async(qrtree, A, TS, TT, Q, sequence, &request);
+ MORSE_zunglq_param_Tile_Async( qrtree, A, TS, TT, Q, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
diff --git a/compute/zungqr.c b/compute/zungqr.c
index 1c54545db5c60d0266321639b4f14aa5823d6abc..9e5ce555a44939294b0051e621107a0ddcb18d59 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -143,7 +143,7 @@ int MORSE_zungqr(int M, int N, int K,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zungqr_Tile_Async(&descA, descT, &descQ, sequence, &request);
+ MORSE_zungqr_Tile_Async( &descAt, descT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
@@ -208,7 +208,7 @@ int MORSE_zungqr_Tile(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *Q)
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zungqr_Tile_Async(A, T, Q, sequence, &request);
+ MORSE_zungqr_Tile_Async( A, T, Q, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index 36b03252b2d663b76c0af3053d8574322035b4f9..342c12f3af851711a48d809c5955b413145e4773 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -142,7 +142,7 @@ int MORSE_zungqr_param(const libhqr_tree_t *qrtree,
Q, NB, NB, LDQ, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zungqr_param_Tile_Async(qrtree, &descA, descTS, descTT, &descQ, sequence, &request);
+ MORSE_zungqr_param_Tile_Async( qrtree, &descAt, descTS, descTT, &descQt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
@@ -207,7 +207,7 @@ int MORSE_zungqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_desc_t *A, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zungqr_param_Tile_Async(qrtree, A, TS, TT, Q, sequence, &request);
+ MORSE_zungqr_param_Tile_Async( qrtree, A, TS, TT, Q, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( Q, sequence );
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index 572e275e93d8687ca7274eb749c532a270976ad0..f944588a975f6b463d5e2abdbd33b211262b2614 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -181,8 +181,7 @@ int MORSE_zunmlq(MORSE_enum side, MORSE_enum trans, int M, int N, int K,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zunmlq_Tile_Async(
- side, trans, &descA, descT, &descC, sequence, &request);
+ MORSE_zunmlq_Tile_Async( side, trans, &descAt, descT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -262,7 +261,7 @@ int MORSE_zunmlq_Tile(MORSE_enum side, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zunmlq_Tile_Async(side, trans, A, T, C, sequence, &request);
+ MORSE_zunmlq_Tile_Async(side, trans, A, T, C, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 0672587e977a6d185d9f51aa919c2f7b4f8714c4..b4ab58d0cf23994f65ebd5bb9bbc4345d1227c35 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -180,8 +180,7 @@ int MORSE_zunmlq_param(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_enum
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zunmlq_param_Tile_Async(
- qrtree, side, trans, &descA, descTS, descTT, &descC, sequence, &request);
+ MORSE_zunmlq_param_Tile_Async( qrtree, side, trans, &descAt, descTS, descTT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -261,7 +260,7 @@ int MORSE_zunmlq_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zunmlq_param_Tile_Async(qrtree, side, trans, A, TS, TT, C, sequence, &request);
+ MORSE_zunmlq_param_Tile_Async( qrtree, side, trans, A, TS, TT, C, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index c332328c2f93fb892ab889938bca685144f95eb3..c2b513ef767fee698cd05b96e4e012b546274af6 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -184,8 +184,7 @@ int MORSE_zunmqr(MORSE_enum side, MORSE_enum trans, int M, int N, int K,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zunmqr_Tile_Async(
- side, trans, &descA, descT, &descC, sequence, &request);
+ MORSE_zunmqr_Tile_Async( side, trans, &descAt, descT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -266,7 +265,7 @@ int MORSE_zunmqr_Tile(MORSE_enum side, MORSE_enum trans,
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zunmqr_Tile_Async(side, trans, A, T, C, sequence, &request);
+ MORSE_zunmqr_Tile_Async(side, trans, A, T, C, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index 1f4a6867c7c6623d32665643c1e9c57c1f7eb6bb..53656b7c3745e9247fb4b7ff300fd74e88ea3e03 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -185,8 +185,7 @@ int MORSE_zunmqr_param(const libhqr_tree_t *qrtree,
C, NB, NB, LDC, N, M, N, sequence, &request );
/* Call the tile interface */
- MORSE_zunmqr_param_Tile_Async(
- qrtree, side, trans, &descA, descTS, descTT, &descC, sequence, &request);
+ MORSE_zunmqr_param_Tile_Async( qrtree, side, trans, &descAt, descTS, descTT, &descCt, sequence, &request );
/* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
@@ -267,7 +266,7 @@ int MORSE_zunmqr_param_Tile(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_
return MORSE_ERR_NOT_INITIALIZED;
}
morse_sequence_create(morse, &sequence);
- MORSE_zunmqr_param_Tile_Async(qrtree, side, trans, A, TS, TT, C, sequence, &request);
+ MORSE_zunmqr_param_Tile_Async( qrtree, side, trans, A, TS, TT, C, sequence, &request );
RUNTIME_desc_flush( A, sequence );
RUNTIME_desc_flush( C, sequence );