Lines Matching refs:i__
28 integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
234 for (i__ = 1; i__ <= i__1; ++i__) {
235 i__2 = i__;
241 for (i__ = 1; i__ <= i__1; ++i__) {
242 i__2 = i__;
243 i__3 = i__;
255 for (i__ = 1; i__ <= i__1; ++i__) {
263 for (i__ = 1; i__ <= i__1; ++i__) {
296 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
297 i__2 = i__;
298 i__3 = i__;
299 i__5 = l + i__ + j * a_dim1;
305 r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);
306 i__2 = i__;
341 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
344 i__5 = l + i__ + j * a_dim1;
350 r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);
402 for (i__ = j + 1; i__ <= i__3; ++i__) {
403 i__4 = i__;
404 i__2 = i__;
405 i__5 = l + i__ + j * a_dim1;
411 r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);
412 i__4 = i__;
450 for (i__ = j + 1; i__ <= i__3; ++i__) {
455 i__5 = l + i__ + j * a_dim1;
461 r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);
