From 0d9e213c670ab0e68f17d68251412d53250108e1 Mon Sep 17 00:00:00 2001
From: julie <julielangou@users.noreply.github.com>
Date: Mon, 31 Oct 2011 22:21:11 +0000
Subject: Correct Warning detected during Doxygen Generation. Now each routine
 should have the correct list of arguments. This allowed to detect and fix
 problems in parameter description of many routines.

---
 SRC/ctprfb.f | 91 +++++++++++++++++++++++++++++++++++++++++-------------------
 1 file changed, 63 insertions(+), 28 deletions(-)

(limited to 'SRC/ctprfb.f')

diff --git a/SRC/ctprfb.f b/SRC/ctprfb.f
index 33c0d656..e71d821e 100644
--- a/SRC/ctprfb.f
+++ b/SRC/ctprfb.f
@@ -97,76 +97,111 @@
 *>          K >= 0.
 *> \endverbatim
 *>
-*
-*  Authors
-*  =======
-*
-*> \author Univ. of Tennessee 
-*> \author Univ. of California Berkeley 
-*> \author Univ. of Colorado Denver 
-*> \author NAG Ltd. 
-*
-*> \date November 2011
-*
-*> \ingroup complexOTHERauxiliary
-*
-*
-*  Further Details
-*  ===============
-*>\details \b Further \b Details
+*> \param[in] L
 *> \verbatim
-*          K >= L >= 0.  See Further Details.
+*>          L is INTEGER
+*>          The order of the trapezoidal part of V.  
+*>          K >= L >= 0.  See Further Details.
+*> \endverbatim
 *>
-*>  V       (input) COMPLEX array, dimension
+*> \param[in] V
+*> \verbatim
+*>          V is COMPLEX array, dimension
 *>                                (LDV,K) if STOREV = 'C'
 *>                                (LDV,M) if STOREV = 'R' and SIDE = 'L'
 *>                                (LDV,N) if STOREV = 'R' and SIDE = 'R'
 *>          The pentagonal matrix V, which contains the elementary reflectors
 *>          H(1), H(2), ..., H(K).  See Further Details.
+*> \endverbatim
 *>
-*>  LDV     (input) INTEGER
+*> \param[in] LDV
+*> \verbatim
+*>          LDV is INTEGER
 *>          The leading dimension of the array V.
 *>          If STOREV = 'C' and SIDE = 'L', LDV >= max(1,M);
 *>          if STOREV = 'C' and SIDE = 'R', LDV >= max(1,N);
 *>          if STOREV = 'R', LDV >= K.
+*> \endverbatim
 *>
-*>  T       (input) COMPLEX array, dimension (LDT,K)
+*> \param[in] T
+*> \verbatim
+*>          T is COMPLEX array, dimension (LDT,K)
 *>          The triangular K-by-K matrix T in the representation of the
 *>          block reflector.  
+*> \endverbatim
 *>
-*>  LDT     (input) INTEGER
+*> \param[in] LDT
+*> \verbatim
+*>          LDT is INTEGER
 *>          The leading dimension of the array T. 
 *>          LDT >= K.
+*> \endverbatim
 *>
-*>  A       (input/output) COMPLEX array, dimension 
+*> \param[in,out] A
+*> \verbatim
+*>          A is COMPLEX array, dimension
 *>          (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R'
 *>          On entry, the K-by-N or M-by-K matrix A.
 *>          On exit, A is overwritten by the corresponding block of 
 *>          H*C or H**H*C or C*H or C*H**H.  See Futher Details.
+*> \endverbatim
 *>
-*>  LDA     (input) INTEGER
+*> \param[in] LDA
+*> \verbatim
+*>          LDA is INTEGER
 *>          The leading dimension of the array A. 
 *>          If SIDE = 'L', LDC >= max(1,K);
 *>          If SIDE = 'R', LDC >= max(1,M). 
+*> \endverbatim
 *>
-*>  B       (input/output) COMPLEX array, dimension (LDB,N)
+*> \param[in,out] B
+*> \verbatim
+*>          B is COMPLEX array, dimension (LDB,N)
 *>          On entry, the M-by-N matrix B.
 *>          On exit, B is overwritten by the corresponding block of
 *>          H*C or H**H*C or C*H or C*H**H.  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
 *>
-*>  WORK    (workspace) COMPLEX array, dimension 
+*> \param[out] WORK
+*> \verbatim
+*>          WORK is COMPLEX array, dimension
 *>          (LDWORK,N) if SIDE = 'L',
 *>          (LDWORK,K) if SIDE = 'R'.
+*> \endverbatim
 *>
-*>  LDWORK  (input) INTEGER
+*> \param[in] LDWORK
+*> \verbatim
+*>          LDWORK is INTEGER
 *>          The leading dimension of the array WORK.
 *>          If SIDE = 'L', LDWORK >= K; 
 *>          if SIDE = 'R', LDWORK >= M.
+*> \endverbatim
 *>
+*
+*  Authors
+*  =======
+*
+*> \author Univ. of Tennessee 
+*> \author Univ. of California Berkeley 
+*> \author Univ. of Colorado Denver 
+*> \author NAG Ltd. 
+*
+*> \date November 2011
+*
+*> \ingroup complexOTHERauxiliary
+*
+*
+*  Further Details
+*  ===============
+*>\details \b Further \b Details
+*> \verbatim
 *>
 *>  The matrix C is a composite matrix formed from blocks A and B.
 *>  The block B is of size M-by-N; if SIDE = 'R', A is of size M-by-K, 
-- 
cgit v1.2.3