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/zla_syrfsx_extended.f | 2 -- 1 file changed, 2 deletions(-) (limited to 'SRC/zla_syrfsx_extended.f') diff --git a/SRC/zla_syrfsx_extended.f b/SRC/zla_syrfsx_extended.f index 1841b7f8..6d92b562 100644 --- a/SRC/zla_syrfsx_extended.f +++ b/SRC/zla_syrfsx_extended.f @@ -75,8 +75,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 ) * .. * .. External Functions .. LOGICAL LSAME -- cgit v1.2.3