Lines Matching refs:i__
29 integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
235 for (i__ = 1; i__ <= i__1; ++i__) {
236 i__2 = i__;
242 for (i__ = 1; i__ <= i__1; ++i__) {
243 i__2 = i__;
244 i__3 = i__;
256 for (i__ = 1; i__ <= i__1; ++i__) {
264 for (i__ = 1; i__ <= i__1; ++i__) {
297 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
298 i__2 = i__;
299 i__3 = i__;
300 i__5 = l + i__ + j * a_dim1;
306 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
307 i__2 = i__;
342 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
345 i__5 = l + i__ + j * a_dim1;
351 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
403 for (i__ = j + 1; i__ <= i__3; ++i__) {
404 i__4 = i__;
405 i__2 = i__;
406 i__5 = l + i__ + j * a_dim1;
412 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
413 i__4 = i__;
451 for (i__ = j + 1; i__ <= i__3; ++i__) {
456 i__5 = l + i__ + j * a_dim1;
462 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
