diff --git a/src/spicelib/parser/inpeval.c b/src/spicelib/parser/inpeval.c
index c5c460d37..8b0b48ddc 100644
--- a/src/spicelib/parser/inpeval.c
+++ b/src/spicelib/parser/inpeval.c
@@ -9,8 +9,10 @@ Author: 1985 Thomas L. Quarles
 #include "ngspice/inpdefs.h"
 #include "inpxx.h"
 
-double INPevaluate(char **line, int *error, int gobble)
-		/* non-zero to gobble rest of token, zero to leave it alone */
+
+double
+INPevaluate(char **line, int *error, int gobble)
+/* gobble: non-zero to gobble rest of token, zero to leave it alone */
 {
     char *token;
     char *here;
@@ -23,12 +25,13 @@ double INPevaluate(char **line, int *error, int gobble)
 
     /* setup */
     tmpline = *line;
+
     if (gobble == 1) {
-    /* MW. INPgetUTok should be called with gobble=0 or it make
-	 * errors in v(1,2) exp */
+        /* MW. INPgetUTok should be called with gobble=0 or it make
+         * errors in v(1,2) exp */
         *error = INPgetUTok(line, &token, 0);
         if (*error)
-        return (0.0);
+            return (0.0);
     } else if (gobble == 2) {
         *error = INPgetU2Tok(line, &token, 0);
         if (*error)
@@ -37,21 +40,25 @@ double INPevaluate(char **line, int *error, int gobble)
         token = *line;
         *error = 0;
     }
+
     mantis = 0;
     expo1 = 0;
     expo2 = 0;
     sign = 1;
     expsgn = 1;
+
     /* loop through all of the input token */
     here = token;
+
     if (*here == '+')
-        here++;			/* plus, so do nothing except skip it */
-    else if (*here == '-') {		/* minus, so skip it, and change sign */
+        here++;                 /* plus, so do nothing except skip it */
+    else if (*here == '-') {    /* minus, so skip it, and change sign */
         here++;
         sign = -1;
     }
+
     if ((*here == '\0') || ((!(isdigit(*here))) && (*here != '.'))) {
-	/* number looks like just a sign! */
+        /* number looks like just a sign! */
         *error = 1;
         if (gobble) {
             FREE(token);
@@ -60,11 +67,13 @@ double INPevaluate(char **line, int *error, int gobble)
         }
         return (0);
     }
+
     while (isdigit(*here)) {
         /* digit, so accumulate it. */
         mantis = 10 * mantis + *here - '0';
         here++;
     }
+
     if (*here == '\0') {
         /* reached the end of token - done. */
         if (gobble) {
@@ -74,6 +83,7 @@ double INPevaluate(char **line, int *error, int gobble)
         }
         return ((double) mantis * sign);
     }
+
     if (*here == ':') {
         /* ':' is no longer used for subcircuit node numbering
            but is part of ternary function a?b:c
@@ -86,10 +96,12 @@ double INPevaluate(char **line, int *error, int gobble)
         }
         return ((double) mantis * sign);
     }
+
     /* after decimal point! */
     if (*here == '.') {
         /* found a decimal point! */
-        here++;			/* skip to next character */
+        here++;                 /* skip to next character */
+
         if (*here == '\0') {
             /* number ends in the decimal point */
             if (gobble) {
@@ -99,6 +111,7 @@ double INPevaluate(char **line, int *error, int gobble)
             }
             return ((double) mantis * sign);
         }
+
         while (isdigit(*here)) {
             /* digit, so accumulate it. */
             mantis = 10 * mantis + *here - '0';
@@ -110,106 +123,110 @@ double INPevaluate(char **line, int *error, int gobble)
                 } else {
                     *line = here;
                 }
-                return (mantis * sign * pow(10., (double) expo1));
+                return (mantis * sign * pow(10.0, (double) expo1));
             }
             here++;
         }
     }
+
     /* now look for "E","e",etc to indicate an exponent */
-    if ((*here == 'E') || (*here == 'e') || (*here == 'D')
-        || (*here == 'd')) {
+    if ((*here == 'E') || (*here == 'e') || (*here == 'D') || (*here == 'd')) {
+
         /* have an exponent, so skip the e */
         here++;
+
         /* now look for exponent sign */
         if (*here == '+')
-            here++;		/* just skip + */
+            here++;             /* just skip + */
         else if (*here == '-') {
-            here++;		/* skip over minus sign */
-            expsgn = -1;	/* and make a negative exponent */
+            here++;             /* skip over minus sign */
+            expsgn = -1;        /* and make a negative exponent */
             /* now look for the digits of the exponent */
         }
+
         while (isdigit(*here)) {
             expo2 = 10 * expo2 + *here - '0';
             here++;
         }
     }
+
     /* now we have all of the numeric part of the number, time to
      * look for the scale factor (alphabetic)
      */
     switch (*here) {
-        case 't':
-        case 'T':
-	        expo1 = expo1 + 12;
-            break;
-        case 'g':
-        case 'G':
-            expo1 = expo1 + 9;
-            break;
-        case 'k':
-        case 'K':
-            expo1 = expo1 + 3;
-            break;
-        case 'u':
-        case 'U':
-            expo1 = expo1 - 6;
-            break;
-        case 'n':
-        case 'N':
-            expo1 = expo1 - 9;
-            break;
-        case 'p':
-        case 'P':
-            expo1 = expo1 - 12;
-            break;
-        case 'f':
-        case 'F':
-            expo1 = expo1 - 15;
-            break;
-        case 'm':
-        case 'M':
-        {
-            /* special case for m - may be m or mil or meg */
-            if (here[1] != '\0' && here[2] != '\0') {
-                /* at least 2 characters, so check them. */
-                if ((here[1] == 'E') || (here[1] == 'e')) {
-                    if ((here[2] == 'G') || (here[2] == 'g')) {
-                        expo1 = expo1 + 6;
-                        if (gobble) {
-                            FREE(token);
-                        } else {
-                            *line = here;
-                        }
-                        return (sign * mantis *
-                            pow(10.0,
-                            (double) (expo1 + expsgn * expo2)));
+    case 't':
+    case 'T':
+        expo1 = expo1 + 12;
+        break;
+    case 'g':
+    case 'G':
+        expo1 = expo1 + 9;
+        break;
+    case 'k':
+    case 'K':
+        expo1 = expo1 + 3;
+        break;
+    case 'u':
+    case 'U':
+        expo1 = expo1 - 6;
+        break;
+    case 'n':
+    case 'N':
+        expo1 = expo1 - 9;
+        break;
+    case 'p':
+    case 'P':
+        expo1 = expo1 - 12;
+        break;
+    case 'f':
+    case 'F':
+        expo1 = expo1 - 15;
+        break;
+    case 'm':
+    case 'M':
+    {
+        /* special case for m - may be m or mil or meg */
+        if (here[1] != '\0' && here[2] != '\0') {
+            /* at least 2 characters, so check them. */
+            if ((here[1] == 'E') || (here[1] == 'e')) {
+                if ((here[2] == 'G') || (here[2] == 'g')) {
+                    expo1 = expo1 + 6;
+                    if (gobble) {
+                        FREE(token);
+                    } else {
+                        *line = here;
                     }
-                } else if ((here[1] == 'I') || (here[1] == 'i')) {
-                    if ((here[2] == 'L') || (here[2] == 'l')) {
-                        expo1 = expo1 - 6;
-                        mantis = mantis * 25.4;
-                        if (gobble) {
-                            FREE(token);
-                        } else {
-                            *line = here;
-                        }
-                        return (sign * mantis *
-                            pow(10.0,
-                            (double) (expo1 + expsgn * expo2)));
+                    return (sign * mantis *
+                            pow(10.0, (double) (expo1 + expsgn * expo2)));
+                }
+            } else if ((here[1] == 'I') || (here[1] == 'i')) {
+                if ((here[2] == 'L') || (here[2] == 'l')) {
+                    expo1 = expo1 - 6;
+                    mantis = mantis * 25.4;
+                    if (gobble) {
+                        FREE(token);
+                    } else {
+                        *line = here;
                     }
+                    return (sign * mantis *
+                            pow(10.0, (double) (expo1 + expsgn * expo2)));
                 }
             }
-            /* not either special case, so just m => 1e-3 */
-            expo1 = expo1 - 3;
-	    }
-	    break;
-    default:
-	    break;
+        }
+        /* not either special case, so just m => 1e-3 */
+        expo1 = expo1 - 3;
     }
+    break;
+    default:
+        break;
+    }
+
     if (gobble) {
         FREE(token);
     } else {
         *line = here;
     }
+
     return (sign * mantis *
-        pow(10.0, (double) (expo1 + expsgn * expo2)));
+            pow(10.0, (double) (expo1 + expsgn * expo2)));
 }