From 4b6a6b3b23785efb93d48e925f0342ae54884f32 Mon Sep 17 00:00:00 2001 From: deaglanhalligan Date: Fri, 17 Jul 2009 08:27:04 +0000 Subject: In refinement routines, err_bnds initialization if-else statements should be if statements, found when coding in C++ --- SRC/csyrfsx.f | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'SRC/csyrfsx.f') 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 -- cgit v1.2.3