diff options
Diffstat (limited to 'SRC/dorgtr.f')
-rw-r--r-- | SRC/dorgtr.f | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/SRC/dorgtr.f b/SRC/dorgtr.f index dff9bf44..03d416ad 100644 --- a/SRC/dorgtr.f +++ b/SRC/dorgtr.f @@ -15,8 +15,8 @@ *> [TXT]</a> *> \endhtmlonly * -* Definition -* ========== +* Definition: +* =========== * * SUBROUTINE DORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * @@ -28,11 +28,11 @@ * DOUBLE PRECISION A( LDA, * ), TAU( * ), WORK( * ) * .. * -* Purpose -* ======= * -*>\details \b Purpose: -*>\verbatim +*> \par Purpose: +* ============= +*> +*> \verbatim *> *> DORGTR generates a real orthogonal matrix Q which is defined as the *> product of n-1 elementary reflectors of order N, as returned by @@ -41,11 +41,10 @@ *> if UPLO = 'U', Q = H(n-1) . . . H(2) H(1), *> *> if UPLO = 'L', Q = H(1) H(2) . . . H(n-1). -*> -*>\endverbatim +*> \endverbatim * -* Arguments -* ========= +* Arguments: +* ========== * *> \param[in] UPLO *> \verbatim @@ -108,10 +107,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 |