Changeset 16117 for trunk/Ohana/src/opihi/cmd.data/gaussj.c

Timestamp:

Jan 17, 2008, 12:57:48 PM (19 years ago)

Author:

eugene

Message:

cleanups for gaussj, fft; update tests

File:

• trunk/Ohana/src/opihi/cmd.data/gaussj.c (modified) (2 diffs)

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

@@ -5 +5 @@
   float *m, *v;
   double **a, **b;
-  int i, j, N, status;
+  int i, j, N, status, QUIET;
   Vector *B;
   Buffer *A;
+
+  QUIET = FALSE;
+  if ((N = get_argument (argc, argv, "-q"))) {
+    QUIET = TRUE;
+    remove_argument (N, &argc, argv);
+  }
 
   if (argc != 3) goto usage;
@@ -50 +56 @@
   free (b);
 
-  if (!status) {
+  if (!status && !QUIET) {
       gprint (GP_ERR, "failure in matrix solution\n");
   }