luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fourier(), use for(;;) loops

This commit is contained in:
rlar 2012-09-30 23:02:25 +02:00
parent d06265142d
commit bc89379aff
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/frontend/fourier.c
View File

@ -87,22 +87,20 @@ fourier(wordlist *wl, struct plot *current_plot)
nphase = TMALLOC(double, nfreqs);
wl = wl->wl_next;
pn = ft_getpnames(wl, TRUE);
names = pn;
while (pn) {
names = ft_getpnames(wl, TRUE);
for (pn = names; pn; pn = pn->pn_next) {
vec = ft_evaluate(pn);
pn = pn->pn_next;
while (vec) {
for (; vec; vec = vec->v_link2) {
if (vec->v_length != time->v_length) {
fprintf(cp_err,
"Error: lengths don't match: %d, %d\n",
vec->v_length, time->v_length);
vec = vec->v_link2;
continue;
}
if (!isreal(vec)) {
fprintf(cp_err, "Error: %s isn't real!\n", vec->v_name);
vec = vec->v_link2;
continue;
}
@ -175,7 +173,6 @@ fourier(wordlist *wl, struct plot *current_plot)
fw, pnum(nmag[i]),
fw, pnum(nphase[i]));
fputs("\n", cp_out);
vec = vec->v_link2;
}
}