summaryrefslogtreecommitdiff
path: root/TESTING/LIN/clavsy.f
diff options
context:
space:
mode:
Diffstat (limited to 'TESTING/LIN/clavsy.f')
-rw-r--r--TESTING/LIN/clavsy.f30
1 files changed, 10 insertions, 20 deletions
diff --git a/TESTING/LIN/clavsy.f b/TESTING/LIN/clavsy.f
index 24096177..ef7011e3 100644
--- a/TESTING/LIN/clavsy.f
+++ b/TESTING/LIN/clavsy.f
@@ -57,51 +57,44 @@
*> UPLO = 'U' or 'u' The matrix is upper triangular.
*> UPLO = 'L' or 'l' The matrix is lower triangular.
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> TRANS - CHARACTER*1
*> On entry, TRANS specifies the operation to be performed as
*> follows:
*> TRANS = 'N' or 'n' x := A*x.
*> TRANS = 'T' or 't' x := A'*x.
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> DIAG - CHARACTER*1
*> On entry, DIAG specifies whether the diagonal blocks are
*> assumed to be unit matrices:
*> DIAG = 'U' or 'u' Diagonal blocks are unit matrices.
*> DIAG = 'N' or 'n' Diagonal blocks are non-unit.
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> N - INTEGER
*> On entry, N specifies the order of the matrix A.
*> N must be at least zero.
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> NRHS - INTEGER
*> On entry, NRHS specifies the number of right hand sides,
*> i.e., the number of vectors x to be multiplied by A.
*> NRHS must be at least zero.
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> A - COMPLEX array, dimension( LDA, N )
*> On entry, A contains a block diagonal matrix and the
*> multipliers of the transformations used to obtain it,
*> stored as a 2-D triangular matrix.
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> LDA - INTEGER
*> On entry, LDA specifies the first dimension of A as declared
*> in the calling ( sub ) program. LDA must be at least
*> max( 1, N ).
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> IPIV - INTEGER array, dimension( N )
*> On entry, IPIV contains the vector of pivot indices as
*> determined by CSYTRF or CHETRF.
@@ -112,20 +105,17 @@
*> with row | IPIV( K ) | and a 2 x 2 pivot block was used.
*> If IPIV( K ) < 0 and UPLO = 'L', then row K+1 was exchanged
*> with row | IPIV( K ) | and a 2 x 2 pivot block was used.
-*> \endverbatim
-*> \verbatim
+*>
*> B - COMPLEX array, dimension( LDB, NRHS )
*> On entry, B contains NRHS vectors of length N.
*> On exit, B is overwritten with the product A * B.
-*> \endverbatim
-*> \verbatim
+*>
*> LDB - INTEGER
*> On entry, LDB contains the leading dimension of B as
*> declared in the calling program. LDB must be at least
*> max( 1, N ).
*> Unchanged on exit.
-*> \endverbatim
-*> \verbatim
+*>
*> INFO - INTEGER
*> INFO is the error flag.
*> On exit, a value of 0 indicates a successful exit.