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/sporfsx.f | |
parent | 7064e84298b077832971a1f4c2fa79857fe854d8 (diff) |
In refinement routines, err_bnds initialization if-else statements should be if statements, found when coding in C++
Diffstat (limited to 'SRC/sporfsx.f')
-rw-r--r-- | SRC/sporfsx.f | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/SRC/sporfsx.f b/SRC/sporfsx.f index 1c2197e3..fe7cddbd 100644 --- a/SRC/sporfsx.f +++ b/SRC/sporfsx.f @@ -422,10 +422,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 @@ -441,10 +443,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 |