1 files changed, 49 insertions, 24 deletions
diff --git a/SRC/cgelqf.f b/SRC/cgelqf.f
index 8aa54eba..e6addc75 100644
--- a/SRC/cgelqf.f
+++ b/SRC/cgelqf.f
@@ -51,50 +51,75 @@
 *>          The number of columns of the matrix A.  N >= 0.
 *> \endverbatim
 *>
-*
-*  Authors
-*  =======
-*
-*> \author Univ. of Tennessee 
-*> \author Univ. of California Berkeley 
-*> \author Univ. of Colorado Denver 
-*> \author NAG Ltd. 
-*
-*> \date November 2011
-*
-*> \ingroup complexGEcomputational
-*
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \param[in,out] A
 *> \verbatim
-*          product of elementary reflectors (see Further Details).
+*>          A is COMPLEX array, dimension (LDA,N)
+*>          On entry, the M-by-N matrix A.
+*>          On exit, the elements on and below the diagonal of the array
+*>          contain the m-by-min(m,n) lower trapezoidal matrix L (L is
+*>          lower triangular if m <= n); the elements above the diagonal,
+*>          with the array TAU, represent the unitary 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 >= max(1,M).
+*> \endverbatim
 *>
-*>  TAU     (output) COMPLEX array, dimension (min(M,N))
+*> \param[out] TAU
+*> \verbatim
+*>          TAU is COMPLEX array, dimension (min(M,N))
 *>          The scalar factors of the elementary reflectors (see Further
 *>          Details).
+*> \endverbatim
 *>
-*>  WORK    (workspace/output) COMPLEX array, dimension (MAX(1,LWORK))
+*> \param[out] WORK
+*> \verbatim
+*>          WORK is COMPLEX array, dimension (MAX(1,LWORK))
 *>          On exit, if INFO = 0, WORK(1) returns the optimal LWORK.
+*> \endverbatim
 *>
-*>  LWORK   (input) INTEGER
+*> \param[in] LWORK
+*> \verbatim
+*>          LWORK is INTEGER
 *>          The dimension of the array WORK.  LWORK >= max(1,M).
 *>          For optimum performance LWORK >= M*NB, where NB is the
 *>          optimal blocksize.
-*>
+*> \endverbatim
+*> \verbatim
 *>          If LWORK = -1, then a workspace query is assumed; the routine
 *>          only calculates the optimal size of the WORK array, returns
 *>          this value as the first entry of the WORK array, and no error
 *>          message related to LWORK is issued by XERBLA.
+*> \endverbatim
 *>
-*>  INFO    (output) INTEGER
+*> \param[out] INFO
+*> \verbatim
+*>          INFO is INTEGER
 *>          = 0:  successful exit
 *>          < 0:  if INFO = -i, the i-th argument had an illegal value
+*> \endverbatim
 *>
+*
+*  Authors
+*  =======
+*
+*> \author Univ. of Tennessee 
+*> \author Univ. of California Berkeley 
+*> \author Univ. of Colorado Denver 
+*> \author NAG Ltd. 
+*
+*> \date November 2011
+*
+*> \ingroup complexGEcomputational
+*
+*
+*  Further Details
+*  ===============
+*>\details \b Further \b Details
+*> \verbatim
 *>
 *>  The matrix Q is represented as a product of elementary reflectors
 *>