diff options
| author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-02-10 03:14:40 +0000 |
|---|---|---|
| committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-02-10 03:14:40 +0000 |
| commit | 7a34efe5266d10a472dd06fd4cea0c74fe411700 (patch) | |
| tree | f309e6d61f065a2d64eb383df535d9d69161898b /SRC/chesvxx.f | |
| parent | 2e3389623f8a58ae48e56ccec8c00bb9a8174388 (diff) | |
Fixed WORK/RWORK bug in complex iterative refinement routines.
Diffstat (limited to 'SRC/chesvxx.f')
| -rw-r--r-- | SRC/chesvxx.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/chesvxx.f b/SRC/chesvxx.f index 5183d7b6..8c5c3717 100644 --- a/SRC/chesvxx.f +++ b/SRC/chesvxx.f @@ -525,7 +525,7 @@ * IF( N.GT.0 ) $ RPVGRW = CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, - $ IPIV, WORK ) + $ IPIV, RWORK ) RETURN END IF END IF @@ -534,7 +534,7 @@ * IF( N.GT.0 ) $ RPVGRW = CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, - $ WORK ) + $ RWORK ) * * Compute the solution matrix X. * |