Commit 410273ea authored by Mathieu Faverge's avatar Mathieu Faverge

Cleanup comments

parent 8c7df755
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m, n) A, m, n #define A(m, n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile matrix generation * Parallel tile matrix generation
* *
******************************************************************************* *******************************************************************************
......
...@@ -38,7 +38,7 @@ ...@@ -38,7 +38,7 @@
#define D(k) A, k, k #define D(k) A, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel tile LQ factorization - dynamic scheduling * Parallel tile LQ factorization - dynamic scheduling
**/ **/
void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m, n) A, m, n #define A(m, n) A, m, n
#define B(m, n) B, m, n #define B(m, n) B, m, n
#define C(m, n) C, m, n #define C(m, n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile matrix-matrix multiplication - dynamic scheduling * Parallel tile matrix-matrix multiplication - dynamic scheduling
**/ **/
void morse_pzgemm(MORSE_enum transA, MORSE_enum transB, void morse_pzgemm(MORSE_enum transA, MORSE_enum transB,
......
...@@ -38,7 +38,7 @@ ...@@ -38,7 +38,7 @@
#define D(k) A, k, k #define D(k) A, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling * Parallel tile QR factorization - dynamic scheduling
**/ **/
void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D,
......
...@@ -40,7 +40,7 @@ ...@@ -40,7 +40,7 @@
#define D(m,n) A, (m), (n) #define D(m,n) A, (m), (n)
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel tile QR factorization (reduction Householder) - dynamic scheduling * 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, void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, MORSE_desc_t *D, int BS,
......
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
#define L(_m_,_n_) L, _m_, _n_ #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_))]) #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 * Parallel tile LU factorization - dynamic scheduling
**/ **/
void morse_pzgetrf_incpiv(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, void morse_pzgetrf_incpiv(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
......
...@@ -29,7 +29,7 @@ ...@@ -29,7 +29,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile LU factorization with no pivoting - dynamic scheduling * Parallel tile LU factorization with no pivoting - dynamic scheduling
**/ **/
void morse_pzgetrf_nopiv(MORSE_desc_t *A, void morse_pzgetrf_nopiv(MORSE_desc_t *A,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Hermitian matrix-matrix multiplication - dynamic scheduling * Parallel tile Hermitian matrix-matrix multiplication - dynamic scheduling
**/ **/
void morse_pzhemm(MORSE_enum side, MORSE_enum uplo, void morse_pzhemm(MORSE_enum side, MORSE_enum uplo,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Hermitian rank-k update - dynamic scheduling * Parallel tile Hermitian rank-k update - dynamic scheduling
**/ **/
void morse_pzher2k(MORSE_enum uplo, MORSE_enum trans, void morse_pzher2k(MORSE_enum uplo, MORSE_enum trans,
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Hermitian rank-k update - dynamic scheduling * Parallel tile Hermitian rank-k update - dynamic scheduling
**/ **/
void morse_pzherk(MORSE_enum uplo, MORSE_enum trans, void morse_pzherk(MORSE_enum uplo, MORSE_enum trans,
......
...@@ -38,7 +38,7 @@ ...@@ -38,7 +38,7 @@
#define E(m, n) A, m, n #define E(m, n) A, m, n
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel tile BAND Tridiagonal Reduction - dynamic scheduler * Parallel tile BAND Tridiagonal Reduction - dynamic scheduler
**/ **/
void morse_pzhetrd_he2hb(MORSE_enum uplo, void morse_pzhetrd_he2hb(MORSE_enum uplo,
......
...@@ -30,11 +30,11 @@ ...@@ -30,11 +30,11 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
void morse_pzlacpy(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, void morse_pzlacpy(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
......
...@@ -32,11 +32,11 @@ ...@@ -32,11 +32,11 @@
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define SA(m,n) SA, m, n #define SA(m,n) SA, m, n
#define SB(m,n) SB, m, n #define SB(m,n) SB, m, n
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
void morse_pclag2z(MORSE_desc_t *SA, MORSE_desc_t *B, void morse_pclag2z(MORSE_desc_t *SA, MORSE_desc_t *B,
......
...@@ -35,15 +35,12 @@ ...@@ -35,15 +35,12 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n #define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n #define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, 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_STEP1 = NULL;
MORSE_desc_t *VECNORMS_STEP2 = NULL; MORSE_desc_t *VECNORMS_STEP2 = NULL;
......
...@@ -35,11 +35,11 @@ ...@@ -35,11 +35,11 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n #define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n #define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n #define RESULT(m, n) RESULT, m, n
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
void morse_pzlanhe(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *result, void morse_pzlanhe(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *result,
......
...@@ -35,11 +35,11 @@ ...@@ -35,11 +35,11 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n #define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n #define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n #define RESULT(m, n) RESULT, m, n
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *result, void morse_pzlansy(MORSE_enum norm, MORSE_enum uplo, MORSE_desc_t *A, double *result,
......
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
#define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n #define VECNORMS_STEP1(m, n) VECNORMS_STEP1, m, n
#define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n #define VECNORMS_STEP2(m, n) VECNORMS_STEP2, m, n
#define RESULT(m, n) RESULT, m, n #define RESULT(m, n) RESULT, m, n
/***************************************************************************//** /*******************************************************************************
* *
**/ **/
void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag, void morse_pzlantr(MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel initialization a 2-D array A to BETA on the diagonal and * Parallel initialization a 2-D array A to BETA on the diagonal and
* ALPHA on the offdiagonals. * ALPHA on the offdiagonals.
**/ **/
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel initializztion a 2-D array A to * Parallel initializztion a 2-D array A to
* ALPHA on the offdiagonals. * ALPHA on the offdiagonals.
**/ **/
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel UU' or L'L operation - dynamic scheduling * Parallel UU' or L'L operation - dynamic scheduling
**/ **/
void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A, void morse_pzlauum(MORSE_enum uplo, MORSE_desc_t *A,
......
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* morse_pzplghe - Generate a random hermitian (positive definite if 'bump' is large enough) half-matrix by tiles. * 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, void morse_pzplghe( double bump, MORSE_enum uplo, MORSE_desc_t *A,
......
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* morse_pzplgsy - Generate a random symmetric (positive definite if 'bump' is large enough) half-matrix by tiles. * 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, void morse_pzplgsy( MORSE_Complex64_t bump, MORSE_enum uplo, MORSE_desc_t *A,
......
...@@ -29,7 +29,7 @@ ...@@ -29,7 +29,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m, n) A, m, n #define A(m, n) A, m, n
/***************************************************************************//** /*******************************************************************************
* morse_pzplghe - Generate a random matrix by tiles. * morse_pzplghe - Generate a random matrix by tiles.
**/ **/
void morse_pzplrnt( MORSE_desc_t *A, unsigned long long int seed, void morse_pzplrnt( MORSE_desc_t *A, unsigned long long int seed,
......
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Cholesky factorization - dynamic scheduling * Parallel tile Cholesky factorization - dynamic scheduling
**/ **/
void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A, void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Cholesky factorization - dynamic scheduling * Parallel tile Cholesky factorization - dynamic scheduling
**/ **/
void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *C, void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *C,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile symmetric matrix-matrix multiplication - dynamic scheduling * Parallel tile symmetric matrix-matrix multiplication - dynamic scheduling
**/ **/
void morse_pzsymm(MORSE_enum side, MORSE_enum uplo, void morse_pzsymm(MORSE_enum side, MORSE_enum uplo,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Hermitian rank-k update - dynamic scheduling * Parallel tile Hermitian rank-k update - dynamic scheduling
**/ **/
void morse_pzsyr2k(MORSE_enum uplo, MORSE_enum trans, void morse_pzsyr2k(MORSE_enum uplo, MORSE_enum trans,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define C(m,n) C, m, n #define C(m,n) C, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile symmetric rank-k update - dynamic scheduling * Parallel tile symmetric rank-k update - dynamic scheduling
**/ **/
void morse_pzsyrk(MORSE_enum uplo, MORSE_enum trans, void morse_pzsyrk(MORSE_enum uplo, MORSE_enum trans,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile Cholesky factorization - dynamic scheduling * Parallel tile Cholesky factorization - dynamic scheduling
**/ **/
void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A, void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m, n) B, m, n #define B(m, n) B, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel copy of a band matrix from full NxN tile storage to band storage (LDABxN). * 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, void morse_pztile2band(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B,
......
...@@ -36,7 +36,7 @@ ...@@ -36,7 +36,7 @@
#define D(k) V1, k, k #define D(k) V1, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling * Parallel tile QR factorization - dynamic scheduling
**/ **/
void morse_pztpgqrt( int L, void morse_pztpgqrt( int L,
......
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define T(m,n) T, m, n #define T(m,n) T, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling * Parallel tile QR factorization - dynamic scheduling
**/ **/
void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T, void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T,
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#define A(m, n) A, m, n #define A(m, n) A, m, n
#define B(m, n) B, m, n #define B(m, n) B, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile matrix-matrix multiplication - dynamic scheduling * Parallel tile matrix-matrix multiplication - dynamic scheduling
**/ **/
void morse_pztradd(MORSE_enum uplo, MORSE_enum trans, void morse_pztradd(MORSE_enum uplo, MORSE_enum trans,
......
...@@ -33,7 +33,7 @@ ...@@ -33,7 +33,7 @@
/***************************************************************************//** /*******************************************************************************
* Parallel tile triangular matrix-matrix multiplication - dynamic scheduling * Parallel tile triangular matrix-matrix multiplication - dynamic scheduling
**/ **/
void morse_pztrmm(MORSE_enum side, MORSE_enum uplo, void morse_pztrmm(MORSE_enum side, MORSE_enum uplo,
......
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
#define A(m,n) A, m, n #define A(m,n) A, m, n
#define B(m,n) B, m, n #define B(m,n) B, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile triangular solve - dynamic scheduling * Parallel tile triangular solve - dynamic scheduling
**/ **/
void morse_pztrsm(MORSE_enum side, MORSE_enum uplo, MORSE_enum trans, MORSE_enum diag, void morse_pztrsm(MORSE_enum side, MORSE_enum uplo, MORSE_enum trans, MORSE_enum diag,
......
...@@ -34,7 +34,7 @@ ...@@ -34,7 +34,7 @@
#define B(m,n) B, m, n #define B(m,n) B, m, n
#define L(m,n) L, 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))]) #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 * 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, void morse_pztrsmpl(MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *L, int *IPIV,
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
#include "control/common.h" #include "control/common.h"
#define A(m,n) A, m, n #define A(m,n) A, m, n
/***************************************************************************//** /*******************************************************************************
* Parallel tile triangular matrix inverse - dynamic scheduling * Parallel tile triangular matrix inverse - dynamic scheduling
**/ **/
void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A, void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
......
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
#define D(k) A, k, k #define D(k) A, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling * 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, void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc_t *D,
......
...@@ -39,7 +39,7 @@ ...@@ -39,7 +39,7 @@
#define D(k) A, k, k #define D(k) A, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel construction of Q using tile V (application to identity) - dynamic scheduling * 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, void morse_pzungqr(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, MORSE_desc_t *D,
......
...@@ -40,7 +40,7 @@ ...@@ -40,7 +40,7 @@
#define D(k) A, k, k #define D(k) A, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel application of Q using tile V - LQ factorization - dynamic scheduling * Parallel application of Q using tile V - LQ factorization - dynamic scheduling
**/ **/
void morse_pzunmlq(MORSE_enum side, MORSE_enum trans, void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
......
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
#define D(m,n) A, (m), (n) #define D(m,n) A, (m), (n)
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel application of Q using tile V - LQ factorization (reduction * Parallel application of Q using tile V - LQ factorization (reduction
* Householder) - dynamic scheduling * Householder) - dynamic scheduling
**/ **/
......
...@@ -40,7 +40,7 @@ ...@@ -40,7 +40,7 @@
#define D(k) A, k, k #define D(k) A, k, k
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel application of Q using tile V - QR factorization - dynamic scheduling * Parallel application of Q using tile V - QR factorization - dynamic scheduling
**/ **/
void morse_pzunmqr(MORSE_enum side, MORSE_enum trans, void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
......
...@@ -41,13 +41,13 @@ ...@@ -41,13 +41,13 @@
#define D(m,n) A, (m), (n) #define D(m,n) A, (m), (n)
#endif #endif
/***************************************************************************//** /*******************************************************************************
* Parallel application of Q using tile V - QR factorization (reduction * Parallel application of Q using tile V - QR factorization (reduction
* Householder) - dynamic scheduling * Householder) - dynamic scheduling
**/ **/
void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans, 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_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_sequence_t *sequence, MORSE_request_t *request )
{ {
MORSE_context_t *morse; MORSE_context_t *morse;
MORSE_option_t options; MORSE_option_t options;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment