diff options
Diffstat (limited to 'SRC/clalsa.f')
-rw-r--r-- | SRC/clalsa.f | 40 |
1 files changed, 16 insertions, 24 deletions
diff --git a/SRC/clalsa.f b/SRC/clalsa.f index 6065fe14..e76ef4f1 100644 --- a/SRC/clalsa.f +++ b/SRC/clalsa.f @@ -15,8 +15,8 @@ *> [TXT]</a> *> \endhtmlonly * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE CLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, U, * LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, @@ -36,11 +36,11 @@ * COMPLEX B( LDB, * ), BX( LDBX, * ) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> CLALSA is an itermediate step in solving the least squares problem *> by computing the SVD of the coefficient matrix in compact form (The @@ -52,11 +52,10 @@ *> ICOMPQ = 1, CLALSA applies the right singular vector matrix to the *> right hand side. The singular vector matrices were generated in *> compact form by CLALSA. -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] ICOMPQ *> \verbatim @@ -243,10 +242,9 @@ *> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. *> \endverbatim -*> * -* Authors -* ======= +* Authors: +* ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley @@ -257,19 +255,13 @@ * *> \ingroup complexOTHERcomputational * -* -* Further Details -* =============== -*>\details \b Further \b Details -*> \verbatim +*> \par Contributors: +* ================== *> -*> Based on contributions by *> Ming Gu and Ren-Cang Li, Computer Science Division, University of -*> California at Berkeley, USA -*> Osni Marques, LBNL/NERSC, USA -*> -*> \endverbatim -*> +*> California at Berkeley, USA \n +*> Osni Marques, LBNL/NERSC, USA \n +* * ===================================================================== SUBROUTINE CLALSA( ICOMPQ, SMLSIZ, N, NRHS, B, LDB, BX, LDBX, U, $ LDU, VT, K, DIFL, DIFR, Z, POLES, GIVPTR, |