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/zporfsx.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/zporfsx.f')
-rw-r--r-- | SRC/zporfsx.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/zporfsx.f b/SRC/zporfsx.f index 2d59878e..44334c69 100644 --- a/SRC/zporfsx.f +++ b/SRC/zporfsx.f @@ -452,7 +452,7 @@ * number of A. * NORM = 'I' - ANORM = ZLANHE( NORM, UPLO, N, A, LDA, WORK ) + ANORM = ZLANHE( NORM, UPLO, N, A, LDA, RWORK ) CALL ZPOCON( UPLO, N, AF, LDAF, ANORM, RCOND, WORK, RWORK, $ INFO ) * |