From 410273ea052faa4993144a374df4fac2d53e901e Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Mon, 15 Jan 2018 12:55:53 +0100
Subject: [PATCH] Cleanup comments
---
compute/pzbuild.c | 2 +-
compute/pzgelqf.c | 2 +-
compute/pzgemm.c | 2 +-
compute/pzgeqrf.c | 2 +-
compute/pzgeqrfrh.c | 2 +-
compute/pzgetrf_incpiv.c | 2 +-
compute/pzgetrf_nopiv.c | 2 +-
compute/pzhemm.c | 2 +-
compute/pzher2k.c | 2 +-
compute/pzherk.c | 2 +-
compute/pzhetrd_he2hb.c | 2 +-
compute/pzlacpy.c | 4 ++--
compute/pzlag2c.c | 4 ++--
compute/pzlange.c | 15 ++++++---------
compute/pzlanhe.c | 4 ++--
compute/pzlansy.c | 4 ++--
compute/pzlantr.c | 2 +-
compute/pzlaset.c | 2 +-
compute/pzlaset2.c | 2 +-
compute/pzlauum.c | 2 +-
compute/pzplghe.c | 2 +-
compute/pzplgsy.c | 2 +-
compute/pzplrnt.c | 2 +-
compute/pzpotrf.c | 2 +-
compute/pzpotrimm.c | 2 +-
compute/pzsymm.c | 2 +-
compute/pzsyr2k.c | 2 +-
compute/pzsyrk.c | 2 +-
compute/pzsytrf.c | 2 +-
compute/pztile2band.c | 2 +-
compute/pztpgqrt.c | 2 +-
compute/pztpqrt.c | 2 +-
compute/pztradd.c | 2 +-
compute/pztrmm.c | 2 +-
compute/pztrsm.c | 2 +-
compute/pztrsmpl.c | 2 +-
compute/pztrtri.c | 2 +-
compute/pzunglq.c | 2 +-
compute/pzungqr.c | 2 +-
compute/pzunmlq.c | 2 +-
compute/pzunmlqrh.c | 2 +-
compute/pzunmqr.c | 2 +-
compute/pzunmqrrh.c | 8 ++++----
43 files changed, 55 insertions(+), 58 deletions(-)
diff --git a/compute/pzbuild.c b/compute/pzbuild.c
index 2bf0f5075..f4e3a6c0b 100644
--- a/compute/pzbuild.c
+++ b/compute/pzbuild.c
@@ -30,7 +30,7 @@
#include "control/common.h"
#define A(m, n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile matrix generation
*
*******************************************************************************
diff --git a/compute/pzgelqf.c b/compute/pzgelqf.c
index 150335f7f..2d28d719c 100644
--- a/compute/pzgelqf.c
+++ b/compute/pzgelqf.c
@@ -38,7 +38,7 @@
#define D(k) A, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile LQ factorization - dynamic scheduling
**/
void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
diff --git a/compute/pzgemm.c b/compute/pzgemm.c
index 92c04d02c..c52fcc281 100644
--- a/compute/pzgemm.c
+++ b/compute/pzgemm.c
@@ -31,7 +31,7 @@
#define A(m, n) A, m, n
#define B(m, n) B, m, n
#define C(m, n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile matrix-matrix multiplication - dynamic scheduling
**/
void morse_pzgemm(MORSE_enum transA, MORSE_enum transB,
diff --git a/compute/pzgeqrf.c b/compute/pzgeqrf.c
index 08796a3db..849d7a005 100644
--- a/compute/pzgeqrf.c
+++ b/compute/pzgeqrf.c
@@ -38,7 +38,7 @@
#define D(k) A, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling
**/
void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
diff --git a/compute/pzgeqrfrh.c b/compute/pzgeqrfrh.c
index 6fffcf2ed..a2ea808b9 100644
--- a/compute/pzgeqrfrh.c
+++ b/compute/pzgeqrfrh.c
@@ -40,7 +40,7 @@
#define D(m,n) A, (m), (n)
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile QR factorization (reduction Householder) - dynamic scheduling
**/
void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
diff --git a/compute/pzgetrf_incpiv.c b/compute/pzgetrf_incpiv.c
index 058dc1018..092d258fa 100644
--- a/compute/pzgetrf_incpiv.c
+++ b/compute/pzgetrf_incpiv.c
@@ -42,7 +42,7 @@
#define L(_m_,_n_) L, _m_, _n_
#define IPIV(_m_,_n_) &(IPIV[(int64_t)A->mb*((int64_t)(_m_)+(int64_t)A->mt*(int64_t)(_n_))])
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile LU factorization - dynamic scheduling
**/
void morse_pzgetrf_incpiv(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
diff --git a/compute/pzgetrf_nopiv.c b/compute/pzgetrf_nopiv.c
index 3a276b820..e620dcdfa 100644
--- a/compute/pzgetrf_nopiv.c
+++ b/compute/pzgetrf_nopiv.c
@@ -29,7 +29,7 @@
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile LU factorization with no pivoting - dynamic scheduling
**/
void morse_pzgetrf_nopiv(MORSE_desc_t *A,
diff --git a/compute/pzhemm.c b/compute/pzhemm.c
index 06a5115a9..7e5ca0709 100644
--- a/compute/pzhemm.c
+++ b/compute/pzhemm.c
@@ -31,7 +31,7 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Hermitian matrix-matrix multiplication - dynamic scheduling
**/
void morse_pzhemm(MORSE_enum side, MORSE_enum uplo,
diff --git a/compute/pzher2k.c b/compute/pzher2k.c
index 2462e4314..63b027410 100644
--- a/compute/pzher2k.c
+++ b/compute/pzher2k.c
@@ -31,7 +31,7 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Hermitian rank-k update - dynamic scheduling
**/
void morse_pzher2k(MORSE_enum uplo, MORSE_enum trans,
diff --git a/compute/pzherk.c b/compute/pzherk.c
index a83db2e5e..b499177f1 100644
--- a/compute/pzherk.c
+++ b/compute/pzherk.c
@@ -30,7 +30,7 @@
#define A(m,n) A, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Hermitian rank-k update - dynamic scheduling
**/
void morse_pzherk(MORSE_enum uplo, MORSE_enum trans,
diff --git a/compute/pzhetrd_he2hb.c b/compute/pzhetrd_he2hb.c
index 873721ed6..74c339614 100644
--- a/compute/pzhetrd_he2hb.c
+++ b/compute/pzhetrd_he2hb.c
@@ -38,7 +38,7 @@
#define E(m, n) A, m, n
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile BAND Tridiagonal Reduction - dynamic scheduler
**/
void morse_pzhetrd_he2hb(MORSE_enum uplo,
diff --git a/compute/pzlacpy.c b/compute/pzlacpy.c
index f38330bc9..b13b15222 100644
--- a/compute/pzlacpy.c
+++ b/compute/pzlacpy.c
@@ -30,11 +30,11 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
-/***************************************************************************//**
+/*******************************************************************************
*
**/
-/***************************************************************************//**
+/*******************************************************************************
*
**/
void morse_pzlacpy(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
diff --git a/compute/pzlag2c.c b/compute/pzlag2c.c
index 73f3798c7..5ca24e2b3 100644
--- a/compute/pzlag2c.c
+++ b/compute/pzlag2c.c
@@ -32,11 +32,11 @@
#define B(m,n) B, m, n
#define SA(m,n) SA, m, n
#define SB(m,n) SB, m, n
-/***************************************************************************//**
+/*******************************************************************************
*
**/
-/***************************************************************************//**
+/*******************************************************************************
*
**/
void morse_pclag2z(MORSE_desc_t *SA, MORSE_desc_t *B,
diff --git a/compute/pzlange.c b/compute/pzlange.c
index 7e68eb189..f893a4d9b 100644
--- a/compute/pzlange.c
+++ b/compute/pzlange.c
@@ -35,15 +35,12 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n
-/***************************************************************************//**
- *
- **/
-
-/***************************************************************************//**
- *
- **/
-void morse_pzlange(MORSE_enum norm, MORSE_desc_t *A, double *result,
- MORSE_sequence_t *sequence, MORSE_request_t *request)
+
+/*****************************************************************************
+ *
+ **/
+void morse_pzlange( MORSE_enum norm, MORSE_desc_t *A, double *result,
+ MORSE_sequence_t *sequence, MORSE_request_t *request )
{
MORSE_desc_t *VECNORMS_STEP1 = NULL;
MORSE_desc_t *VECNORMS_STEP2 = NULL;
diff --git a/compute/pzlanhe.c b/compute/pzlanhe.c
index 781115b60..af3b5bbab 100644
--- a/compute/pzlanhe.c
+++ b/compute/pzlanhe.c
@@ -35,11 +35,11 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n
-/***************************************************************************//**
+/*******************************************************************************
*
**/
-/***************************************************************************//**
+/*******************************************************************************
*
**/
void morse_pzlanhe(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *result,
diff --git a/compute/pzlansy.c b/compute/pzlansy.c
index 7f3877c84..f71eb5cb0 100644
--- a/compute/pzlansy.c
+++ b/compute/pzlansy.c
@@ -35,11 +35,11 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n
-/***************************************************************************//**
+/*******************************************************************************
*
**/
-/***************************************************************************//**
+/*******************************************************************************
*
**/
void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *result,
diff --git a/compute/pzlantr.c b/compute/pzlantr.c
index 639ebdfde..7c1e28b71 100644
--- a/compute/pzlantr.c
+++ b/compute/pzlantr.c
@@ -32,7 +32,7 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n
-/***************************************************************************//**
+/*******************************************************************************
*
**/
void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
diff --git a/compute/pzlaset.c b/compute/pzlaset.c
index a0a71b0da..f0c84a852 100644
--- a/compute/pzlaset.c
+++ b/compute/pzlaset.c
@@ -30,7 +30,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel initialization a 2-D array A to BETA on the diagonal and
* ALPHA on the offdiagonals.
**/
diff --git a/compute/pzlaset2.c b/compute/pzlaset2.c
index 94142791c..96b681245 100644
--- a/compute/pzlaset2.c
+++ b/compute/pzlaset2.c
@@ -30,7 +30,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel initializztion a 2-D array A to
* ALPHA on the offdiagonals.
**/
diff --git a/compute/pzlauum.c b/compute/pzlauum.c
index de8faf8f8..d7052fd75 100644
--- a/compute/pzlauum.c
+++ b/compute/pzlauum.c
@@ -31,7 +31,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel UU' or L'L operation - dynamic scheduling
**/
void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A,
diff --git a/compute/pzplghe.c b/compute/pzplghe.c
index 0f6e559dd..239e5947e 100644
--- a/compute/pzplghe.c
+++ b/compute/pzplghe.c
@@ -32,7 +32,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* morse_pzplghe - Generate a random hermitian (positive definite if 'bump' is large enough) half-matrix by tiles.
**/
void morse_pzplghe( double bump, MORSE_enum uplo, MORSE_desc_t *A,
diff --git a/compute/pzplgsy.c b/compute/pzplgsy.c
index a7c8b2828..c5111e567 100644
--- a/compute/pzplgsy.c
+++ b/compute/pzplgsy.c
@@ -32,7 +32,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* morse_pzplgsy - Generate a random symmetric (positive definite if 'bump' is large enough) half-matrix by tiles.
**/
void morse_pzplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, MORSE_desc_t *A,
diff --git a/compute/pzplrnt.c b/compute/pzplrnt.c
index 53fe68f27..d04677379 100644
--- a/compute/pzplrnt.c
+++ b/compute/pzplrnt.c
@@ -29,7 +29,7 @@
#include "control/common.h"
#define A(m, n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* morse_pzplghe - Generate a random matrix by tiles.
**/
void morse_pzplrnt( MORSE_desc_t *A, unsigned long long int seed,
diff --git a/compute/pzpotrf.c b/compute/pzpotrf.c
index 562d7109a..ae7f858a3 100644
--- a/compute/pzpotrf.c
+++ b/compute/pzpotrf.c
@@ -32,7 +32,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Cholesky factorization - dynamic scheduling
**/
void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
diff --git a/compute/pzpotrimm.c b/compute/pzpotrimm.c
index 09d6bd39d..fd4956e21 100644
--- a/compute/pzpotrimm.c
+++ b/compute/pzpotrimm.c
@@ -31,7 +31,7 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Cholesky factorization - dynamic scheduling
**/
void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *C,
diff --git a/compute/pzsymm.c b/compute/pzsymm.c
index a51cc6437..fd608f65d 100644
--- a/compute/pzsymm.c
+++ b/compute/pzsymm.c
@@ -31,7 +31,7 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile symmetric matrix-matrix multiplication - dynamic scheduling
**/
void morse_pzsymm(MORSE_enum side, MORSE_enum uplo,
diff --git a/compute/pzsyr2k.c b/compute/pzsyr2k.c
index 9903b623a..9ed43086c 100644
--- a/compute/pzsyr2k.c
+++ b/compute/pzsyr2k.c
@@ -31,7 +31,7 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Hermitian rank-k update - dynamic scheduling
**/
void morse_pzsyr2k(MORSE_enum uplo, MORSE_enum trans,
diff --git a/compute/pzsyrk.c b/compute/pzsyrk.c
index 41b5efd0a..a942fa8d4 100644
--- a/compute/pzsyrk.c
+++ b/compute/pzsyrk.c
@@ -31,7 +31,7 @@
#define A(m,n) A, m, n
#define C(m,n) C, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile symmetric rank-k update - dynamic scheduling
**/
void morse_pzsyrk(MORSE_enum uplo, MORSE_enum trans,
diff --git a/compute/pzsytrf.c b/compute/pzsytrf.c
index 2a4ce3a6e..6e257b5b2 100644
--- a/compute/pzsytrf.c
+++ b/compute/pzsytrf.c
@@ -31,7 +31,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile Cholesky factorization - dynamic scheduling
**/
void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
diff --git a/compute/pztile2band.c b/compute/pztile2band.c
index cf71f839f..bfd4f5cf1 100644
--- a/compute/pztile2band.c
+++ b/compute/pztile2band.c
@@ -30,7 +30,7 @@
#define A(m,n) A, m, n
#define B(m, n) B, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel copy of a band matrix from full NxN tile storage to band storage (LDABxN).
**/
void morse_pztile2band(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
diff --git a/compute/pztpgqrt.c b/compute/pztpgqrt.c
index 0746b2786..a070dc851 100644
--- a/compute/pztpgqrt.c
+++ b/compute/pztpgqrt.c
@@ -36,7 +36,7 @@
#define D(k) V1, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling
**/
void morse_pztpgqrt( int L,
diff --git a/compute/pztpqrt.c b/compute/pztpqrt.c
index da8d152c1..47415ff05 100644
--- a/compute/pztpqrt.c
+++ b/compute/pztpqrt.c
@@ -28,7 +28,7 @@
#define B(m,n) B, m, n
#define T(m,n) T, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling
**/
void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T,
diff --git a/compute/pztradd.c b/compute/pztradd.c
index 34baf5eab..aa5dca0e5 100644
--- a/compute/pztradd.c
+++ b/compute/pztradd.c
@@ -30,7 +30,7 @@
#define A(m, n) A, m, n
#define B(m, n) B, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile matrix-matrix multiplication - dynamic scheduling
**/
void morse_pztradd(MORSE_enum uplo, MORSE_enum trans,
diff --git a/compute/pztrmm.c b/compute/pztrmm.c
index ce0d54345..b616bd55a 100644
--- a/compute/pztrmm.c
+++ b/compute/pztrmm.c
@@ -33,7 +33,7 @@
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile triangular matrix-matrix multiplication - dynamic scheduling
**/
void morse_pztrmm(MORSE_enum side, MORSE_enum uplo,
diff --git a/compute/pztrsm.c b/compute/pztrsm.c
index 6338801f6..727b7e5db 100644
--- a/compute/pztrsm.c
+++ b/compute/pztrsm.c
@@ -32,7 +32,7 @@
#define A(m,n) A, m, n
#define B(m,n) B, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile triangular solve - dynamic scheduling
**/
void morse_pztrsm(MORSE_enum side, MORSE_enum uplo, MORSE_enum trans, MORSE_enum diag,
diff --git a/compute/pztrsmpl.c b/compute/pztrsmpl.c
index 5da3da0c8..7314ad60f 100644
--- a/compute/pztrsmpl.c
+++ b/compute/pztrsmpl.c
@@ -34,7 +34,7 @@
#define B(m,n) B, m, n
#define L(m,n) L, m, n
#define IPIV(m,n) &(IPIV[(int64_t)A->nb*((int64_t)(m)+(int64_t)A->mt*(int64_t)(n))])
-/***************************************************************************//**
+/*******************************************************************************
* Parallel forward substitution for tile LU - dynamic scheduling
**/
void morse_pztrsmpl(MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *L, int *IPIV,
diff --git a/compute/pztrtri.c b/compute/pztrtri.c
index c81fcb941..e212d3805 100644
--- a/compute/pztrtri.c
+++ b/compute/pztrtri.c
@@ -31,7 +31,7 @@
#include "control/common.h"
#define A(m,n) A, m, n
-/***************************************************************************//**
+/*******************************************************************************
* Parallel tile triangular matrix inverse - dynamic scheduling
**/
void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
diff --git a/compute/pzunglq.c b/compute/pzunglq.c
index bd038ef98..13a034ce3 100644
--- a/compute/pzunglq.c
+++ b/compute/pzunglq.c
@@ -39,7 +39,7 @@
#define D(k) A, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling
**/
void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc_t *D,
diff --git a/compute/pzungqr.c b/compute/pzungqr.c
index 6e42f5371..389f79e85 100644
--- a/compute/pzungqr.c
+++ b/compute/pzungqr.c
@@ -39,7 +39,7 @@
#define D(k) A, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling
**/
void morse_pzungqr(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc_t *D,
diff --git a/compute/pzunmlq.c b/compute/pzunmlq.c
index 25a5369ac..9c9cfd679 100644
--- a/compute/pzunmlq.c
+++ b/compute/pzunmlq.c
@@ -40,7 +40,7 @@
#define D(k) A, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel application of Q using tile V - LQ factorization - dynamic scheduling
**/
void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
diff --git a/compute/pzunmlqrh.c b/compute/pzunmlqrh.c
index 371d08e4f..8444f0bb3 100644
--- a/compute/pzunmlqrh.c
+++ b/compute/pzunmlqrh.c
@@ -41,7 +41,7 @@
#define D(m,n) A, (m), (n)
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel application of Q using tile V - LQ factorization (reduction
* Householder) - dynamic scheduling
**/
diff --git a/compute/pzunmqr.c b/compute/pzunmqr.c
index 0f05f4edf..4e81716dd 100644
--- a/compute/pzunmqr.c
+++ b/compute/pzunmqr.c
@@ -40,7 +40,7 @@
#define D(k) A, k, k
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel application of Q using tile V - QR factorization - dynamic scheduling
**/
void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
diff --git a/compute/pzunmqrrh.c b/compute/pzunmqrrh.c
index d6d57629e..ca7097ca9 100644
--- a/compute/pzunmqrrh.c
+++ b/compute/pzunmqrrh.c
@@ -41,13 +41,13 @@
#define D(m,n) A, (m), (n)
#endif
-/***************************************************************************//**
+/*******************************************************************************
* Parallel application of Q using tile V - QR factorization (reduction
* Householder) - dynamic scheduling
**/
-void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
- MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
- MORSE_sequence_t *sequence, MORSE_request_t *request)
+void morse_pzunmqrrh( MORSE_enum side, MORSE_enum trans,
+ MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
+ MORSE_sequence_t *sequence, MORSE_request_t *request )
{
MORSE_context_t *morse;
MORSE_option_t options;
--
GitLab