1 files changed, 60 insertions, 23 deletions
diff --git a/SRC/slatrd.f b/SRC/slatrd.f
index da02ec77..fc7e45a3 100644
--- a/SRC/slatrd.f
+++ b/SRC/slatrd.f
@@ -70,47 +70,84 @@
 *>          The number of rows and columns to be reduced.
 *> \endverbatim
 *>
-*
-*  Authors
-*  =======
-*
-*> \author Univ. of Tennessee 
-*> \author Univ. of California Berkeley 
-*> \author Univ. of Colorado Denver 
-*> \author NAG Ltd. 
-*
-*> \date November 2011
-*
-*> \ingroup realOTHERauxiliary
-*
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \param[in,out] A
 *> \verbatim
-*          See Further Details.
+*>          A is REAL array, dimension (LDA,N)
+*>          On entry, the symmetric matrix A.  If UPLO = 'U', the leading
+*>          n-by-n upper triangular part of A contains the upper
+*>          triangular part of the matrix A, and the strictly lower
+*>          triangular part of A is not referenced.  If UPLO = 'L', the
+*>          leading n-by-n lower triangular part of A contains the lower
+*>          triangular part of the matrix A, and the strictly upper
+*>          triangular part of A is not referenced.
+*>          On exit:
+*>          if UPLO = 'U', the last NB columns have been reduced to
+*>            tridiagonal form, with the diagonal elements overwriting
+*>            the diagonal elements of A; the elements above the diagonal
+*>            with the array TAU, represent the orthogonal matrix Q as a
+*>            product of elementary reflectors;
+*>          if UPLO = 'L', the first NB columns have been reduced to
+*>            tridiagonal form, with the diagonal elements overwriting
+*>            the diagonal elements of A; the elements below the diagonal
+*>            with the array TAU, represent the  orthogonal matrix Q as a
+*>            product of elementary reflectors.
+*>          See Further Details.
+*> \endverbatim
 *>
-*>  LDA     (input) INTEGER
+*> \param[in] LDA
+*> \verbatim
+*>          LDA is INTEGER
 *>          The leading dimension of the array A.  LDA >= (1,N).
+*> \endverbatim
 *>
-*>  E       (output) REAL array, dimension (N-1)
+*> \param[out] E
+*> \verbatim
+*>          E is REAL array, dimension (N-1)
 *>          If UPLO = 'U', E(n-nb:n-1) contains the superdiagonal
 *>          elements of the last NB columns of the reduced matrix;
 *>          if UPLO = 'L', E(1:nb) contains the subdiagonal elements of
 *>          the first NB columns of the reduced matrix.
+*> \endverbatim
 *>
-*>  TAU     (output) REAL array, dimension (N-1)
+*> \param[out] TAU
+*> \verbatim
+*>          TAU is REAL array, dimension (N-1)
 *>          The scalar factors of the elementary reflectors, stored in
 *>          TAU(n-nb:n-1) if UPLO = 'U', and in TAU(1:nb) if UPLO = 'L'.
 *>          See Further Details.
+*> \endverbatim
 *>
-*>  W       (output) REAL array, dimension (LDW,NB)
+*> \param[out] W
+*> \verbatim
+*>          W is REAL array, dimension (LDW,NB)
 *>          The n-by-nb matrix W required to update the unreduced part
 *>          of A.
+*> \endverbatim
 *>
-*>  LDW     (input) INTEGER
+*> \param[in] LDW
+*> \verbatim
+*>          LDW is INTEGER
 *>          The leading dimension of the array W. LDW >= max(1,N).
+*> \endverbatim
 *>
+*
+*  Authors
+*  =======
+*
+*> \author Univ. of Tennessee 
+*> \author Univ. of California Berkeley 
+*> \author Univ. of Colorado Denver 
+*> \author NAG Ltd. 
+*
+*> \date November 2011
+*
+*> \ingroup doubleOTHERauxiliary
+*
+*
+*  Further Details
+*  ===============
+*>\details \b Further \b Details
+*> \verbatim
 *>
 *>  If UPLO = 'U', the matrix Q is represented as a product of elementary
 *>  reflectors