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/zsysvxx.f | |
| parent | 2e3389623f8a58ae48e56ccec8c00bb9a8174388 (diff) | |
Fixed WORK/RWORK bug in complex iterative refinement routines.
Diffstat (limited to 'SRC/zsysvxx.f')
| -rw-r--r-- | SRC/zsysvxx.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/zsysvxx.f b/SRC/zsysvxx.f index cbdec3bf..3ca260b0 100644 --- a/SRC/zsysvxx.f +++ b/SRC/zsysvxx.f @@ -523,7 +523,7 @@ * IF ( N.GT.0 ) $ RPVGRW = ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, - $ LDAF, IPIV, WORK ) + $ LDAF, IPIV, RWORK ) RETURN END IF END IF @@ -532,7 +532,7 @@ * IF ( N.GT.0 ) $ RPVGRW = ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, - $ IPIV, WORK ) + $ IPIV, RWORK ) * * Compute the solution matrix X. * |