Changeset 39369

Timestamp:

Feb 23, 2016, 5:36:13 AM (10 years ago)

Author:

eugene

Message:

quiet error/warning messages from gaussj

File:

• trunk/Ohana/src/libohana/src/gaussj.c (modified) (4 diffs)

trunk/Ohana/src/libohana/src/gaussj.c

@@ -57 +57 @@
     for (row = 0; row < N; row++) {
       if (!finite(A[row][diag])) { 
-        fprintf (stderr, "infinity\n"); 
+        push_error ("infinity"); 
         goto escape; 
       }
@@ -90 +90 @@
     // if pivot[maxcol] is set, we have already done this row: this implies a singular matrix
     if (pivot[maxcol]) { 
-      fprintf (stderr, "singular\n"); 
+      push_error ("singular"); 
       goto escape; 
     }
@@ -103 +103 @@
     colIndex[diag] = maxcol;
     if (A[maxcol][maxcol] == 0.0) { 
-      fprintf (stderr, "zero pivot\n"); 
+      push_error ("zero pivot"); 
       goto escape;
     }
@@ -143 +143 @@
 
     if (fabs(growth) > MAX_RANGE) { 
-      fprintf (stderr, "max range\n"); 
+      push_error ("max range"); 
 # if (VERY_VERBOSE)
       fprintf (stderr, "full A matrix:\n");