diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-10-31 22:21:11 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-10-31 22:21:11 +0000 |
| commit | 0d9e213c670ab0e68f17d68251412d53250108e1 (patch) | |
| tree | 2bcab1c08b84e327b9be345385e2c31e8a26905a /BLAS | |
| parent | 82901cd3e7bb75c73fc3a17fe7bf922289337f97 (diff) | |
| download | lapack-0d9e213c670ab0e68f17d68251412d53250108e1.tar.gz lapack-0d9e213c670ab0e68f17d68251412d53250108e1.tar.bz2 lapack-0d9e213c670ab0e68f17d68251412d53250108e1.zip | |
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.
Diffstat (limited to 'BLAS')
92 files changed, 500 insertions, 954 deletions
diff --git a/BLAS/SRC/cgbmv.f b/BLAS/SRC/cgbmv.f index aa8d9d8c..01690bb7 100644 --- a/BLAS/SRC/cgbmv.f +++ b/BLAS/SRC/cgbmv.f @@ -44,14 +44,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**H*x + beta*y. *> \endverbatim *> @@ -103,8 +100,7 @@ *> are not referenced. *> The following program segment will transfer a band matrix *> from conventional full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> K = KU + 1 - J *> DO 10, I = MAX( 1, J - KU ), MIN( M, J + KL ) diff --git a/BLAS/SRC/cgemm.f b/BLAS/SRC/cgemm.f index daf642d0..b1ba4c58 100644 --- a/BLAS/SRC/cgemm.f +++ b/BLAS/SRC/cgemm.f @@ -46,14 +46,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n', op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't', op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c', op( A ) = A**H. *> \endverbatim *> @@ -62,14 +59,11 @@ *> TRANSB is CHARACTER*1 *> On entry, TRANSB specifies the form of op( B ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'N' or 'n', op( B ) = B. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'T' or 't', op( B ) = B**T. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'C' or 'c', op( B ) = B**H. *> \endverbatim *> diff --git a/BLAS/SRC/cgemv.f b/BLAS/SRC/cgemv.f index a341b454..db0564c1 100644 --- a/BLAS/SRC/cgemv.f +++ b/BLAS/SRC/cgemv.f @@ -44,14 +44,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**H*x + beta*y. *> \endverbatim *> diff --git a/BLAS/SRC/chbmv.f b/BLAS/SRC/chbmv.f index bd3b69c5..bafb5f12 100644 --- a/BLAS/SRC/chbmv.f +++ b/BLAS/SRC/chbmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the band matrix A is being supplied as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> being supplied. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> being supplied. *> \endverbatim @@ -86,16 +84,14 @@ *> The following program segment will transfer the upper *> triangular part of a hermitian band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the hermitian matrix, supplied column by @@ -106,16 +102,14 @@ *> The following program segment will transfer the lower *> triangular part of a hermitian band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that the imaginary parts of the diagonal elements need *> not be set and are assumed to be zero. *> \endverbatim diff --git a/BLAS/SRC/chemm.f b/BLAS/SRC/chemm.f index 9947cb28..2944c649 100644 --- a/BLAS/SRC/chemm.f +++ b/BLAS/SRC/chemm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether the hermitian matrix A *> appears on the left or right in the operation as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' C := alpha*A*B + beta*C, -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' C := alpha*B*A + beta*C, *> \endverbatim *> @@ -60,12 +58,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the hermitian matrix A is to be *> referenced as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of the *> hermitian matrix is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of the *> hermitian matrix is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/chemv.f b/BLAS/SRC/chemv.f index 85de0631..f93e0c4f 100644 --- a/BLAS/SRC/chemv.f +++ b/BLAS/SRC/chemv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/cher.f b/BLAS/SRC/cher.f index b7ccc0b6..1e74428c 100644 --- a/BLAS/SRC/cher.f +++ b/BLAS/SRC/cher.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim @@ -65,8 +63,10 @@ *> ALPHA is REAL *> On entry, ALPHA specifies the scalar alpha. *> \endverbatim +*> +*> \param[in] X *> \verbatim -*> X COMPLEX array of dimension at least +*> X is COMPLEX array of dimension at least *> ( 1 + ( n - 1 )*abs( INCX ) ). *> Before entry, the incremented array X must contain the n *> element vector x. diff --git a/BLAS/SRC/cher2.f b/BLAS/SRC/cher2.f index ee6e3a44..9324e3af 100644 --- a/BLAS/SRC/cher2.f +++ b/BLAS/SRC/cher2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim @@ -65,8 +63,10 @@ *> ALPHA is COMPLEX *> On entry, ALPHA specifies the scalar alpha. *> \endverbatim +*> +*> \param[in] X *> \verbatim -*> X COMPLEX array of dimension at least +*> X is COMPLEX array of dimension at least *> ( 1 + ( n - 1 )*abs( INCX ) ). *> Before entry, the incremented array X must contain the n *> element vector x. @@ -78,8 +78,10 @@ *> On entry, INCX specifies the increment for the elements of *> X. INCX must not be zero. *> \endverbatim +*> +*> \param[in] Y *> \verbatim -*> Y COMPLEX array of dimension at least +*> Y is COMPLEX array of dimension at least *> ( 1 + ( n - 1 )*abs( INCY ) ). *> Before entry, the incremented array Y must contain the n *> element vector y. diff --git a/BLAS/SRC/cher2k.f b/BLAS/SRC/cher2k.f index 3a386fc8..9ba1295d 100644 --- a/BLAS/SRC/cher2k.f +++ b/BLAS/SRC/cher2k.f @@ -49,12 +49,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -64,13 +62,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*B**H + *> conjg( alpha )*B*A**H + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**H*B + *> conjg( alpha )*B**H*A + *> beta*C. diff --git a/BLAS/SRC/cherk.f b/BLAS/SRC/cherk.f index 66913b6e..addbefb4 100644 --- a/BLAS/SRC/cherk.f +++ b/BLAS/SRC/cherk.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,11 +61,9 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*A**H + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**H*A + beta*C. *> \endverbatim *> diff --git a/BLAS/SRC/chpmv.f b/BLAS/SRC/chpmv.f index 857293aa..8128ca6f 100644 --- a/BLAS/SRC/chpmv.f +++ b/BLAS/SRC/chpmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/chpr.f b/BLAS/SRC/chpr.f index 1cdcf62f..3101ccdc 100644 --- a/BLAS/SRC/chpr.f +++ b/BLAS/SRC/chpr.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/chpr2.f b/BLAS/SRC/chpr2.f index 2a44bb95..d3242110 100644 --- a/BLAS/SRC/chpr2.f +++ b/BLAS/SRC/chpr2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim @@ -80,8 +78,10 @@ *> On entry, INCX specifies the increment for the elements of *> X. INCX must not be zero. *> \endverbatim +*> +*> \param[in] Y *> \verbatim -*> Y COMPLEX array of dimension at least +*> Y is COMPLEX array of dimension at least *> ( 1 + ( n - 1 )*abs( INCY ) ). *> Before entry, the incremented array Y must contain the n *> element vector y. diff --git a/BLAS/SRC/csymm.f b/BLAS/SRC/csymm.f index 326dcf0d..f229c489 100644 --- a/BLAS/SRC/csymm.f +++ b/BLAS/SRC/csymm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether the symmetric matrix A *> appears on the left or right in the operation as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' C := alpha*A*B + beta*C, -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' C := alpha*B*A + beta*C, *> \endverbatim *> @@ -60,12 +58,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the symmetric matrix A is to be *> referenced as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of the *> symmetric matrix is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of the *> symmetric matrix is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/csyr2k.f b/BLAS/SRC/csyr2k.f index 0b424b45..d37e6431 100644 --- a/BLAS/SRC/csyr2k.f +++ b/BLAS/SRC/csyr2k.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,12 +61,10 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*B**T + alpha*B*A**T + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*B + alpha*B**T*A + *> beta*C. *> \endverbatim @@ -94,8 +90,10 @@ *> ALPHA is COMPLEX *> On entry, ALPHA specifies the scalar alpha. *> \endverbatim +*> +*> \param[in] A *> \verbatim -*> A COMPLEX array of DIMENSION ( LDA, ka ), where ka is +*> A is COMPLEX array of DIMENSION ( LDA, ka ), where ka is *> k when TRANS = 'N' or 'n', and is n otherwise. *> Before entry with TRANS = 'N' or 'n', the leading n by k *> part of the array A must contain the matrix A, otherwise diff --git a/BLAS/SRC/csyrk.f b/BLAS/SRC/csyrk.f index be0a0b93..744e7f33 100644 --- a/BLAS/SRC/csyrk.f +++ b/BLAS/SRC/csyrk.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,11 +61,9 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*A**T + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*A + beta*C. *> \endverbatim *> diff --git a/BLAS/SRC/ctbmv.f b/BLAS/SRC/ctbmv.f index 1a7820e2..18214c21 100644 --- a/BLAS/SRC/ctbmv.f +++ b/BLAS/SRC/ctbmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**H*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -109,16 +102,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -129,16 +120,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/ctbsv.f b/BLAS/SRC/ctbsv.f index f7eb02c5..8a70301d 100644 --- a/BLAS/SRC/ctbsv.f +++ b/BLAS/SRC/ctbsv.f @@ -45,11 +45,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -58,14 +56,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**H*x = b. *> \endverbatim *> @@ -74,11 +69,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -113,16 +106,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -133,16 +124,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/ctpmv.f b/BLAS/SRC/ctpmv.f index d20c624f..ad6e9b34 100644 --- a/BLAS/SRC/ctpmv.f +++ b/BLAS/SRC/ctpmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**H*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ctpsv.f b/BLAS/SRC/ctpsv.f index 5fba7a90..fd2d0d1d 100644 --- a/BLAS/SRC/ctpsv.f +++ b/BLAS/SRC/ctpsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**H*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ctrmm.f b/BLAS/SRC/ctrmm.f index 8d95a5e7..28a6d7d3 100644 --- a/BLAS/SRC/ctrmm.f +++ b/BLAS/SRC/ctrmm.f @@ -44,11 +44,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) multiplies B from *> the left or right as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' B := alpha*op( A )*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' B := alpha*B*op( A ). *> \endverbatim *> @@ -57,11 +55,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -70,14 +66,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**H. *> \endverbatim *> @@ -86,11 +79,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ctrmv.f b/BLAS/SRC/ctrmv.f index f432c96f..734bcd0b 100644 --- a/BLAS/SRC/ctrmv.f +++ b/BLAS/SRC/ctrmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**H*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ctrsm.f b/BLAS/SRC/ctrsm.f index 3fd4635e..93823f02 100644 --- a/BLAS/SRC/ctrsm.f +++ b/BLAS/SRC/ctrsm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) appears on the left *> or right of X as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' op( A )*X = alpha*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' X*op( A ) = alpha*B. *> \endverbatim *> @@ -59,11 +57,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -72,14 +68,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**H. *> \endverbatim *> @@ -88,11 +81,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ctrsv.f b/BLAS/SRC/ctrsv.f index 52fdb37b..05e7c4e9 100644 --- a/BLAS/SRC/ctrsv.f +++ b/BLAS/SRC/ctrsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**H*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/dgbmv.f b/BLAS/SRC/dgbmv.f index 92dacb42..198b0ab7 100644 --- a/BLAS/SRC/dgbmv.f +++ b/BLAS/SRC/dgbmv.f @@ -42,14 +42,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y. *> \endverbatim *> @@ -101,8 +98,7 @@ *> are not referenced. *> The following program segment will transfer a band matrix *> from conventional full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> K = KU + 1 - J *> DO 10, I = MAX( 1, J - KU ), MIN( M, J + KL ) diff --git a/BLAS/SRC/dgemm.f b/BLAS/SRC/dgemm.f index 64737822..e8aa6a4b 100644 --- a/BLAS/SRC/dgemm.f +++ b/BLAS/SRC/dgemm.f @@ -46,14 +46,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n', op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't', op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c', op( A ) = A**T. *> \endverbatim *> @@ -62,14 +59,11 @@ *> TRANSB is CHARACTER*1 *> On entry, TRANSB specifies the form of op( B ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'N' or 'n', op( B ) = B. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'T' or 't', op( B ) = B**T. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'C' or 'c', op( B ) = B**T. *> \endverbatim *> diff --git a/BLAS/SRC/dgemv.f b/BLAS/SRC/dgemv.f index c428737a..ef42e93f 100644 --- a/BLAS/SRC/dgemv.f +++ b/BLAS/SRC/dgemv.f @@ -42,14 +42,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y. *> \endverbatim *> diff --git a/BLAS/SRC/dsbmv.f b/BLAS/SRC/dsbmv.f index 09c53e1f..128864f9 100644 --- a/BLAS/SRC/dsbmv.f +++ b/BLAS/SRC/dsbmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the band matrix A is being supplied as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> being supplied. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> being supplied. *> \endverbatim @@ -86,16 +84,14 @@ *> The following program segment will transfer the upper *> triangular part of a symmetric band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the symmetric matrix, supplied column by @@ -106,8 +102,7 @@ *> The following program segment will transfer the lower *> triangular part of a symmetric band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) diff --git a/BLAS/SRC/dsdot.f b/BLAS/SRC/dsdot.f index cb8de30c..a6f4ea88 100644 --- a/BLAS/SRC/dsdot.f +++ b/BLAS/SRC/dsdot.f @@ -70,7 +70,7 @@ *> storage spacing between elements of SY *> \endverbatim *> -*> \param[out] DSDOT +*> \result DSDOT *> \verbatim *> DSDOT is DOUBLE PRECISION *> DSDOT double precision dot product (zero if N.LE.0) diff --git a/BLAS/SRC/dspmv.f b/BLAS/SRC/dspmv.f index b0c0ceda..ddebd55d 100644 --- a/BLAS/SRC/dspmv.f +++ b/BLAS/SRC/dspmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/dspr.f b/BLAS/SRC/dspr.f index 87fd3bc8..543dce9b 100644 --- a/BLAS/SRC/dspr.f +++ b/BLAS/SRC/dspr.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/dspr2.f b/BLAS/SRC/dspr2.f index 54553ec1..cae156bd 100644 --- a/BLAS/SRC/dspr2.f +++ b/BLAS/SRC/dspr2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/dsymm.f b/BLAS/SRC/dsymm.f index f3537fa9..3a1710f6 100644 --- a/BLAS/SRC/dsymm.f +++ b/BLAS/SRC/dsymm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether the symmetric matrix A *> appears on the left or right in the operation as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' C := alpha*A*B + beta*C, -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' C := alpha*B*A + beta*C, *> \endverbatim *> @@ -60,12 +58,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the symmetric matrix A is to be *> referenced as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of the *> symmetric matrix is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of the *> symmetric matrix is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/dsymv.f b/BLAS/SRC/dsymv.f index 5dfc7ea9..f919dbcd 100644 --- a/BLAS/SRC/dsymv.f +++ b/BLAS/SRC/dsymv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/dsyr.f b/BLAS/SRC/dsyr.f index 81a01078..73ed1e51 100644 --- a/BLAS/SRC/dsyr.f +++ b/BLAS/SRC/dsyr.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/dsyr2.f b/BLAS/SRC/dsyr2.f index 7b72a342..f6686944 100644 --- a/BLAS/SRC/dsyr2.f +++ b/BLAS/SRC/dsyr2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/dsyr2k.f b/BLAS/SRC/dsyr2k.f index 3c2de59a..409f7e31 100644 --- a/BLAS/SRC/dsyr2k.f +++ b/BLAS/SRC/dsyr2k.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,16 +61,13 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*B**T + alpha*B*A**T + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*B + alpha*B**T*A + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**T*B + alpha*B**T*A + *> beta*C. *> \endverbatim diff --git a/BLAS/SRC/dsyrk.f b/BLAS/SRC/dsyrk.f index df232ff4..73f2a661 100644 --- a/BLAS/SRC/dsyrk.f +++ b/BLAS/SRC/dsyrk.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,14 +61,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*A**T + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*A + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**T*A + beta*C. *> \endverbatim *> diff --git a/BLAS/SRC/dtbmv.f b/BLAS/SRC/dtbmv.f index ad062ca9..2b7ed080 100644 --- a/BLAS/SRC/dtbmv.f +++ b/BLAS/SRC/dtbmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**T*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -109,16 +102,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -129,16 +120,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/dtbsv.f b/BLAS/SRC/dtbsv.f index 9a2b8429..e80fe009 100644 --- a/BLAS/SRC/dtbsv.f +++ b/BLAS/SRC/dtbsv.f @@ -45,11 +45,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -58,14 +56,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**T*x = b. *> \endverbatim *> @@ -74,11 +69,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -113,16 +106,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -133,16 +124,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/dtpmv.f b/BLAS/SRC/dtpmv.f index b11f4dbe..9f643dc7 100644 --- a/BLAS/SRC/dtpmv.f +++ b/BLAS/SRC/dtpmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**T*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/dtpsv.f b/BLAS/SRC/dtpsv.f index bd7c5ec3..937afcca 100644 --- a/BLAS/SRC/dtpsv.f +++ b/BLAS/SRC/dtpsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**T*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/dtrmm.f b/BLAS/SRC/dtrmm.f index 9e4cc226..71a7e0d6 100644 --- a/BLAS/SRC/dtrmm.f +++ b/BLAS/SRC/dtrmm.f @@ -44,11 +44,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) multiplies B from *> the left or right as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' B := alpha*op( A )*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' B := alpha*B*op( A ). *> \endverbatim *> @@ -57,11 +55,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -70,14 +66,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**T. *> \endverbatim *> @@ -86,11 +79,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -116,8 +107,10 @@ *> zero then A is not referenced and B need not be set before *> entry. *> \endverbatim +*> +*> \param[in] A *> \verbatim -*> A DOUBLE PRECISION array of DIMENSION ( LDA, k ), where k is m +*> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), where k is m *> when SIDE = 'L' or 'l' and is n when SIDE = 'R' or 'r'. *> Before entry with UPLO = 'U' or 'u', the leading k by k *> upper triangular part of the array A must contain the upper diff --git a/BLAS/SRC/dtrmv.f b/BLAS/SRC/dtrmv.f index c4864bf5..7bb9d748 100644 --- a/BLAS/SRC/dtrmv.f +++ b/BLAS/SRC/dtrmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**T*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/dtrsm.f b/BLAS/SRC/dtrsm.f index 3a91fd43..6adb99eb 100644 --- a/BLAS/SRC/dtrsm.f +++ b/BLAS/SRC/dtrsm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) appears on the left *> or right of X as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' op( A )*X = alpha*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' X*op( A ) = alpha*B. *> \endverbatim *> @@ -59,11 +57,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -72,14 +68,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**T. *> \endverbatim *> @@ -88,11 +81,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/dtrsv.f b/BLAS/SRC/dtrsv.f index 4a0845b7..ce82d7de 100644 --- a/BLAS/SRC/dtrsv.f +++ b/BLAS/SRC/dtrsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**T*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -126,11 +119,9 @@ *> INCX is INTEGER *> On entry, INCX specifies the increment for the elements of *> X. INCX must not be zero. -*> \endverbatim -*> \verbatim +*> *> Level 2 Blas routine. -*> \endverbatim -*> \verbatim +*> *> -- Written on 22-October-1986. *> Jack Dongarra, Argonne National Lab. *> Jeremy Du Croz, Nag Central Office. diff --git a/BLAS/SRC/sgbmv.f b/BLAS/SRC/sgbmv.f index 774dcda0..fde4e37a 100644 --- a/BLAS/SRC/sgbmv.f +++ b/BLAS/SRC/sgbmv.f @@ -42,14 +42,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y. *> \endverbatim *> @@ -101,8 +98,7 @@ *> are not referenced. *> The following program segment will transfer a band matrix *> from conventional full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> K = KU + 1 - J *> DO 10, I = MAX( 1, J - KU ), MIN( M, J + KL ) diff --git a/BLAS/SRC/sgemm.f b/BLAS/SRC/sgemm.f index 8ef99eac..7708dc92 100644 --- a/BLAS/SRC/sgemm.f +++ b/BLAS/SRC/sgemm.f @@ -46,14 +46,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n', op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't', op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c', op( A ) = A**T. *> \endverbatim *> @@ -62,14 +59,11 @@ *> TRANSB is CHARACTER*1 *> On entry, TRANSB specifies the form of op( B ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'N' or 'n', op( B ) = B. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'T' or 't', op( B ) = B**T. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'C' or 'c', op( B ) = B**T. *> \endverbatim *> diff --git a/BLAS/SRC/sgemv.f b/BLAS/SRC/sgemv.f index 315a6822..ba1d3fac 100644 --- a/BLAS/SRC/sgemv.f +++ b/BLAS/SRC/sgemv.f @@ -42,14 +42,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**T*x + beta*y. *> \endverbatim *> diff --git a/BLAS/SRC/sger.f b/BLAS/SRC/sger.f index 46ff76fb..c34a2a91 100644 --- a/BLAS/SRC/sger.f +++ b/BLAS/SRC/sger.f @@ -55,8 +55,10 @@ *> ALPHA is REAL *> On entry, ALPHA specifies the scalar alpha. *> \endverbatim +*> +*> \param[in] X *> \verbatim -*> X REAL array of dimension at least +*> X is REAL array of dimension at least *> ( 1 + ( m - 1 )*abs( INCX ) ). *> Before entry, the incremented array X must contain the m *> element vector x. diff --git a/BLAS/SRC/ssbmv.f b/BLAS/SRC/ssbmv.f index 82f76ceb..c91cb18d 100644 --- a/BLAS/SRC/ssbmv.f +++ b/BLAS/SRC/ssbmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the band matrix A is being supplied as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> being supplied. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> being supplied. *> \endverbatim @@ -86,16 +84,14 @@ *> The following program segment will transfer the upper *> triangular part of a symmetric band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the symmetric matrix, supplied column by @@ -106,8 +102,7 @@ *> The following program segment will transfer the lower *> triangular part of a symmetric band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) diff --git a/BLAS/SRC/sspmv.f b/BLAS/SRC/sspmv.f index e2485a27..393700a4 100644 --- a/BLAS/SRC/sspmv.f +++ b/BLAS/SRC/sspmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/sspr.f b/BLAS/SRC/sspr.f index 55b120e8..4088b3f0 100644 --- a/BLAS/SRC/sspr.f +++ b/BLAS/SRC/sspr.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/sspr2.f b/BLAS/SRC/sspr2.f index 6450dbcc..38466916 100644 --- a/BLAS/SRC/sspr2.f +++ b/BLAS/SRC/sspr2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim @@ -65,8 +63,10 @@ *> ALPHA is REAL *> On entry, ALPHA specifies the scalar alpha. *> \endverbatim +*> +*> \param[in] X *> \verbatim -*> X REAL array of dimension at least +*> X is REAL array of dimension at least *> ( 1 + ( n - 1 )*abs( INCX ) ). *> Before entry, the incremented array X must contain the n *> element vector x. diff --git a/BLAS/SRC/ssymm.f b/BLAS/SRC/ssymm.f index 2253c537..0fc8fc5c 100644 --- a/BLAS/SRC/ssymm.f +++ b/BLAS/SRC/ssymm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether the symmetric matrix A *> appears on the left or right in the operation as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' C := alpha*A*B + beta*C, -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' C := alpha*B*A + beta*C, *> \endverbatim *> @@ -60,12 +58,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the symmetric matrix A is to be *> referenced as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of the *> symmetric matrix is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of the *> symmetric matrix is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/ssymv.f b/BLAS/SRC/ssymv.f index 6660a329..362a8f40 100644 --- a/BLAS/SRC/ssymv.f +++ b/BLAS/SRC/ssymv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/ssyr.f b/BLAS/SRC/ssyr.f index 05c49151..96fce78e 100644 --- a/BLAS/SRC/ssyr.f +++ b/BLAS/SRC/ssyr.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/ssyr2.f b/BLAS/SRC/ssyr2.f index b96e2184..88305522 100644 --- a/BLAS/SRC/ssyr2.f +++ b/BLAS/SRC/ssyr2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim @@ -65,8 +63,10 @@ *> ALPHA is REAL *> On entry, ALPHA specifies the scalar alpha. *> \endverbatim +*> +*> \param[in] X *> \verbatim -*> X REAL array of dimension at least +*> X is REAL array of dimension at least *> ( 1 + ( n - 1 )*abs( INCX ) ). *> Before entry, the incremented array X must contain the n *> element vector x. diff --git a/BLAS/SRC/ssyr2k.f b/BLAS/SRC/ssyr2k.f index a0bfee72..a7968577 100644 --- a/BLAS/SRC/ssyr2k.f +++ b/BLAS/SRC/ssyr2k.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,16 +61,13 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*B**T + alpha*B*A**T + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*B + alpha*B**T*A + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**T*B + alpha*B**T*A + *> beta*C. *> \endverbatim diff --git a/BLAS/SRC/ssyrk.f b/BLAS/SRC/ssyrk.f index 9d294f13..b38025b4 100644 --- a/BLAS/SRC/ssyrk.f +++ b/BLAS/SRC/ssyrk.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,14 +61,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*A**T + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*A + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**T*A + beta*C. *> \endverbatim *> diff --git a/BLAS/SRC/stbmv.f b/BLAS/SRC/stbmv.f index 5c1190a8..ebd5f6f3 100644 --- a/BLAS/SRC/stbmv.f +++ b/BLAS/SRC/stbmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**T*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -109,16 +102,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -129,16 +120,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/stbsv.f b/BLAS/SRC/stbsv.f index 2bdb4824..f4e2688c 100644 --- a/BLAS/SRC/stbsv.f +++ b/BLAS/SRC/stbsv.f @@ -45,11 +45,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -58,14 +56,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**T*x = b. *> \endverbatim *> @@ -74,11 +69,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -113,16 +106,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -133,16 +124,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/stpmv.f b/BLAS/SRC/stpmv.f index a32cf73f..5dac03aa 100644 --- a/BLAS/SRC/stpmv.f +++ b/BLAS/SRC/stpmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**T*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/stpsv.f b/BLAS/SRC/stpsv.f index d54a5da4..d615193b 100644 --- a/BLAS/SRC/stpsv.f +++ b/BLAS/SRC/stpsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**T*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/strmm.f b/BLAS/SRC/strmm.f index c366891e..2a000630 100644 --- a/BLAS/SRC/strmm.f +++ b/BLAS/SRC/strmm.f @@ -44,11 +44,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) multiplies B from *> the left or right as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' B := alpha*op( A )*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' B := alpha*B*op( A ). *> \endverbatim *> @@ -57,11 +55,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -70,14 +66,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**T. *> \endverbatim *> @@ -86,11 +79,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/strmv.f b/BLAS/SRC/strmv.f index dcfa15d1..f3581cd5 100644 --- a/BLAS/SRC/strmv.f +++ b/BLAS/SRC/strmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**T*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/strsm.f b/BLAS/SRC/strsm.f index 0568d971..48f7dcf0 100644 --- a/BLAS/SRC/strsm.f +++ b/BLAS/SRC/strsm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) appears on the left *> or right of X as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' op( A )*X = alpha*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' X*op( A ) = alpha*B. *> \endverbatim *> @@ -59,11 +57,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -72,14 +68,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**T. *> \endverbatim *> @@ -88,11 +81,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/strsv.f b/BLAS/SRC/strsv.f index c4b3f546..61a54c63 100644 --- a/BLAS/SRC/strsv.f +++ b/BLAS/SRC/strsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**T*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/zgbmv.f b/BLAS/SRC/zgbmv.f index 216cb5b8..77aff8d0 100644 --- a/BLAS/SRC/zgbmv.f +++ b/BLAS/SRC/zgbmv.f @@ -44,14 +44,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**H*x + beta*y. *> \endverbatim *> @@ -103,8 +100,7 @@ *> are not referenced. *> The following program segment will transfer a band matrix *> from conventional full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> K = KU + 1 - J *> DO 10, I = MAX( 1, J - KU ), MIN( M, J + KL ) diff --git a/BLAS/SRC/zgemm.f b/BLAS/SRC/zgemm.f index 6aaf515e..6f7fe980 100644 --- a/BLAS/SRC/zgemm.f +++ b/BLAS/SRC/zgemm.f @@ -46,14 +46,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n', op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't', op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c', op( A ) = A**H. *> \endverbatim *> @@ -62,14 +59,11 @@ *> TRANSB is CHARACTER*1 *> On entry, TRANSB specifies the form of op( B ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'N' or 'n', op( B ) = B. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'T' or 't', op( B ) = B**T. -*> \endverbatim -*> \verbatim +*> *> TRANSB = 'C' or 'c', op( B ) = B**H. *> \endverbatim *> diff --git a/BLAS/SRC/zgemv.f b/BLAS/SRC/zgemv.f index 9eaf4450..b3ffbb84 100644 --- a/BLAS/SRC/zgemv.f +++ b/BLAS/SRC/zgemv.f @@ -44,14 +44,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' y := alpha*A*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' y := alpha*A**T*x + beta*y. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' y := alpha*A**H*x + beta*y. *> \endverbatim *> diff --git a/BLAS/SRC/zhbmv.f b/BLAS/SRC/zhbmv.f index 0adaec41..14f4fa87 100644 --- a/BLAS/SRC/zhbmv.f +++ b/BLAS/SRC/zhbmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the band matrix A is being supplied as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> being supplied. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> being supplied. *> \endverbatim @@ -86,16 +84,14 @@ *> The following program segment will transfer the upper *> triangular part of a hermitian band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the hermitian matrix, supplied column by @@ -106,16 +102,14 @@ *> The following program segment will transfer the lower *> triangular part of a hermitian band matrix from conventional *> full matrix storage to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that the imaginary parts of the diagonal elements need *> not be set and are assumed to be zero. *> \endverbatim diff --git a/BLAS/SRC/zhemm.f b/BLAS/SRC/zhemm.f index 8d7218c3..608138c3 100644 --- a/BLAS/SRC/zhemm.f +++ b/BLAS/SRC/zhemm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether the hermitian matrix A *> appears on the left or right in the operation as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' C := alpha*A*B + beta*C, -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' C := alpha*B*A + beta*C, *> \endverbatim *> @@ -60,12 +58,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the hermitian matrix A is to be *> referenced as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of the *> hermitian matrix is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of the *> hermitian matrix is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/zhemv.f b/BLAS/SRC/zhemv.f index c566a1fe..baa29300 100644 --- a/BLAS/SRC/zhemv.f +++ b/BLAS/SRC/zhemv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/zher.f b/BLAS/SRC/zher.f index b2af0227..5f684821 100644 --- a/BLAS/SRC/zher.f +++ b/BLAS/SRC/zher.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/zher2.f b/BLAS/SRC/zher2.f index 0c4f94d9..1b98c63a 100644 --- a/BLAS/SRC/zher2.f +++ b/BLAS/SRC/zher2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array A is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of A *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of A *> is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/zher2k.f b/BLAS/SRC/zher2k.f index bfcf27fd..b577e1b9 100644 --- a/BLAS/SRC/zher2k.f +++ b/BLAS/SRC/zher2k.f @@ -49,12 +49,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -64,13 +62,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*B**H + *> conjg( alpha )*B*A**H + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**H*B + *> conjg( alpha )*B**H*A + *> beta*C. diff --git a/BLAS/SRC/zherk.f b/BLAS/SRC/zherk.f index f1795c40..cd4fed59 100644 --- a/BLAS/SRC/zherk.f +++ b/BLAS/SRC/zherk.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,11 +61,9 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*A**H + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' C := alpha*A**H*A + beta*C. *> \endverbatim *> diff --git a/BLAS/SRC/zhpmv.f b/BLAS/SRC/zhpmv.f index 2304ed87..c81456f0 100644 --- a/BLAS/SRC/zhpmv.f +++ b/BLAS/SRC/zhpmv.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/zhpr.f b/BLAS/SRC/zhpr.f index d80e359f..0b0bd68c 100644 --- a/BLAS/SRC/zhpr.f +++ b/BLAS/SRC/zhpr.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/zhpr2.f b/BLAS/SRC/zhpr2.f index 0d0c4ea5..f160418b 100644 --- a/BLAS/SRC/zhpr2.f +++ b/BLAS/SRC/zhpr2.f @@ -43,12 +43,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the matrix A is supplied in the packed *> array AP as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' The upper triangular part of A is *> supplied in AP. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' The lower triangular part of A is *> supplied in AP. *> \endverbatim diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f index 6ceda01d..57e70208 100644 --- a/BLAS/SRC/zsymm.f +++ b/BLAS/SRC/zsymm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether the symmetric matrix A *> appears on the left or right in the operation as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' C := alpha*A*B + beta*C, -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' C := alpha*B*A + beta*C, *> \endverbatim *> @@ -60,12 +58,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the symmetric matrix A is to be *> referenced as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of the *> symmetric matrix is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of the *> symmetric matrix is to be referenced. *> \endverbatim diff --git a/BLAS/SRC/zsyr2k.f b/BLAS/SRC/zsyr2k.f index 898febce..5f88db42 100644 --- a/BLAS/SRC/zsyr2k.f +++ b/BLAS/SRC/zsyr2k.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,12 +61,10 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*B**T + alpha*B*A**T + *> beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*B + alpha*B**T*A + *> beta*C. *> \endverbatim diff --git a/BLAS/SRC/zsyrk.f b/BLAS/SRC/zsyrk.f index db6d567a..8508988b 100644 --- a/BLAS/SRC/zsyrk.f +++ b/BLAS/SRC/zsyrk.f @@ -48,12 +48,10 @@ *> On entry, UPLO specifies whether the upper or lower *> triangular part of the array C is to be referenced as *> follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' Only the upper triangular part of C *> is to be referenced. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' Only the lower triangular part of C *> is to be referenced. *> \endverbatim @@ -63,11 +61,9 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' C := alpha*A*A**T + beta*C. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' C := alpha*A**T*A + beta*C. *> \endverbatim *> diff --git a/BLAS/SRC/ztbmv.f b/BLAS/SRC/ztbmv.f index 781ac531..690af3c6 100644 --- a/BLAS/SRC/ztbmv.f +++ b/BLAS/SRC/ztbmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**H*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -109,16 +102,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -129,16 +120,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/ztbsv.f b/BLAS/SRC/ztbsv.f index b4828146..7a7b02c2 100644 --- a/BLAS/SRC/ztbsv.f +++ b/BLAS/SRC/ztbsv.f @@ -45,11 +45,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -58,14 +56,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**H*x = b. *> \endverbatim *> @@ -74,11 +69,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim @@ -113,16 +106,14 @@ *> The following program segment will transfer an upper *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = K + 1 - J *> DO 10, I = MAX( 1, J - K ), J *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Before entry with UPLO = 'L' or 'l', the leading ( k + 1 ) *> by n part of the array A must contain the lower triangular *> band part of the matrix of coefficients, supplied column by @@ -133,16 +124,14 @@ *> The following program segment will transfer a lower *> triangular band matrix from conventional full matrix storage *> to band storage: -*> \endverbatim -*> \verbatim +*> *> DO 20, J = 1, N *> M = 1 - J *> DO 10, I = J, MIN( N, J + K ) *> A( M + I, J ) = matrix( I, J ) *> 10 CONTINUE *> 20 CONTINUE -*> \endverbatim -*> \verbatim +*> *> Note that when DIAG = 'U' or 'u' the elements of the array A *> corresponding to the diagonal elements of the matrix are not *> referenced, but are assumed to be unity. diff --git a/BLAS/SRC/ztpmv.f b/BLAS/SRC/ztpmv.f index d4f71a47..d5d8da90 100644 --- a/BLAS/SRC/ztpmv.f +++ b/BLAS/SRC/ztpmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**H*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ztpsv.f b/BLAS/SRC/ztpsv.f index e12c1e9c..94463428 100644 --- a/BLAS/SRC/ztpsv.f +++ b/BLAS/SRC/ztpsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**H*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ztrmm.f b/BLAS/SRC/ztrmm.f index a54a53c1..16d6c95d 100644 --- a/BLAS/SRC/ztrmm.f +++ b/BLAS/SRC/ztrmm.f @@ -44,11 +44,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) multiplies B from *> the left or right as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' B := alpha*op( A )*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' B := alpha*B*op( A ). *> \endverbatim *> @@ -57,11 +55,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -70,14 +66,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**H. *> \endverbatim *> @@ -86,11 +79,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ztrmv.f b/BLAS/SRC/ztrmv.f index 2c491498..ae8c40f6 100644 --- a/BLAS/SRC/ztrmv.f +++ b/BLAS/SRC/ztrmv.f @@ -41,11 +41,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -54,14 +52,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the operation to be performed as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' x := A*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' x := A**T*x. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' x := A**H*x. *> \endverbatim *> @@ -70,11 +65,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ztrsm.f b/BLAS/SRC/ztrsm.f index fae9928a..f51fd2ab 100644 --- a/BLAS/SRC/ztrsm.f +++ b/BLAS/SRC/ztrsm.f @@ -46,11 +46,9 @@ *> SIDE is CHARACTER*1 *> On entry, SIDE specifies whether op( A ) appears on the left *> or right of X as follows: -*> \endverbatim -*> \verbatim +*> *> SIDE = 'L' or 'l' op( A )*X = alpha*B. -*> \endverbatim -*> \verbatim +*> *> SIDE = 'R' or 'r' X*op( A ) = alpha*B. *> \endverbatim *> @@ -59,11 +57,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix A is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -72,14 +68,11 @@ *> TRANSA is CHARACTER*1 *> On entry, TRANSA specifies the form of op( A ) to be used in *> the matrix multiplication as follows: -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'N' or 'n' op( A ) = A. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'T' or 't' op( A ) = A**T. -*> \endverbatim -*> \verbatim +*> *> TRANSA = 'C' or 'c' op( A ) = A**H. *> \endverbatim *> @@ -88,11 +81,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit triangular *> as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim diff --git a/BLAS/SRC/ztrsv.f b/BLAS/SRC/ztrsv.f index 3696075b..8270da1d 100644 --- a/BLAS/SRC/ztrsv.f +++ b/BLAS/SRC/ztrsv.f @@ -44,11 +44,9 @@ *> UPLO is CHARACTER*1 *> On entry, UPLO specifies whether the matrix is an upper or *> lower triangular matrix as follows: -*> \endverbatim -*> \verbatim +*> *> UPLO = 'U' or 'u' A is an upper triangular matrix. -*> \endverbatim -*> \verbatim +*> *> UPLO = 'L' or 'l' A is a lower triangular matrix. *> \endverbatim *> @@ -57,14 +55,11 @@ *> TRANS is CHARACTER*1 *> On entry, TRANS specifies the equations to be solved as *> follows: -*> \endverbatim -*> \verbatim +*> *> TRANS = 'N' or 'n' A*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'T' or 't' A**T*x = b. -*> \endverbatim -*> \verbatim +*> *> TRANS = 'C' or 'c' A**H*x = b. *> \endverbatim *> @@ -73,11 +68,9 @@ *> DIAG is CHARACTER*1 *> On entry, DIAG specifies whether or not A is unit *> triangular as follows: -*> \endverbatim -*> \verbatim +*> *> DIAG = 'U' or 'u' A is assumed to be unit triangular. -*> \endverbatim -*> \verbatim +*> *> DIAG = 'N' or 'n' A is not assumed to be unit *> triangular. *> \endverbatim |