From 4bb58882ffd4d53455dfb76eb7eb2dcb456010f4 Mon Sep 17 00:00:00 2001 From: deaglanhalligan Date: Mon, 26 Jan 2009 03:51:22 +0000 Subject: Set ithresh to 10, not 100. Removed la_linrx_max_n_errs. --- SRC/zgbrfsx.f | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'SRC/zgbrfsx.f') diff --git a/SRC/zgbrfsx.f b/SRC/zgbrfsx.f index d756afaa..8c4bdd89 100644 --- a/SRC/zgbrfsx.f +++ b/SRC/zgbrfsx.f @@ -333,7 +333,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) @@ -346,8 +346,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM -- cgit v1.2.3