Index: /branches/eam_branches/ipp-20150616/Ohana/src/libohana/include/ohana.h
===================================================================
--- /branches/eam_branches/ipp-20150616/Ohana/src/libohana/include/ohana.h	(revision 38497)
+++ /branches/eam_branches/ipp-20150616/Ohana/src/libohana/include/ohana.h	(revision 38498)
@@ -333,4 +333,5 @@
 char   *SelectConfigFile       PROTO((int *argc, char **argv, char *progname));
 char   *LoadConfigFile         PROTO((char *filename));
+void    FreeConfigFile         PROTO((void));
 char   *ScanConfig             PROTO((char *config, char *field, char *mode, int N,...)) OHANA_FORMAT(scanf, 3, 5);
 char   *expandline             PROTO((char *line, char *config));
Index: /branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/config.c
===================================================================
--- /branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/config.c	(revision 38497)
+++ /branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/config.c	(revision 38498)
@@ -7,4 +7,15 @@
 static char **DefineVariable;
 static char **DefineValue;
+
+void FreeConfigFile (void) {
+  int i;
+  for (i = 0; i < NDefineVariable; i++) {
+    free (DefineVariable[i]);
+    free (DefineValue[i]);
+  }
+  free (DefineVariable);
+  free (DefineValue);
+  free (ConfigVariable);
+}
 
 char *SelectConfigFile (int *argc, char **argv, char *progname) {
Index: /branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/gaussj.c
===================================================================
--- /branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/gaussj.c	(revision 38497)
+++ /branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/gaussj.c	(revision 38498)
@@ -144,4 +144,14 @@
     if (fabs(growth) > MAX_RANGE) { 
       fprintf (stderr, "max range\n"); 
+# if (VERY_VERBOSE)
+      fprintf (stderr, "full A matrix:\n");
+      for (row = 0; row < N; row++) {
+	for (col = 0; col < N; col++) {
+	  fprintf (stderr, "%10.3e ", A[row][col]);
+	}
+	fprintf (stderr, "\n");
+      }
+      fprintf (stderr, "\n");
+# endif
       goto escape;
     }
