1 files changed, 59 insertions, 28 deletions
diff --git a/SRC/stpqrt.f b/SRC/stpqrt.f
index 0c08ed1f..ec2e0a92 100644
--- a/SRC/stpqrt.f
+++ b/SRC/stpqrt.f
@@ -57,59 +57,90 @@
 *>          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 realOTHERcomputational
-*
-*
-*  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
 *>
-*>  NB      (input) INTEGER
+*> \param[in] NB
+*> \verbatim
+*>          NB is INTEGER
 *>          The block size to be used in the blocked QR.  N >= NB >= 1.
+*> \endverbatim
 *>
-*>  A       (input/output) REAL array, dimension (LDA,N)
+*> \param[in,out] A
+*> \verbatim
+*>          A is REAL 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) REAL array, dimension (LDB,N)
+*> \param[in,out] B
+*> \verbatim
+*>          B is REAL 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) REAL array, dimension (LDT,N)
+*> \param[out] T
+*> \verbatim
+*>          T is REAL array, dimension (LDT,N)
 *>          The upper triangular block reflectors stored in compact form
 *>          as a sequence of upper triangular blocks.  See Further Details.
+*> \endverbatim
 *>          
-*>  LDT     (input) INTEGER
+*> \param[in] LDT
+*> \verbatim
+*>          LDT is INTEGER
 *>          The leading dimension of the array T.  LDT >= NB.
+*> \endverbatim
 *>
-*>  WORK    (workspace) REAL array, dimension (NB*N)
+*> \param[out] WORK
+*> \verbatim
+*>          WORK is REAL array, dimension (NB*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 realOTHERcomputational
+*
+*
+*  Further Details
+*  ===============
+*>\details \b Further \b Details
+*> \verbatim
 *>  The input matrix C is a (N+M)-by-N matrix  
 *>
 *>               C = [ A ]