Lines Matching refs:i__
23 integer i__, j, l, ix, jx, kx, info;
246 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
247 x[i__] += temp * a[l + i__ + j * a_dim1];
267 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
268 x[ix] += temp * a[l + i__ + j * a_dim1];
292 for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {
293 x[i__] += temp * a[l + i__ + j * a_dim1];
313 for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {
314 x[ix] += temp * a[l + i__ + j * a_dim1];
346 for (i__ = j - 1; i__ >= i__3; --i__) {
347 temp += a[l + i__ + j * a_dim1] * x[i__];
367 for (i__ = j - 1; i__ >= i__3; --i__) {
368 temp += a[l + i__ + j * a_dim1] * x[ix];
389 for (i__ = j + 1; i__ <= i__4; ++i__) {
390 temp += a[l + i__ + j * a_dim1] * x[i__];
410 for (i__ = j + 1; i__ <= i__4; ++i__) {
411 temp += a[l + i__ + j * a_dim1] * x[ix];
