From bafbfed5920d8bae1504d91c149e2f893332c6cf Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 22 Jan 2018 19:30:56 +0100
Subject: [PATCH] Cleanup
---
compute/zgeadd.c | 2 +-
compute/zgelqf.c | 2 +-
compute/zgelqf_param.c | 2 +-
compute/zgelqs.c | 2 +-
compute/zgelqs_param.c | 2 +-
compute/zgels.c | 2 +-
compute/zgels_param.c | 2 +-
compute/zgemm.c | 2 +-
compute/zgeqrf.c | 2 +-
compute/zgeqrf_param.c | 2 +-
compute/zgeqrs.c | 2 +-
compute/zgeqrs_param.c | 2 +-
compute/zgesv_incpiv.c | 2 +-
compute/zgesv_nopiv.c | 2 +-
compute/zgesvd.c | 2 +-
compute/zgetrf_incpiv.c | 2 +-
compute/zgetrf_nopiv.c | 2 +-
compute/zgetrs_incpiv.c | 2 +-
compute/zgetrs_nopiv.c | 2 +-
compute/zheevd.c | 2 +-
compute/zhemm.c | 2 +-
compute/zher2k.c | 2 +-
compute/zherk.c | 2 +-
compute/zhetrd.c | 2 +-
compute/zlacpy.c | 2 +-
compute/zlange.c | 2 +-
compute/zlanhe.c | 2 +-
compute/zlascal.c | 2 +-
compute/zlauum.c | 2 +-
compute/zplghe.c | 1 +
compute/zplgsy.c | 1 +
compute/zplrnt.c | 1 +
compute/zposv.c | 2 +-
compute/zpotri.c | 2 +-
compute/zpotrimm.c | 2 +-
compute/zpotrs.c | 2 +-
compute/zsymm.c | 2 +-
compute/zsyr2k.c | 2 +-
compute/zsyrk.c | 2 +-
compute/zsysv.c | 2 +-
compute/zsytrf.c | 2 +-
compute/zsytrs.c | 2 +-
compute/ztpgqrt.c | 2 +-
compute/ztpqrt.c | 2 +-
compute/ztradd.c | 2 +-
compute/ztrmm.c | 2 +-
compute/ztrsm.c | 2 +-
compute/ztrsmpl.c | 2 +-
compute/ztrtri.c | 2 +-
compute/zunglq.c | 2 +-
compute/zunglq_param.c | 2 +-
compute/zungqr.c | 2 +-
compute/zungqr_param.c | 2 +-
compute/zunmlq.c | 2 +-
compute/zunmlq_param.c | 2 +-
compute/zunmqr.c | 2 +-
compute/zunmqr_param.c | 2 +-
57 files changed, 57 insertions(+), 54 deletions(-)
diff --git a/compute/zgeadd.c b/compute/zgeadd.c
index 0d26a7cdf..3c7dafbf3 100644
--- a/compute/zgeadd.c
+++ b/compute/zgeadd.c
@@ -163,7 +163,7 @@ int MORSE_zgeadd(MORSE_enum trans, int M, int N,
MORSE_zgeadd_Tile_Async(
trans, alpha, &descA, beta, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgelqf.c b/compute/zgelqf.c
index fc257fd5c..8586ba007 100644
--- a/compute/zgelqf.c
+++ b/compute/zgelqf.c
@@ -129,7 +129,7 @@ int MORSE_zgelqf(int M, int N,
/* Call the tile interface */
MORSE_zgelqf_Tile_Async(&descA, descT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgelqf_param.c b/compute/zgelqf_param.c
index 0f1632a74..04ca52f79 100644
--- a/compute/zgelqf_param.c
+++ b/compute/zgelqf_param.c
@@ -126,7 +126,7 @@ int MORSE_zgelqf_param(const libhqr_tree_t *qrtree, int M, int N,
/* Call the tile interface */
MORSE_zgelqf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgelqs.c b/compute/zgelqs.c
index b57f6557c..a3f3b8541 100644
--- a/compute/zgelqs.c
+++ b/compute/zgelqs.c
@@ -146,7 +146,7 @@ int MORSE_zgelqs(int M, int N, int NRHS,
/* Call the tile interface */
MORSE_zgelqs_Tile_Async(&descA, descT, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgelqs_param.c b/compute/zgelqs_param.c
index d3c83ff56..ed50354a0 100644
--- a/compute/zgelqs_param.c
+++ b/compute/zgelqs_param.c
@@ -148,7 +148,7 @@ int MORSE_zgelqs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
/* Call the tile interface */
MORSE_zgelqs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgels.c b/compute/zgels.c
index cc8497c1f..f25372b82 100644
--- a/compute/zgels.c
+++ b/compute/zgels.c
@@ -188,7 +188,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);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgels_param.c b/compute/zgels_param.c
index 4c82539f7..6ad9e77da 100644
--- a/compute/zgels_param.c
+++ b/compute/zgels_param.c
@@ -189,7 +189,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);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgemm.c b/compute/zgemm.c
index 24b167fa7..c2ec27e98 100644
--- a/compute/zgemm.c
+++ b/compute/zgemm.c
@@ -222,7 +222,7 @@ int MORSE_zgemm(MORSE_enum transA, MORSE_enum transB, int M, int N, int K,
MORSE_zgemm_Tile_Async(
transA, transB, alpha, &descA, &descB, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgeqrf.c b/compute/zgeqrf.c
index bf6d36248..33c536e91 100644
--- a/compute/zgeqrf.c
+++ b/compute/zgeqrf.c
@@ -128,7 +128,7 @@ int MORSE_zgeqrf(int M, int N,
/* Call the tile interface */
MORSE_zgeqrf_Tile_Async(&descA, descT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgeqrf_param.c b/compute/zgeqrf_param.c
index a8dedd643..de1c4d95e 100644
--- a/compute/zgeqrf_param.c
+++ b/compute/zgeqrf_param.c
@@ -131,7 +131,7 @@ int MORSE_zgeqrf_param(const libhqr_tree_t *qrtree, int M, int N,
/* Call the tile interface */
MORSE_zgeqrf_param_Tile_Async(qrtree, &descA, descTS, descTT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgeqrs.c b/compute/zgeqrs.c
index 8bfd7a572..e6be28293 100644
--- a/compute/zgeqrs.c
+++ b/compute/zgeqrs.c
@@ -146,7 +146,7 @@ int MORSE_zgeqrs(int M, int N, int NRHS,
/* Call the tile interface */
MORSE_zgeqrs_Tile_Async(&descA, descT, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgeqrs_param.c b/compute/zgeqrs_param.c
index 7c83d4979..39b68f65b 100644
--- a/compute/zgeqrs_param.c
+++ b/compute/zgeqrs_param.c
@@ -141,7 +141,7 @@ int MORSE_zgeqrs_param(const libhqr_tree_t *qrtree, int M, int N, int NRHS,
/* Call the tile interface */
MORSE_zgeqrs_param_Tile_Async(qrtree, &descA, descTS, descTT, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgesv_incpiv.c b/compute/zgesv_incpiv.c
index d8486636e..ff2e4c5b1 100644
--- a/compute/zgesv_incpiv.c
+++ b/compute/zgesv_incpiv.c
@@ -145,7 +145,7 @@ int MORSE_zgesv_incpiv(int N, int NRHS,
/* Call the tile interface */
MORSE_zgesv_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgesv_nopiv.c b/compute/zgesv_nopiv.c
index 3efc96c49..32e6f05e8 100644
--- a/compute/zgesv_nopiv.c
+++ b/compute/zgesv_nopiv.c
@@ -144,7 +144,7 @@ int MORSE_zgesv_nopiv(int N, int NRHS,
/* Call the tile interface */
MORSE_zgesv_nopiv_Tile_Async(&descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zgesvd.c b/compute/zgesvd.c
index 52c24290f..cc29bec51 100644
--- a/compute/zgesvd.c
+++ b/compute/zgesvd.c
@@ -221,7 +221,7 @@ int MORSE_zgesvd(MORSE_enum jobu, MORSE_enum jobvt,
/* Call the tile interface */
MORSE_zgesvd_Tile_Async(jobu, jobvt, &descA, S, descT, U, LDU, VT, LDVT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgetrf_incpiv.c b/compute/zgetrf_incpiv.c
index 94bf78ac3..78da0d750 100644
--- a/compute/zgetrf_incpiv.c
+++ b/compute/zgetrf_incpiv.c
@@ -130,7 +130,7 @@ int MORSE_zgetrf_incpiv(int M, int N,
/* Call the tile interface */
MORSE_zgetrf_incpiv_Tile_Async(&descA, descL, IPIV, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgetrf_nopiv.c b/compute/zgetrf_nopiv.c
index 42ac616b1..b7f6aa938 100644
--- a/compute/zgetrf_nopiv.c
+++ b/compute/zgetrf_nopiv.c
@@ -123,7 +123,7 @@ int MORSE_zgetrf_nopiv(int M, int N,
/* Call the tile interface */
MORSE_zgetrf_nopiv_Tile_Async(&descA, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgetrs_incpiv.c b/compute/zgetrs_incpiv.c
index eaf8cdb88..a16d6d435 100644
--- a/compute/zgetrs_incpiv.c
+++ b/compute/zgetrs_incpiv.c
@@ -151,7 +151,7 @@ int MORSE_zgetrs_incpiv(MORSE_enum trans, int N, int NRHS,
/* Call the tile interface */
MORSE_zgetrs_incpiv_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zgetrs_nopiv.c b/compute/zgetrs_nopiv.c
index 4be0522d7..b567fe9ef 100644
--- a/compute/zgetrs_nopiv.c
+++ b/compute/zgetrs_nopiv.c
@@ -145,7 +145,7 @@ int MORSE_zgetrs_nopiv(MORSE_enum trans, int N, int NRHS,
/* Call the tile interface */
MORSE_zgetrs_nopiv_Tile_Async(&descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zheevd.c b/compute/zheevd.c
index a7211f559..35963d0f1 100644
--- a/compute/zheevd.c
+++ b/compute/zheevd.c
@@ -159,7 +159,7 @@ int MORSE_zheevd(MORSE_enum jobz, MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zheevd_Tile_Async(jobz, uplo, &descA, W, descT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zhemm.c b/compute/zhemm.c
index cfa808021..16baf4d96 100644
--- a/compute/zhemm.c
+++ b/compute/zhemm.c
@@ -185,7 +185,7 @@ int MORSE_zhemm(MORSE_enum side, MORSE_enum uplo, int M, int N,
MORSE_zhemm_Tile_Async(
side, uplo, alpha, &descA, &descB, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zher2k.c b/compute/zher2k.c
index 067764bd8..f79f6d122 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,
/* Call the tile interface */
MORSE_zher2k_Tile_Async(uplo, trans, alpha, &descA, &descB, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zherk.c b/compute/zherk.c
index 947f8893f..d82dfa744 100644
--- a/compute/zherk.c
+++ b/compute/zherk.c
@@ -173,7 +173,7 @@ int MORSE_zherk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* Call the tile interface */
MORSE_zherk_Tile_Async(uplo, trans, alpha, &descA, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zhetrd.c b/compute/zhetrd.c
index aa7152dc0..a383fddac 100644
--- a/compute/zhetrd.c
+++ b/compute/zhetrd.c
@@ -173,7 +173,7 @@ int MORSE_zhetrd(MORSE_enum jobz, MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zhetrd_Tile_Async(jobz, uplo, &descA, D, E, descT, Q, LDQ, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zlacpy.c b/compute/zlacpy.c
index d5aab8ec1..e4830ebc4 100644
--- a/compute/zlacpy.c
+++ b/compute/zlacpy.c
@@ -139,7 +139,7 @@ int MORSE_zlacpy(MORSE_enum uplo, int M, int N,
/* Call the tile interface */
MORSE_zlacpy_Tile_Async(uplo, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zlange.c b/compute/zlange.c
index 403acb5ef..a7bd32ca1 100644
--- a/compute/zlange.c
+++ b/compute/zlange.c
@@ -141,7 +141,7 @@ double MORSE_zlange(MORSE_enum norm, int M, int N,
/* Call the tile interface */
MORSE_zlange_Tile_Async(norm, &descA, &value, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
RUNTIME_desc_flush( &descA, sequence );
diff --git a/compute/zlanhe.c b/compute/zlanhe.c
index 501df0f39..b7998b8c4 100644
--- a/compute/zlanhe.c
+++ b/compute/zlanhe.c
@@ -141,7 +141,7 @@ double MORSE_zlanhe(MORSE_enum norm, MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zlanhe_Tile_Async(norm, uplo, &descA, &value, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
RUNTIME_desc_flush( &descA, sequence );
diff --git a/compute/zlascal.c b/compute/zlascal.c
index 5a8f03525..fb36b4442 100644
--- a/compute/zlascal.c
+++ b/compute/zlascal.c
@@ -121,7 +121,7 @@ int MORSE_zlascal(MORSE_enum uplo, int M, int N,
MORSE_zlascal_Tile_Async(
uplo, alpha, &descA, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
RUNTIME_sequence_wait(morse, sequence);
diff --git a/compute/zlauum.c b/compute/zlauum.c
index 59578adee..e0622456e 100644
--- a/compute/zlauum.c
+++ b/compute/zlauum.c
@@ -128,7 +128,7 @@ int MORSE_zlauum(MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zlauum_Tile_Async(uplo, &descA, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zplghe.c b/compute/zplghe.c
index 5e63663d2..0396aeed6 100644
--- a/compute/zplghe.c
+++ b/compute/zplghe.c
@@ -120,6 +120,7 @@ int MORSE_zplghe( double bump, MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zplghe_Tile_Async( bump, uplo, &descA, seed, sequence, &request );
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zplgsy.c b/compute/zplgsy.c
index 265ad6d9a..e57091b6c 100644
--- a/compute/zplgsy.c
+++ b/compute/zplgsy.c
@@ -120,6 +120,7 @@ int MORSE_zplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zplgsy_Tile_Async( bump, uplo, &descA, seed, sequence, &request );
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zplrnt.c b/compute/zplrnt.c
index fb0f450cd..4272ad445 100644
--- a/compute/zplrnt.c
+++ b/compute/zplrnt.c
@@ -117,6 +117,7 @@ int MORSE_zplrnt( int M, int N,
/* Call the tile interface */
MORSE_zplrnt_Tile_Async( &descA, seed, sequence, &request );
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zposv.c b/compute/zposv.c
index 7081a5771..eff74e0c2 100644
--- a/compute/zposv.c
+++ b/compute/zposv.c
@@ -158,7 +158,7 @@ int MORSE_zposv(MORSE_enum uplo, int N, int NRHS,
/* Call the tile interface */
MORSE_zposv_Tile_Async(uplo, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zpotri.c b/compute/zpotri.c
index 49cd7aa35..3fb9836e3 100644
--- a/compute/zpotri.c
+++ b/compute/zpotri.c
@@ -125,7 +125,7 @@ int MORSE_zpotri(MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zpotri_Tile_Async(uplo, &descA, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zpotrimm.c b/compute/zpotrimm.c
index d41805488..56d74fef7 100644
--- a/compute/zpotrimm.c
+++ b/compute/zpotrimm.c
@@ -139,7 +139,7 @@ int MORSE_zpotrimm(MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zpotrimm_Tile_Async(uplo, &descA, &descB, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zpotrs.c b/compute/zpotrs.c
index 611b30ee9..8db0de89d 100644
--- a/compute/zpotrs.c
+++ b/compute/zpotrs.c
@@ -142,7 +142,7 @@ int MORSE_zpotrs(MORSE_enum uplo, int N, int NRHS,
/* Call the tile interface */
MORSE_zpotrs_Tile_Async(uplo, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zsymm.c b/compute/zsymm.c
index 94d7584a4..8281f6189 100644
--- a/compute/zsymm.c
+++ b/compute/zsymm.c
@@ -185,7 +185,7 @@ int MORSE_zsymm(MORSE_enum side, MORSE_enum uplo, int M, int N,
MORSE_zsymm_Tile_Async(
side, uplo, alpha, &descA, &descB, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zsyr2k.c b/compute/zsyr2k.c
index bf4149197..294fe436a 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,
/* Call the tile interface */
MORSE_zsyr2k_Tile_Async(uplo, trans, alpha, &descA, &descB, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zsyrk.c b/compute/zsyrk.c
index 806bf0c47..ecad67b92 100644
--- a/compute/zsyrk.c
+++ b/compute/zsyrk.c
@@ -173,7 +173,7 @@ int MORSE_zsyrk(MORSE_enum uplo, MORSE_enum trans, int N, int K,
/* Call the tile interface */
MORSE_zsyrk_Tile_Async(uplo, trans, alpha, &descA, beta, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zsysv.c b/compute/zsysv.c
index 426a0248b..bf341cc7b 100644
--- a/compute/zsysv.c
+++ b/compute/zsysv.c
@@ -155,7 +155,7 @@ int MORSE_zsysv(MORSE_enum uplo, int N, int NRHS,
/* Call the tile interface */
MORSE_zsysv_Tile_Async(uplo, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/zsytrf.c b/compute/zsytrf.c
index c478d3ace..a0e1345f9 100644
--- a/compute/zsytrf.c
+++ b/compute/zsytrf.c
@@ -129,7 +129,7 @@ int MORSE_zsytrf(MORSE_enum uplo, int N,
/* Call the tile interface */
MORSE_zsytrf_Tile_Async(uplo, &descA, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zsytrs.c b/compute/zsytrs.c
index ffc58be2c..7a7ee0e21 100644
--- a/compute/zsytrs.c
+++ b/compute/zsytrs.c
@@ -141,7 +141,7 @@ int MORSE_zsytrs(MORSE_enum uplo, int N, int NRHS,
/* Call the tile interface */
MORSE_zsytrs_Tile_Async(uplo, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/ztpgqrt.c b/compute/ztpgqrt.c
index 432ee7072..1ac244427 100644
--- a/compute/ztpgqrt.c
+++ b/compute/ztpgqrt.c
@@ -220,7 +220,7 @@ int MORSE_ztpgqrt( int M, int N, int K, int L,
/* Call the tile interface */
MORSE_ztpgqrt_Tile_Async(L, &descV1, descT1, &descV2, descT2, &descQ1, &descQ2, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQ1l, &descQ1t,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descQ2l, &descQ2t,
diff --git a/compute/ztpqrt.c b/compute/ztpqrt.c
index 07db10241..91b0bd92a 100644
--- a/compute/ztpqrt.c
+++ b/compute/ztpqrt.c
@@ -194,7 +194,7 @@ int MORSE_ztpqrt( int M, int N, int L,
/* Call the tile interface */
MORSE_ztpqrt_Tile_Async(L, &descA, &descB, descT, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
morse_ztile2lap( morse, &descBl, &descBt,
diff --git a/compute/ztradd.c b/compute/ztradd.c
index 60d76860e..f8eddd8fc 100644
--- a/compute/ztradd.c
+++ b/compute/ztradd.c
@@ -173,7 +173,7 @@ int MORSE_ztradd(MORSE_enum uplo, MORSE_enum trans, int M, int N,
MORSE_ztradd_Tile_Async(
uplo, trans, alpha, &descA, beta, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/ztrmm.c b/compute/ztrmm.c
index 5adaee188..a13413997 100644
--- a/compute/ztrmm.c
+++ b/compute/ztrmm.c
@@ -187,7 +187,7 @@ int MORSE_ztrmm(MORSE_enum side, MORSE_enum uplo,
MORSE_ztrmm_Tile_Async(
side, uplo, transA, diag, alpha, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/ztrsm.c b/compute/ztrsm.c
index f65bb94de..b0d987b52 100644
--- a/compute/ztrsm.c
+++ b/compute/ztrsm.c
@@ -185,7 +185,7 @@ int MORSE_ztrsm(MORSE_enum side, MORSE_enum uplo,
MORSE_ztrsm_Tile_Async(
side, uplo, transA, diag, alpha, &descA, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/ztrsmpl.c b/compute/ztrsmpl.c
index fcc86aaff..cdc18667a 100644
--- a/compute/ztrsmpl.c
+++ b/compute/ztrsmpl.c
@@ -139,7 +139,7 @@ int MORSE_ztrsmpl(int N, int NRHS,
/* Call the tile interface */
MORSE_ztrsmpl_Tile_Async(&descA, descL, IPIV, &descB, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descBl, &descBt,
MorseUpperLower, sequence, &request );
diff --git a/compute/ztrtri.c b/compute/ztrtri.c
index 7eb605b37..4dfc7438f 100644
--- a/compute/ztrtri.c
+++ b/compute/ztrtri.c
@@ -137,7 +137,7 @@ int MORSE_ztrtri(MORSE_enum uplo, MORSE_enum diag, int N,
/* Call the tile interface */
MORSE_ztrtri_Tile_Async(uplo, diag, &descA, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descAl, &descAt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zunglq.c b/compute/zunglq.c
index c41d7f710..7833a9de6 100644
--- a/compute/zunglq.c
+++ b/compute/zunglq.c
@@ -145,7 +145,7 @@ int MORSE_zunglq(int M, int N, int K,
/* Call the tile interface */
MORSE_zunglq_Tile_Async(&descA, descT, &descQ, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zunglq_param.c b/compute/zunglq_param.c
index 5ff156c71..439c35707 100644
--- a/compute/zunglq_param.c
+++ b/compute/zunglq_param.c
@@ -142,7 +142,7 @@ int MORSE_zunglq_param(const libhqr_tree_t *qrtree, int M, int N, int K,
/* Call the tile interface */
MORSE_zunglq_param_Tile_Async(qrtree, &descA, descTS, descTT, &descQ, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zungqr.c b/compute/zungqr.c
index e830d4c91..1ce47bdd5 100644
--- a/compute/zungqr.c
+++ b/compute/zungqr.c
@@ -144,7 +144,7 @@ int MORSE_zungqr(int M, int N, int K,
/* Call the tile interface */
MORSE_zungqr_Tile_Async(&descA, descT, &descQ, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zungqr_param.c b/compute/zungqr_param.c
index cdd5370f8..256368d7d 100644
--- a/compute/zungqr_param.c
+++ b/compute/zungqr_param.c
@@ -143,7 +143,7 @@ int MORSE_zungqr_param(const libhqr_tree_t *qrtree,
/* Call the tile interface */
MORSE_zungqr_param_Tile_Async(qrtree, &descA, descTS, descTT, &descQ, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descQl, &descQt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zunmlq.c b/compute/zunmlq.c
index 8a4b9ac2d..64061c84a 100644
--- a/compute/zunmlq.c
+++ b/compute/zunmlq.c
@@ -183,7 +183,7 @@ int MORSE_zunmlq(MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MORSE_zunmlq_Tile_Async(
side, trans, &descA, descT, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zunmlq_param.c b/compute/zunmlq_param.c
index 21b7f90ac..880831c3c 100644
--- a/compute/zunmlq_param.c
+++ b/compute/zunmlq_param.c
@@ -182,7 +182,7 @@ int MORSE_zunmlq_param(const libhqr_tree_t *qrtree, MORSE_enum side, MORSE_enum
MORSE_zunmlq_param_Tile_Async(
qrtree, side, trans, &descA, descTS, descTT, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zunmqr.c b/compute/zunmqr.c
index 9494b69bc..e7c537f62 100644
--- a/compute/zunmqr.c
+++ b/compute/zunmqr.c
@@ -186,7 +186,7 @@ int MORSE_zunmqr(MORSE_enum side, MORSE_enum trans, int M, int N, int K,
MORSE_zunmqr_Tile_Async(
side, trans, &descA, descT, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
diff --git a/compute/zunmqr_param.c b/compute/zunmqr_param.c
index a18d36265..733857bf1 100644
--- a/compute/zunmqr_param.c
+++ b/compute/zunmqr_param.c
@@ -187,7 +187,7 @@ int MORSE_zunmqr_param(const libhqr_tree_t *qrtree,
MORSE_zunmqr_param_Tile_Async(
qrtree, side, trans, &descA, descTS, descTT, &descC, sequence, &request);
- /* Submit the matrix conversion */
+ /* Submit the matrix conversion back */
morse_ztile2lap( morse, &descCl, &descCt,
MorseUpperLower, sequence, &request );
--
GitLab