Lines Matching refs:i__3
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
251 i__2 = 1, i__3 = j - *k;
253 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
255 i__3 = i__;
260 z__1.r = x[i__3].r + z__2.r, z__1.i = x[i__3].i +
268 i__3 = kplus1 + j * a_dim1;
269 z__1.r = x[i__2].r * a[i__3].r - x[i__2].i * a[
270 i__3].i, z__1.i = x[i__2].r * a[i__3].i +
271 x[i__2].i * a[i__3].r;
289 i__3 = j - 1;
290 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
304 i__3 = jx;
310 x[i__3].r = z__1.r, x[i__3].i = z__1.i;
329 i__1 = *n, i__3 = j + *k;
331 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
333 i__3 = i__;
338 z__1.r = x[i__3].r + z__2.r, z__1.i = x[i__3].i +
346 i__3 = j * a_dim1 + 1;
347 z__1.r = x[i__1].r * a[i__3].r - x[i__1].i * a[
348 i__3].i, z__1.i = x[i__1].r * a[i__3].i +
349 x[i__1].i * a[i__3].r;
367 i__3 = j + 1;
368 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
382 i__3 = jx;
388 x[i__3].r = z__1.r, x[i__3].i = z__1.i;
407 i__3 = j;
408 temp.r = x[i__3].r, temp.i = x[i__3].i;
412 i__3 = kplus1 + j * a_dim1;
413 z__1.r = temp.r * a[i__3].r - temp.i * a[i__3].i,
414 z__1.i = temp.r * a[i__3].i + temp.i * a[
415 i__3].r;
420 i__3 = max(i__4,i__1);
421 for (i__ = j - 1; i__ >= i__3; --i__) {
442 i__3 = max(i__4,i__1);
443 for (i__ = j - 1; i__ >= i__3; --i__) {
455 i__3 = j;
456 x[i__3].r = temp.r, x[i__3].i = temp.i;
463 i__3 = jx;
464 temp.r = x[i__3].r, temp.i = x[i__3].i;
470 i__3 = kplus1 + j * a_dim1;
471 z__1.r = temp.r * a[i__3].r - temp.i * a[i__3].i,
472 z__1.i = temp.r * a[i__3].i + temp.i * a[
473 i__3].r;
478 i__3 = max(i__4,i__1);
479 for (i__ = j - 1; i__ >= i__3; --i__) {
501 i__3 = max(i__4,i__1);
502 for (i__ = j - 1; i__ >= i__3; --i__) {
515 i__3 = jx;
516 x[i__3].r = temp.r, x[i__3].i = temp.i;
523 i__3 = *n;
524 for (j = 1; j <= i__3; ++j) {
579 i__3 = *n;
580 for (j = 1; j <= i__3; ++j) {
