diff options
| author | langou <langou@users.noreply.github.com> | 2009-02-09 21:37:20 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2009-02-09 21:37:20 +0000 |
| commit | 2d7bbcf1a5c3552997100e747653294b01fa429a (patch) | |
| tree | 590319c61311ee622dc80cdd858761a8fb176c99 | |
| parent | e0c20c327aab3a0265860c6a7ebbf00f9434353c (diff) | |
| download | lapack-2d7bbcf1a5c3552997100e747653294b01fa429a.tar.gz lapack-2d7bbcf1a5c3552997100e747653294b01fa429a.tar.bz2 lapack-2d7bbcf1a5c3552997100e747653294b01fa429a.zip | |
| -rw-r--r-- | SRC/zcposv.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/zcposv.f b/SRC/zcposv.f index daea32a0..0cb60fcc 100644 --- a/SRC/zcposv.f +++ b/SRC/zcposv.f @@ -211,7 +211,7 @@ * * Compute some constants. * - ANRM = ZLANHE( 'I', UPLO, N, A, LDA, WORK ) + ANRM = ZLANHE( 'I', UPLO, N, A, LDA, RWORK ) EPS = DLAMCH( 'Epsilon' ) CTE = ANRM*EPS*SQRT( DBLE( N ) )*BWDMAX * |