1 files changed, 47 insertions, 24 deletions
diff --git a/SRC/zggqrf.f b/SRC/zggqrf.f
index ee653411..2eb509bb 100644
--- a/SRC/zggqrf.f
+++ b/SRC/zggqrf.f
@@ -102,27 +102,16 @@
 *>          The leading dimension of the array A. LDA >= 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 complex16OTHERcomputational
-*
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \param[out] TAUA
 *> \verbatim
-*          represent the unitary matrix Q (see Further Details).
+*>          TAUA is COMPLEX*16 array, dimension (min(N,M))
+*>          The scalar factors of the elementary reflectors which
+*>          represent the unitary matrix Q (see Further Details).
+*> \endverbatim
 *>
-*>  B       (input/output) COMPLEX*16 array, dimension (LDB,P)
+*> \param[in,out] B
+*> \verbatim
+*>          B is COMPLEX*16 array, dimension (LDB,P)
 *>          On entry, the N-by-P matrix B.
 *>          On exit, if N <= P, the upper triangle of the subarray
 *>          B(1:N,P-N+1:P) contains the N-by-N upper triangular matrix T;
@@ -131,18 +120,30 @@
 *>          elements, with the array TAUB, represent the unitary
 *>          matrix Z as a product of elementary reflectors (see Further
 *>          Details).
+*> \endverbatim
 *>
-*>  LDB     (input) INTEGER
+*> \param[in] LDB
+*> \verbatim
+*>          LDB is INTEGER
 *>          The leading dimension of the array B. LDB >= max(1,N).
+*> \endverbatim
 *>
-*>  TAUB    (output) COMPLEX*16 array, dimension (min(N,P))
+*> \param[out] TAUB
+*> \verbatim
+*>          TAUB is COMPLEX*16 array, dimension (min(N,P))
 *>          The scalar factors of the elementary reflectors which
 *>          represent the unitary matrix Z (see Further Details).
+*> \endverbatim
 *>
-*>  WORK    (workspace/output) COMPLEX*16 array, dimension (MAX(1,LWORK))
+*> \param[out] WORK
+*> \verbatim
+*>          WORK is COMPLEX*16 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,N,M,P).
 *>          For optimum performance LWORK >= max(N,M,P)*max(NB1,NB2,NB3),
 *>          where NB1 is the optimal blocksize for the QR factorization
@@ -154,11 +155,33 @@
 *>          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 complex16OTHERcomputational
+*
+*
+*  Further Details
+*  ===============
+*>\details \b Further \b Details
+*> \verbatim
 *>
 *>  The matrix Q is represented as a product of elementary reflectors
 *>