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

Cleanup comments

parent 8c7df755
......@@ -30,7 +30,7 @@
#include "control/common.h"
#define A(m, n) A, m, n
/***************************************************************************//**
/*******************************************************************************
* Parallel tile matrix generation
*
*******************************************************************************
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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;
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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.
**/
......
......@@ -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.
**/
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -36,7 +36,7 @@
#define D(k) V1, k, k
#endif
/***************************************************************************//**
/*******************************************************************************
* Parallel tile QR factorization - dynamic scheduling
**/
void morse_pztpgqrt( int L,
......
......@@ -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,
......
......@@ -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,
......
......@@ -33,7 +33,7 @@
/***************************************************************************//**
/*******************************************************************************
* Parallel tile triangular matrix-matrix multiplication - dynamic scheduling
**/
void morse_pztrmm(MORSE_enum side, MORSE_enum uplo,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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,
......
......@@ -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
**/
......
......@@ -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,
......
......@@ -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,
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_sequence_t *sequence, MORSE_request_t *request )
{
MORSE_context_t *morse;
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