diff options
| author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-26 03:51:22 +0000 |
|---|---|---|
| committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-26 03:51:22 +0000 |
| commit | 4bb58882ffd4d53455dfb76eb7eb2dcb456010f4 (patch) | |
| tree | 1bd51dad45a2645ac31bece49f10655af21642f3 /SRC/zla_herfsx_extended.f | |
| parent | ce91deebd43a93991b7344444a323958db2ab64c (diff) | |
| download | lapack-4bb58882ffd4d53455dfb76eb7eb2dcb456010f4.tar.gz lapack-4bb58882ffd4d53455dfb76eb7eb2dcb456010f4.tar.bz2 lapack-4bb58882ffd4d53455dfb76eb7eb2dcb456010f4.zip | |
Set ithresh to 10, not 100. Removed la_linrx_max_n_errs.
Diffstat (limited to 'SRC/zla_herfsx_extended.f')
| -rw-r--r-- | SRC/zla_herfsx_extended.f | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/SRC/zla_herfsx_extended.f b/SRC/zla_herfsx_extended.f index 2d1646bc..d172b873 100644 --- a/SRC/zla_herfsx_extended.f +++ b/SRC/zla_herfsx_extended.f @@ -32,7 +32,7 @@ * * Purpose * ======= -* +* * ZLA_HERFSX_EXTENDED computes ... . * * Arguments @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME @@ -144,14 +142,14 @@ * CALL ZCOPY( N, B( 1, J ), 1, RES, 1 ) IF ( Y_PREC_STATE .EQ. BASE_RESIDUAL ) THEN - CALL ZHEMV( UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y( 1, J ), + CALL ZHEMV( UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y( 1, J ), $ 1, DCMPLX(1.0D+0), RES, 1 ) ELSE IF ( Y_PREC_STATE .EQ. EXTRA_RESIDUAL ) THEN CALL BLAS_ZHEMV_X( UPLO2, N, DCMPLX(-1.0D+0), A, LDA, $ Y( 1, J ), 1, DCMPLX(1.0D+0), RES, 1, PREC_TYPE) ELSE CALL BLAS_ZHEMV2_X(UPLO2, N, DCMPLX(-1.0D+0), A, LDA, - $ Y(1, J), Y_TAIL, 1, DCMPLX(1.0D+0), RES, 1, + $ Y(1, J), Y_TAIL, 1, DCMPLX(1.0D+0), RES, 1, $ PREC_TYPE) END IF |