Lines Matching refs:fi
67 FLOAT *fi, *gi;
81 fi = fz;
82 gi = fi + kx;
85 f1 = fi[0] - fi[k1];
86 f0 = fi[0] + fi[k1];
87 f3 = fi[k2] - fi[k3];
88 f2 = fi[k2] + fi[k3];
89 fi[k2] = f0 - f2;
90 fi[0] = f0 + f2;
91 fi[k3] = f1 - f3;
92 fi[k1] = f1 + f3;
102 fi += k4;
103 } while (fi < fn);
110 fi = fz + i;
114 b = s2 * fi[k1] - c2 * gi[k1];
115 a = c2 * fi[k1] + s2 * gi[k1];
116 f1 = fi[0] - a;
117 f0 = fi[0] + a;
120 b = s2 * fi[k3] - c2 * gi[k3];
121 a = c2 * fi[k3] + s2 * gi[k3];
122 f3 = fi[k2] - a;
123 f2 = fi[k2] + a;
128 fi[k2] = f0 - a;
129 fi[0] = f0 + a;
136 fi[k3] = f1 - b;
137 fi[k1] = f1 + b;
139 fi += k4;
140 } while (fi < fn);