From 277842f94866fb3e2b4b7ce3049d51ae12bca279 Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Thu, 1 Nov 2018 21:17:36 +0100
Subject: [PATCH] update to model search function

---
 src/frontend/inpcom.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index d1d29c385..036bcac5a 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -1816,6 +1816,7 @@ static int
 is_a_modelname(const char *s)
 {
     char *st;
+    double testval;
     /* first character of model name is character from alphabet */
     if (isalpha_c(s[0]))
         return TRUE;
@@ -1823,7 +1824,11 @@ is_a_modelname(const char *s)
     if (strchr("{*^@\\\'", s[0]))
         return FALSE;
     /* not beeing a valid number */
-    if (strtod(s, &st))
+    testval = strtod(s, &st);
+    /* conversion failed, so no number */
+    if (eq(s, st))
+        return TRUE;
+    else
         /* test if we have a true number */
         if (*st == '\0' || isspace(*st))
             return FALSE;