From 1d4138da8f3b43e1832116ae0dd916e0e0bd379e Mon Sep 17 00:00:00 2001 From: h_vogt Date: Sat, 4 Jun 2016 09:49:32 +0200 Subject: [PATCH] inp.c, add .param lines to evaluatuion of agauss etc. --- src/frontend/inp.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) {