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/sgesvxx.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'SRC/sgesvxx.f') diff --git a/SRC/sgesvxx.f b/SRC/sgesvxx.f index 1021c24a..7280fe2d 100644 --- a/SRC/sgesvxx.f +++ b/SRC/sgesvxx.f @@ -428,7 +428,7 @@ * * .. Parameters .. REAL ZERO, ONE - PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) + PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 ) INTEGER FINAL_NRM_ERR_I, FINAL_CMP_ERR_I, BERR_I INTEGER RCOND_I, NRM_RCOND_I, NRM_ERR_I, CMP_RCOND_I INTEGER CMP_ERR_I, PIV_GROWTH_I -- cgit v1.2.3