diff options
Diffstat (limited to 'SRC/dlaed9.f')
-rw-r--r-- | SRC/dlaed9.f | 40 |
1 files changed, 16 insertions, 24 deletions
diff --git a/SRC/dlaed9.f b/SRC/dlaed9.f index deebc667..491791ac 100644 --- a/SRC/dlaed9.f +++ b/SRC/dlaed9.f @@ -15,8 +15,8 @@ *> [TXT]</a> *> \endhtmlonly * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, * S, LDS, INFO ) @@ -30,21 +30,20 @@ * $ W( * ) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> DLAED9 finds the roots of the secular equation, as defined by the *> values in D, Z, and RHO, between KSTART and KSTOP. It makes the *> appropriate calls to DLAED4 and then stores the new matrix of *> eigenvectors for use in calculating the next level of Z vectors. -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] K *> \verbatim @@ -134,10 +133,9 @@ *> < 0: if INFO = -i, the i-th argument had an illegal value. *> > 0: if INFO = 1, an eigenvalue did not converge *> \endverbatim -*> * -* Authors -* ======= +* Authors: +* ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley @@ -148,18 +146,12 @@ * *> \ingroup auxOTHERcomputational * -* -* Further Details -* =============== -*>\details \b Further \b Details -*> \verbatim -*> -*> Based on contributions by -*> Jeff Rutter, Computer Science Division, University of California -*> at Berkeley, USA -*> -*> \endverbatim +*> \par Contributors: +* ================== *> +*> Jeff Rutter, Computer Science Division, University of California +*> at Berkeley, USA +* * ===================================================================== SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) |