diff options
Diffstat (limited to 'SRC/slartg.f')
| -rw-r--r-- | SRC/slartg.f | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/SRC/slartg.f b/SRC/slartg.f index f024f919..ebe08504 100644 --- a/SRC/slartg.f +++ b/SRC/slartg.f @@ -15,8 +15,8 @@ *> [TXT]</a> *> \endhtmlonly * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE SLARTG( F, G, CS, SN, R ) * @@ -24,11 +24,11 @@ * REAL CS, F, G, R, SN * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> SLARTG generate a plane rotation so that *> @@ -44,11 +44,10 @@ *> there are zeros on the diagonal). *> *> If F exceeds G in magnitude, CS will be positive. -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] F *> \verbatim @@ -82,10 +81,9 @@ *> This version has a few statements commented out for thread safety *> (machine parameters are computed on each entry). 10 feb 03, SJH. *> \endverbatim -*> * -* Authors -* ======= +* Authors: +* ======== * *> \author Univ. of Tennessee *> \author Univ. of California Berkeley |