diff --git a/src/frontend/inp.c b/src/frontend/inp.c index c46fcc1fe..1ec749cb0 100644 --- a/src/frontend/inp.c +++ b/src/frontend/inp.c @@ -1768,6 +1768,7 @@ limit(double nominal_val, double abs_variation) * So we have to do the following in each B-line: * check for agauss(x,y,z), and replace it by a suitable return value * of agauss() + * agauss may also occur in .param lines, which have to be treated as well */ static void @@ -1795,7 +1796,7 @@ eval_agauss_bsource(struct line *deck, char *fcn) continue; } - if (*curr_line != 'b') + if ((*curr_line != 'b') && !ciprefix(".param", curr_line)) continue; while ((ap = search_identifier(curr_line, fcn, curr_line)) != NULL) {