guard the print statement in the case when the matrix is singular.

xiaoyeli · Jun 22, 2024 · 6cecd12 · 6cecd12
1 parent 098f95e
commit 6cecd12
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 4 deletions.
diff --git a/SRC/cgssv.c b/SRC/cgssv.c
@@ -232,9 +232,12 @@ cgssv(superlu_options_t *options, SuperMatrix *A, int *perm_c, int *perm_r,
         /* Solve the system A*X=B, overwriting B with X. */
 	int info1;
         cgstrs (trans, L, U, perm_c, perm_r, B, stat, &info1);
-    } else {
+    }
+#if ( PRNTlevel>=1 )
+     else {
         printf("cgstrf info %lld\n", (long long) *info); fflush(stdout);
     }
+#endif
 
     utime[SOLVE] = SuperLU_timer_() - t;
 

diff --git a/SRC/dgssv.c b/SRC/dgssv.c
@@ -232,9 +232,12 @@ dgssv(superlu_options_t *options, SuperMatrix *A, int *perm_c, int *perm_r,
         /* Solve the system A*X=B, overwriting B with X. */
 	int info1;
         dgstrs (trans, L, U, perm_c, perm_r, B, stat, &info1);
-    } else {
+    }
+#if ( PRNTlevel>=1 )
+     else {
         printf("dgstrf info %lld\n", (long long) *info); fflush(stdout);
     }
+#endif
 
     utime[SOLVE] = SuperLU_timer_() - t;
 

diff --git a/SRC/sgssv.c b/SRC/sgssv.c
@@ -232,9 +232,12 @@ sgssv(superlu_options_t *options, SuperMatrix *A, int *perm_c, int *perm_r,
         /* Solve the system A*X=B, overwriting B with X. */
 	int info1;
         sgstrs (trans, L, U, perm_c, perm_r, B, stat, &info1);
-    } else {
+    }
+#if ( PRNTlevel>=1 )
+     else {
         printf("sgstrf info %lld\n", (long long) *info); fflush(stdout);
     }
+#endif
 
     utime[SOLVE] = SuperLU_timer_() - t;
 

diff --git a/SRC/zgssv.c b/SRC/zgssv.c
@@ -232,9 +232,12 @@ zgssv(superlu_options_t *options, SuperMatrix *A, int *perm_c, int *perm_r,
         /* Solve the system A*X=B, overwriting B with X. */
 	int info1;
         zgstrs (trans, L, U, perm_c, perm_r, B, stat, &info1);
-    } else {
+    }
+#if ( PRNTlevel>=1 )
+     else {
         printf("zgstrf info %lld\n", (long long) *info); fflush(stdout);
     }
+#endif
 
     utime[SOLVE] = SuperLU_timer_() - t;