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/csyrfsx.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/csyrfsx.f')
-rw-r--r-- | SRC/csyrfsx.f | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/SRC/csyrfsx.f b/SRC/csyrfsx.f index daeb3185..d92f3e68 100644 --- a/SRC/csyrfsx.f +++ b/SRC/csyrfsx.f @@ -427,10 +427,12 @@ IF ( N_ERR_BNDS .GE. 1 ) THEN ERR_BNDS_NORM( J, LA_LINRX_TRUST_I ) = 1.0 ERR_BNDS_COMP( J, LA_LINRX_TRUST_I ) = 1.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.0 ERR_BNDS_COMP( J, LA_LINRX_ERR_I ) = 0.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.0 ERR_BNDS_COMP( J, LA_LINRX_RCOND_I ) = 1.0 END IF @@ -446,10 +448,12 @@ IF ( N_ERR_BNDS .GE. 1 ) THEN ERR_BNDS_NORM( J, LA_LINRX_TRUST_I ) = 1.0 ERR_BNDS_COMP( J, LA_LINRX_TRUST_I ) = 1.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.0 ERR_BNDS_COMP( J, LA_LINRX_ERR_I ) = 1.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.0 ERR_BNDS_COMP( J, LA_LINRX_RCOND_I ) = 0.0 END IF |