diff options
author | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-26 03:51:22 +0000 |
---|---|---|
committer | deaglanhalligan <deaglanhalligan@8a072113-8704-0410-8d35-dd094bca7971> | 2009-01-26 03:51:22 +0000 |
commit | 4bb58882ffd4d53455dfb76eb7eb2dcb456010f4 (patch) | |
tree | 1bd51dad45a2645ac31bece49f10655af21642f3 /SRC/zgbrfsx.f | |
parent | ce91deebd43a93991b7344444a323958db2ab64c (diff) |
Set ithresh to 10, not 100. Removed la_linrx_max_n_errs.
Diffstat (limited to 'SRC/zgbrfsx.f')
-rw-r--r-- | SRC/zgbrfsx.f | 4 |
1 files changed, 1 insertions, 3 deletions
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 |