From dc8494a1b16a4ac9ae9452a424378c0e914f73d4 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 evaluation 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 e4d310244..52bca1423 100644 --- a/src/frontend/inp.c +++ b/src/frontend/inp.c @@ -1931,6 +1931,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 @@ -1958,7 +1959,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) {