diff options
author | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-11-01 22:02:31 +0000 |
commit | d5c30c90bdecf38da1064e2ed52583634573e741 (patch) | |
tree | 480fc5ff31ee14b83116b6428aad79ea6e89362d /SRC/zgbsvx.f | |
parent | 04670a68760fa27333f8bcef8172f71adc6880ef (diff) | |
download | lapack-d5c30c90bdecf38da1064e2ed52583634573e741.tar.gz lapack-d5c30c90bdecf38da1064e2ed52583634573e741.tar.bz2 lapack-d5c30c90bdecf38da1064e2ed52583634573e741.zip |
Never say never...
Diffstat (limited to 'SRC/zgbsvx.f')
-rw-r--r-- | SRC/zgbsvx.f | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/SRC/zgbsvx.f b/SRC/zgbsvx.f index 9e026149..cbe43b20 100644 --- a/SRC/zgbsvx.f +++ b/SRC/zgbsvx.f @@ -151,14 +151,12 @@ *> The j-th column of A is stored in the j-th column of the *> array AB as follows: *> AB(KU+1+i-j,j) = A(i,j) for max(1,j-KU)<=i<=min(N,j+kl) -*> \endverbatim -*> \verbatim +*> *> If FACT = 'F' and EQUED is not 'N', then A must have been *> equilibrated by the scaling factors in R and/or C. AB is not *> modified if FACT = 'F' or 'N', or if FACT = 'E' and *> EQUED = 'N' on exit. -*> \endverbatim -*> \verbatim +*> *> On exit, if EQUED .ne. 'N', A is scaled as follows: *> EQUED = 'R': A := diag(R) * A *> EQUED = 'C': A := A * diag(C) @@ -181,12 +179,10 @@ *> and the multipliers used during the factorization are stored *> in rows KL+KU+2 to 2*KL+KU+1. If EQUED .ne. 'N', then AFB is *> the factored form of the equilibrated matrix A. -*> \endverbatim -*> \verbatim +*> *> If FACT = 'N', then AFB is an output argument and on exit *> returns details of the LU factorization of A. -*> \endverbatim -*> \verbatim +*> *> If FACT = 'E', then AFB is an output argument and on exit *> returns details of the LU factorization of the equilibrated *> matrix A (see the description of AB for the form of the @@ -206,13 +202,11 @@ *> contains the pivot indices from the factorization A = L*U *> as computed by ZGBTRF; row i of the matrix was interchanged *> with row IPIV(i). -*> \endverbatim -*> \verbatim +*> *> If FACT = 'N', then IPIV is an output argument and on exit *> contains the pivot indices from the factorization A = L*U *> of the original matrix A. -*> \endverbatim -*> \verbatim +*> *> If FACT = 'E', then IPIV is an output argument and on exit *> contains the pivot indices from the factorization A = L*U *> of the equilibrated matrix A. |