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/zposvxx.f | |
| parent | 2e3389623f8a58ae48e56ccec8c00bb9a8174388 (diff) | |
| download | lapack-7a34efe5266d10a472dd06fd4cea0c74fe411700.tar.gz lapack-7a34efe5266d10a472dd06fd4cea0c74fe411700.tar.bz2 lapack-7a34efe5266d10a472dd06fd4cea0c74fe411700.zip | |
Fixed WORK/RWORK bug in complex iterative refinement routines.
Diffstat (limited to 'SRC/zposvxx.f')
| -rw-r--r-- | SRC/zposvxx.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/zposvxx.f b/SRC/zposvxx.f index e83474c8..e62ad3e7 100644 --- a/SRC/zposvxx.f +++ b/SRC/zposvxx.f @@ -514,14 +514,14 @@ * Compute the reciprocal pivot growth factor of the * leading rank-deficient INFO columns of A. * - RPVGRW = ZLA_PORPVGRW( UPLO, N, A, LDA, AF, LDAF, WORK ) + RPVGRW = ZLA_PORPVGRW( UPLO, N, A, LDA, AF, LDAF, RWORK ) RETURN END IF END IF * * Compute the reciprocal pivot growth factor RPVGRW. * - RPVGRW = ZLA_PORPVGRW( UPLO, N, A, LDA, AF, LDAF, WORK ) + RPVGRW = ZLA_PORPVGRW( UPLO, N, A, LDA, AF, LDAF, RWORK ) * * Compute the solution matrix X. * |