1273     double wkr, wki, xr, xi, yr, yi;  in rftfsub()  local
1281         wkr = 0.5 - c[nc - kk];  in rftfsub()
1285         yr = wkr * xr - wki * xi;  in rftfsub()
1286         yi = wkr * xi + wki * xr;  in rftfsub()
1298     double wkr, wki, xr, xi, yr, yi;  in rftbsub()  local
1307         wkr = 0.5 - c[nc - kk];  in rftbsub()
1311         yr = wkr * xr + wki * xi;  in rftbsub()
1312         yi = wkr * xi - wki * xr;  in rftbsub()
1325     double wkr, wki, xr;  in dctsub()  local
1333         wkr = c[kk] - c[nc - kk];  in dctsub()
1335         xr = wki * a[j] - wkr * a[k];  in dctsub()
1336         a[j] = wkr * a[j] + wki * a[k];  in dctsub()
1346     double wkr, wki, xr;  in dstsub()  local
1354         wkr = c[kk] - c[nc - kk];  in dstsub()
1356         xr = wki * a[k] - wkr * a[j];  in dstsub()
1357         a[k] = wkr * a[k] + wki * a[j];  in dstsub()