Home | History | Annotate | Download | only in f2c

Lines Matching refs:i__3

20     integer i__1, i__2, i__3, i__4, i__5;
202 i__3 = i__;
203 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
204 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
224 i__3 = iy;
225 q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
226 q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
254 i__3 = i__;
261 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
263 i__3 = i__;
264 q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =
265 q__3.r * x[i__3].i + q__3.i * x[i__3].r;
272 i__3 = j;
276 q__2.r = y[i__3].r + q__3.r, q__2.i = y[i__3].i + q__3.i;
298 i__3 = iy;
305 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
307 i__3 = ix;
308 q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =
309 q__3.r * x[i__3].i + q__3.i * x[i__3].r;
317 i__3 = jy;
321 q__2.r = y[i__3].r + q__3.r, q__2.i = y[i__3].i + q__3.i;
345 i__3 = j;
349 q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;
354 i__3 = i__;
361 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
363 i__3 = i__;
364 q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =
365 q__3.r * x[i__3].i + q__3.i * x[i__3].r;
372 i__3 = j;
375 q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;
391 i__3 = jy;
395 q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;
403 i__3 = iy;
410 y[i__3].r = q__1.r, y[i__3].i = q__1.i;
412 i__3 = ix;
413 q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i, q__2.i =
414 q__3.r * x[i__3].i + q__3.i * x[i__3].r;
420 i__3 = jy;
423 q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;