Changeset 38498

Timestamp:

Jun 19, 2015, 3:07:27 PM (11 years ago)

Author:

eugene

Message:

adding free FreeConfigFile

Location:

branches/eam_branches/ipp-20150616/Ohana/src/libohana

Files:

• include/ohana.h (modified) (1 diff)
• src/config.c (modified) (1 diff)
• src/gaussj.c (modified) (1 diff)

branches/eam_branches/ipp-20150616/Ohana/src/libohana/include/ohana.h

@@ -333 +333 @@
 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));

branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/config.c

@@ -7 +7 @@
 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) {

branches/eam_branches/ipp-20150616/Ohana/src/libohana/src/gaussj.c

@@ -144 +144 @@
     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;
     }