From 313aeb541c6d3116f66fe5061451a4c662ab9f81 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 22 Jan 2018 22:41:57 +0100
Subject: [PATCH] Replace the descriptors in the calls
---
compute/zbuild.c | 7 +++++--
compute/zgeadd.c | 5 ++---
compute/zgelqf.c | 4 ++--
compute/zgelqf_param.c | 4 ++--
compute/zgelqs.c | 4 ++--
compute/zgelqs_param.c | 4 ++--
compute/zgels.c | 4 ++--
compute/zgels_param.c | 4 ++--
compute/zgemm.c | 5 ++---
compute/zgeqrf.c | 4 ++--
compute/zgeqrf_param.c | 4 ++--
compute/zgeqrs.c | 4 ++--
compute/zgeqrs_param.c | 4 ++--
compute/zgesv_incpiv.c | 4 ++--
compute/zgesv_nopiv.c | 4 ++--
compute/zgesvd.c | 24 ++++++++++++------------
compute/zgetrf_incpiv.c | 4 ++--
compute/zgetrf_nopiv.c | 4 ++--
compute/zgetrs_incpiv.c | 4 ++--
compute/zgetrs_nopiv.c | 4 ++--
compute/zheevd.c | 37 ++++++++++++++++++-------------------
compute/zhemm.c | 5 ++---
compute/zher2k.c | 4 ++--
compute/zherk.c | 4 ++--
compute/zhetrd.c | 10 +++++-----
compute/zlacpy.c | 4 ++--
compute/zlange.c | 5 ++---
compute/zlanhe.c | 5 ++---
compute/zlansy.c | 4 ++--
compute/zlantr.c | 4 ++--
compute/zlascal.c | 7 +++----
compute/zlaset.c | 4 ++--
compute/zlauum.c | 4 ++--
compute/zplghe.c | 8 +++++---
compute/zplgsy.c | 8 +++++---
compute/zplrnt.c | 7 +++++--
compute/zposv.c | 4 ++--
compute/zpotrf.c | 7 +++----
compute/zpotri.c | 4 ++--
compute/zpotrimm.c | 4 ++--
compute/zpotrs.c | 4 ++--
compute/zsymm.c | 5 ++---
compute/zsyr2k.c | 4 ++--
compute/zsyrk.c | 4 ++--
compute/zsysv.c | 4 ++--
compute/zsytrf.c | 4 ++--
compute/zsytrs.c | 4 ++--
compute/ztpgqrt.c | 4 ++--
compute/ztpqrt.c | 4 ++--
compute/ztradd.c | 5 ++---
compute/ztrmm.c | 5 ++---
compute/ztrsm.c | 5 ++---
compute/ztrsmpl.c | 4 ++--
compute/ztrtri.c | 4 ++--
compute/zunglq.c | 4 ++--
compute/zunglq_param.c | 4 ++--
compute/zungqr.c | 4 ++--
compute/zungqr_param.c | 4 ++--
compute/zunmlq.c | 5 ++---
compute/zunmlq_param.c | 5 ++---
compute/zunmqr.c | 5 ++---
compute/zunmqr_param.c | 5 ++---
62 files changed, 167 insertions(+), 173 deletions(-)
diff --git a/compute/zbuild.c b/compute/zbuild.c
index 248a2dd1d..f0f5063bb 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 d68675ef6..14306b560 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 9ec00006b..a59c2c185 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 a215f3bbf..af72e1618 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 ca91e1efe..2e67806bc 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 3c1f68853..155e2ef2f 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 bedaaac04..3cd046157 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 526e77e5a..2b61beb07 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 4c5d6570f..3251abede 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 823492a20..32bc10482 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 eacb6d081..6d3dd8bb4 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 f4331413b..e5fa1d14d 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 92dcd417c..9d702f0b0 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 8ee666675..d20e9c526 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 7a3e7a5a1..6e9f42169 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 b6533b3bd..b05aa6f4c 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 6253f4c10..65ef98d87 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 dedcea01a..c4ea0f88f 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 d52fa0153..418b598a1 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 78e2c2783..fc2a4f12b 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 a59d40c63..756390496 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 8d6b9782f..7a6854430 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 41449fb8e..397c48207 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 abf0f8522..25723c78f 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 7d1a75fef..00e971adf 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 2ba71f07e..b71c9cc25 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 ad96f5f74..362faddd8 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 0e1141901..c3f6baa89 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 780d3c2c1..00c4ace1c 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 848750cc2..148c9577a 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 b5e78c053..1aec814ee 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 aa26d42cb..604bec3ca 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 228fb7e27..b980f6f2c 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 a2550f30d..c2ffc15aa 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 89b02c279..4da8ef7e8 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 0b563d031..abca218fe 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 48493733a..05d3a256c 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 e471c619a..2ec32c2d7 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 58c6b76de..05c0c54ab 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 5f9f1b904..7dd2970fd 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 dfbb3136b..23258099a 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 8948f1c08..1fb6dcf2b 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 1ac98900b..1462e9e02 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 94d67f8d9..a25615ae3 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 08c214496..cc56ebaa2 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 45bc1dccb..c4e013a4e 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 d608cd19a..fd970720b 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 252a41d9a..faff5bee6 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 a84b9f606..ba56c04a3 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 81e9d4d87..a540f8aeb 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 95ea52546..680230233 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 622fafe9a..81de93126 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 864489313..ec0c750e7 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 de6004fdd..9d7c2eeae 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 a5c65ad09..c6cf9ed57 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 822ddce35..e1c6607a4 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 1c54545db..9e5ce555a 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 36b03252b..342c12f3a 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 572e275e9..f944588a9 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 0672587e9..b4ab58d0c 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 c332328c2..c2b513ef7 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 1f4a6867c..53656b7c3 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 );
--
GitLab