FIX: in sp_ienv.c, enforce RELAX to be bounded by MAXSUP.

xiaoyeli · May 22, 2022 · 4459a89 · 4459a89
1 parent 72d7011
commit 4459a89
Showing 1 changed file with 11 additions and 7 deletions.
diff --git a/SRC/sp_ienv.c b/SRC/sp_ienv.c
@@ -78,18 +78,22 @@ sp_ienv_dist(int ispec, superlu_dist_options_t *options)
     char* ttemp;
 
     switch (ispec) {
-	case 2: 
+	case 2:
             ttemp = getenv("SUPERLU_RELAX");
+	    int k;
             if(ttemp)
             {
-                return(atoi(ttemp));
-            }else if(getenv("NREL"))
+		k = atoi(ttemp);
+            }else if( (ttemp = getenv("NREL")) )
             {
-                return(atoi(getenv("NREL")));
+		k = atoi(ttemp);
             }
-            else
-		return (options->superlu_relax);
-
+            else {
+		k = options->superlu_relax;
+	    }
+	    k = SUPERLU_MIN( k, sp_ienv_dist(3,options) ); // not to exceed MAXSUP
+	    return (k);
+
 	case 3: 
 	    ttemp = getenv("SUPERLU_MAXSUP"); // take min of MAX_SUPER_SIZE in superlu_defs.h
             if(ttemp)