parameter file real format recognition was broken, fixed

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

1 files changed, 18 insertions, 2 deletions

diff --git a/src/main/Parameters.c b/src/main/Parameters.c
index 1c17a27f..f13d0531 100644
--- a/src/main/Parameters.c
+++ b/src/main/Parameters.c
@@ -1544,14 +1544,30 @@ static int ParameterSetInteger(t_param *param, const char *value)
   return retval;
 }
 
+
+
 static int ParameterSetReal(t_param *param, const char *value)
 {
-  int retval;
+  int retval,p;
   t_range *range;
   double inval;
   CCTK_REAL *val;
+  char temp[1001];
+
+  /*  Convert the value string to a double. Allow various formats.*/
+  strncpy(temp, value, 1000);
+  for (p=0;p<strlen(temp);p++) 
+  {
+    if (temp[p] == 'E' || 
+	temp[p] == 'd' || 
+	temp[p] == 'D') 
+    {
+      temp[p] = 'e';
+      break;
+    }
+  }
+  inval = atof(temp);
 
-  inval = atof(value);
   val = (CCTK_REAL *)param->data;
   retval = -1;
   for(range = param->props->range; range ; range = range->next)