Lines Matching defs:fw
63 float z,fw,f[20],fq[20],q[20];
80 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
81 q[i] = fw;
88 fw = (float)((__int32_t)(twon8* z));
89 iq[i] = (__int32_t)(z-two8*fw);
90 z = q[j-1]+fw;
140 for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
141 q[i] = fw;
155 fw = (float)((__int32_t)(twon8*z));
156 iq[jz] = (__int32_t)(z-two8*fw);
158 iq[jz] = (__int32_t) fw;
163 fw = scalbnf(one,(int)q0);
165 q[i] = fw*(float)iq[i]; fw*=twon8;
170 for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
171 fq[jz-i] = fw;
177 fw = 0.0;
178 for (i=jz;i>=0;i--) fw += fq[i];
179 y[0] = (ih==0)? fw: -fw;
183 fw = 0.0;
184 for (i=jz;i>=0;i--) fw += fq[i];
185 y[0] = (ih==0)? fw: -fw;
186 fw = fq[0]-fw;
187 for (i=1;i<=jz;i++) fw += fq[i];
188 y[1] = (ih==0)? fw: -fw;
192 fw = fq[i-1]+fq[i];
193 fq[i] += fq[i-1]-fw;
194 fq[i-1] = fw;
197 fw = fq[i-1]+fq[i];
198 fq[i] += fq[i-1]-fw;
199 fq[i-1] = fw;
201 for (fw=0.0,i=jz;i>=2;i--) fw += fq[i];
203 y[0] = fq[0]; y[1] = fq[1]; y[2] = fw;
205 y[0] = -fq[0]; y[1] = -fq[1]; y[2] = -fw;
