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/zherfsx.f | |
| parent | 2e3389623f8a58ae48e56ccec8c00bb9a8174388 (diff) | |
Fixed WORK/RWORK bug in complex iterative refinement routines.
Diffstat (limited to 'SRC/zherfsx.f')
| -rw-r--r-- | SRC/zherfsx.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f index f9df11de..f73e03b5 100644 --- a/SRC/zherfsx.f +++ b/SRC/zherfsx.f @@ -458,7 +458,7 @@ * number of A. * NORM = 'I' - ANORM = ZLANHE( NORM, UPLO, N, A, LDA, WORK ) + ANORM = ZLANHE( NORM, UPLO, N, A, LDA, RWORK ) CALL ZHECON( UPLO, N, AF, LDAF, IPIV, ANORM, RCOND, WORK, $ INFO ) * |