diff options
| author | julie <julielangou@users.noreply.github.com> | 2012-01-08 05:27:18 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2012-01-08 05:27:18 +0000 |
| commit | 491fcee0303e374ba6df7b44247747624b956131 (patch) | |
| tree | d7fb66ee3ec8d632c00918f8fea282a587aef9a7 /SRC/zppsvx.f | |
| parent | a055c28aa29a338fef15d9d4550b03bcbbfda298 (diff) | |
Fix minor problem in some comments...
Diffstat (limited to 'SRC/zppsvx.f')
| -rw-r--r-- | SRC/zppsvx.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/zppsvx.f b/SRC/zppsvx.f index 54ecb4c4..a6914ce2 100644 --- a/SRC/zppsvx.f +++ b/SRC/zppsvx.f @@ -147,7 +147,7 @@ *> *> \param[in,out] AFP *> \verbatim -*> AFP is or output) COMPLEX*16 array, dimension (N*(N+1)/2) +*> AFP is COMPLEX*16 array, dimension (N*(N+1)/2) *> If FACT = 'F', then AFP is an input argument and on entry *> contains the triangular factor U or L from the Cholesky *> factorization A = U**H*U or A = L*L**H, in the same storage @@ -168,7 +168,7 @@ *> *> \param[in,out] EQUED *> \verbatim -*> EQUED is or output) CHARACTER*1 +*> EQUED is CHARACTER*1 *> Specifies the form of equilibration that was done. *> = 'N': No equilibration (always true if FACT = 'N'). *> = 'Y': Equilibration was done, i.e., A has been replaced by @@ -179,7 +179,7 @@ *> *> \param[in,out] S *> \verbatim -*> S is or output) DOUBLE PRECISION array, dimension (N) +*> S is DOUBLE PRECISION array, dimension (N) *> The scale factors for A; not accessed if EQUED = 'N'. S is *> an input argument if FACT = 'F'; otherwise, S is an output *> argument. If FACT = 'F' and EQUED = 'Y', each element of S |