diff options
| author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-07-17 08:27:04 +0000 |
|---|---|---|
| committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-07-17 08:27:04 +0000 |
| commit | 4b6a6b3b23785efb93d48e925f0342ae54884f32 (patch) | |
| tree | c02533d2a3904ac38adc05d99ba2eb502751f380 /SRC/zherfsx.f | |
| parent | 7064e84298b077832971a1f4c2fa79857fe854d8 (diff) | |
| download | lapack-4b6a6b3b23785efb93d48e925f0342ae54884f32.tar.gz lapack-4b6a6b3b23785efb93d48e925f0342ae54884f32.tar.bz2 lapack-4b6a6b3b23785efb93d48e925f0342ae54884f32.zip | |
In refinement routines, err_bnds initialization if-else statements should be if statements, found when coding in C++
Diffstat (limited to 'SRC/zherfsx.f')
| -rw-r--r-- | SRC/zherfsx.f | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f index caea5469..900e6adc 100644 --- a/SRC/zherfsx.f +++ b/SRC/zherfsx.f @@ -426,10 +426,12 @@ IF ( N_ERR_BNDS .GE. 1 ) THEN ERR_BNDS_NORM( J, LA_LINRX_TRUST_I ) = 1.0D+0 ERR_BNDS_COMP( J, LA_LINRX_TRUST_I ) = 1.0D+0 - ELSE IF ( N_ERR_BNDS .GE. 2 ) THEN + END IF + IF ( N_ERR_BNDS .GE. 2 ) THEN ERR_BNDS_NORM( J, LA_LINRX_ERR_I ) = 0.0D+0 ERR_BNDS_COMP( J, LA_LINRX_ERR_I ) = 0.0D+0 - ELSE IF ( N_ERR_BNDS .GE. 3 ) THEN + END IF + IF ( N_ERR_BNDS .GE. 3 ) THEN ERR_BNDS_NORM( J, LA_LINRX_RCOND_I ) = 1.0D+0 ERR_BNDS_COMP( J, LA_LINRX_RCOND_I ) = 1.0D+0 END IF @@ -445,10 +447,12 @@ IF ( N_ERR_BNDS .GE. 1 ) THEN ERR_BNDS_NORM( J, LA_LINRX_TRUST_I ) = 1.0D+0 ERR_BNDS_COMP( J, LA_LINRX_TRUST_I ) = 1.0D+0 - ELSE IF ( N_ERR_BNDS .GE. 2 ) THEN + END IF + IF ( N_ERR_BNDS .GE. 2 ) THEN ERR_BNDS_NORM( J, LA_LINRX_ERR_I ) = 1.0D+0 ERR_BNDS_COMP( J, LA_LINRX_ERR_I ) = 1.0D+0 - ELSE IF ( N_ERR_BNDS .GE. 3 ) THEN + END IF + IF ( N_ERR_BNDS .GE. 3 ) THEN ERR_BNDS_NORM( J, LA_LINRX_RCOND_I ) = 0.0D+0 ERR_BNDS_COMP( J, LA_LINRX_RCOND_I ) = 0.0D+0 END IF |