diff options
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 |