Now reads in parameters - doesn't do anything with them, 'though !

Tom


git-svn-id: http://svn.cactuscode.org/flesh/trunk@47 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 22 insertions, 5 deletions

diff --git a/src/main/ProcessParameterDatabase.c b/src/main/ProcessParameterDatabase.c
index b1891ae2..f7090162 100644
--- a/src/main/ProcessParameterDatabase.c
+++ b/src/main/ProcessParameterDatabase.c
@@ -30,11 +30,28 @@ static char *rcsid = "$Id$";
 @@*/
 int ProcessParameterDatabase(tFleshConfig *ConfigData)
 {
-
+  int retval;
+  FILE *parameter_file;
+
+  CCTK_InitialiseParameters(ConfigData);
+
+  if((parameter_file = fopen(ConfigData->parameter_file_name, "r")))
+  {
+    ParseFile(parameter_file, CCTK_SetParameter);
+    fclose(parameter_file);
+    retval = 0;
+  }
+  else
+  {
+    fprintf(stderr, "Unable to open parameter file '%s'\n", 
+	            ConfigData->parameter_file_name);
+    retval = 1;
+  }
+      
   return 0;
 }
 
-
-
-
-
+int CCTK_InitialiseParameters(tFleshConfig *ConfigData)
+{
+  return 1;
+}