Index: trunk/Ohana/src/opihi/cmd.data/gaussj.c
===================================================================
--- trunk/Ohana/src/opihi/cmd.data/gaussj.c	(revision 14590)
+++ trunk/Ohana/src/opihi/cmd.data/gaussj.c	(revision 14914)
@@ -5,5 +5,5 @@
   float *m, *v;
   double **a, **b;
-  int i, j, N;
+  int i, j, N, status;
   Vector *B;
   Buffer *A;
@@ -33,5 +33,6 @@
     b[i][0] = v[i]; 
   }
-  dgaussj (a, N, b, 1);
+
+  status = dgaussj (a, N, b, 1);
 
   for (i = 0; i < N; i++) {
@@ -48,5 +49,9 @@
   free (a);
   free (b);
-  return (TRUE);
+
+  if (!status) {
+      gprint (GP_ERR, "failure in matrix solution\n");
+  }
+  return (status);
 
  usage: