Changeset 7917 for trunk/Ohana/src/opihi/lib.data/gaussj.c

Timestamp:

Jul 16, 2006, 10:58:49 PM (20 years ago)

Author:

eugene

Message:

major updates to use gprint for buffered / threaded printing

File:

• trunk/Ohana/src/opihi/lib.data/gaussj.c (modified) (6 diffs)

trunk/Ohana/src/opihi/lib.data/gaussj.c

@@ -20 +20 @@
     for (j = 0; j < n; j++) {
       if (!finite(a[i][j])) {
-        fprintf (stderr, "GAUSSJ: NaN\n");
+        gprint (GP_ERR, "GAUSSJ: NaN\n");
         goto escape;
       }
@@ -34 +34 @@
           else 
             if (ipiv[k] > 1) {
-              fprintf (stderr, "GAUSSJ: Singular Matrix! (1)\n");
+              gprint (GP_ERR, "GAUSSJ: Singular Matrix! (1)\n");
               goto escape;
             }
@@ -50 +50 @@
     indxc[i] = icol;
     if (a[icol][icol] == 0.0) {
-      fprintf (stderr, "GAUSSJ: Singular Matrix! (2)\n");
+      gprint (GP_ERR, "GAUSSJ: Singular Matrix! (2)\n");
       goto escape;
     }
@@ -108 +108 @@
     for (j = 0; j < n; j++) {
       if (!finite(a[i][j])) {
-        fprintf (stderr, "GAUSSJ: NaN\n");
+        gprint (GP_ERR, "GAUSSJ: NaN\n");
         goto fescape;
       }
@@ -122 +122 @@
           else 
             if (ipiv[k] > 1) {
-              fprintf (stderr, "GAUSSJ: Singular Matrix! (1)\n");
+              gprint (GP_ERR, "GAUSSJ: Singular Matrix! (1)\n");
               goto fescape;
             }
@@ -138 +138 @@
     indxc[i] = icol;
     if (a[icol][icol] == 0.0) {
-      fprintf (stderr, "GAUSSJ: Singular Matrix! (2)\n");
+      gprint (GP_ERR, "GAUSSJ: Singular Matrix! (2)\n");
       goto fescape;
     }