diff options
Diffstat (limited to 'BLAS/SRC')
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 |