1 files changed, 51 insertions, 25 deletions
diff --git a/SRC/ctpqrt2.f b/SRC/ctpqrt2.f
index 6eb3cae3..b33fb41b 100644
--- a/SRC/ctpqrt2.f
+++ b/SRC/ctpqrt2.f
@@ -55,53 +55,79 @@
 *>          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 complexOTHERcomputational
-*
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \param[in] L
 *> \verbatim
-*          MIN(M,N) >= L >= 0.  See Further Details.
+*>          L is INTEGER
+*>          The number of rows of the upper trapezoidal part of B.  
+*>          MIN(M,N) >= L >= 0.  See Further Details.
+*> \endverbatim
 *>
-*>  A       (input/output) COMPLEX array, dimension (LDA,N)
+*> \param[in,out] A
+*> \verbatim
+*>          A is COMPLEX array, dimension (LDA,N)
 *>          On entry, the upper triangular N-by-N matrix A.
 *>          On exit, the elements on and above the diagonal of the array
 *>          contain the upper triangular matrix R.
+*> \endverbatim
 *>
-*>  LDA     (input) INTEGER
+*> \param[in] LDA
+*> \verbatim
+*>          LDA is INTEGER
 *>          The leading dimension of the array A.  LDA >= max(1,N).
+*> \endverbatim
 *>
-*>  B       (input/output) COMPLEX array, dimension (LDB,N)
+*> \param[in,out] B
+*> \verbatim
+*>          B is COMPLEX array, dimension (LDB,N)
 *>          On entry, the pentagonal M-by-N matrix B.  The first M-L rows 
 *>          are rectangular, and the last L rows are upper trapezoidal.
 *>          On exit, B contains the pentagonal matrix V.  See Further Details.
+*> \endverbatim
 *>
-*>  LDB     (input) INTEGER
+*> \param[in] LDB
+*> \verbatim
+*>          LDB is INTEGER
 *>          The leading dimension of the array B.  LDB >= max(1,M).
+*> \endverbatim
 *>
-*>  T       (output) COMPLEX array, dimension (LDT,N)
+*> \param[out] T
+*> \verbatim
+*>          T is COMPLEX array, dimension (LDT,N)
 *>          The N-by-N upper triangular factor T of the block reflector.
 *>          See Further Details.
+*> \endverbatim
 *>
-*>  LDT     (input) INTEGER
+*> \param[in] LDT
+*> \verbatim
+*>          LDT is INTEGER
 *>          The leading dimension of the array T.  LDT >= max(1,N)
+*> \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 complexOTHERcomputational
+*
+*
+*  Further Details
+*  ===============
+*>\details \b Further \b Details
+*> \verbatim
 *>
 *>  The input matrix C is a (N+M)-by-N matrix  
 *>