1237     float wkr, wki, xr, xi, yr, yi;  in rftfsub()  local
1245         wkr = 0.5f - c[nc - kk];  in rftfsub()
1249         yr = wkr * xr - wki * xi;  in rftfsub()
1250         yi = wkr * xi + wki * xr;  in rftfsub()
1262     float wkr, wki, xr, xi, yr, yi;  in rftbsub()  local
1271         wkr = 0.5f - c[nc - kk];  in rftbsub()
1275         yr = wkr * xr + wki * xi;  in rftbsub()
1276         yi = wkr * xi - wki * xr;  in rftbsub()
1289     float wkr, wki, xr;
1297         wkr = c[kk] - c[nc - kk];
1299         xr = wki * a[j] - wkr * a[k];
1300         a[j] = wkr * a[j] + wki * a[k];
1310     float wkr, wki, xr;
1318         wkr = c[kk] - c[nc - kk];
1320         xr = wki * a[k] - wkr * a[j];
1321         a[k] = wkr * a[k] + wki * a[j];