Subject: getdoublearr.stripwhite
From: Michel Normand <normand@fr.ibm.com>

GetDoubleArr must only handle the comma delimited list at string head
and ignore anything after the first blank character.

Signed-off-by: Michel Normand <normand@fr.ibm.com>
---
 ATLAS/include/atlas_genparse.h |   16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

Index: atlas/ATLAS/include/atlas_genparse.h
===================================================================
--- atlas.orig/ATLAS/include/atlas_genparse.h
+++ atlas/ATLAS/include/atlas_genparse.h
@@ -149,13 +149,24 @@ static int asmNames2bitfield(char *str)
 }
 
 /* procedure 7 */
-static int GetDoubleArr(char *str, int N, double *d)
+static int GetDoubleArr(char *callerstr, int N, double *d)
 /*
  * Reads in a list with form "%le,%le...,%le"; N-length d recieves doubles.
  * RETURNS: the number of doubles found, or N, whichever is less
  */
 {
-   int i=1;
+   int i;
+   char *dupstr = DupString(callerstr);
+   char *str = dupstr;
+   /* strip the string to end on first white space */
+   for (i=0; dupstr[i]; i++)
+   {
+	if (isspace(dupstr[i])) {
+		dupstr[i] = '\0';
+		break;
+	}
+   }
+   i = 1;
    assert(sscanf(str, "%le", d) == 1);
    while (i < N)
    {
@@ -166,6 +177,7 @@ static int GetDoubleArr(char *str, int N
	break;
       i++;
    }
+   free(dupstr);
    return(i);
 }