Lines Matching refs:i__
23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
226 for (i__ = 1; i__ <= i__1; ++i__) {
227 y[i__] = 0.f;
232 for (i__ = 1; i__ <= i__1; ++i__) {
233 y[i__] = *beta * y[i__];
241 for (i__ = 1; i__ <= i__1; ++i__) {
248 for (i__ = 1; i__ <= i__1; ++i__) {
273 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
274 y[i__] += temp1 * a[l + i__ + j * a_dim1];
275 temp2 += a[l + i__ + j * a_dim1] * x[i__];
294 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
295 y[iy] += temp1 * a[l + i__ + j * a_dim1];
296 temp2 += a[l + i__ + j * a_dim1] * x[ix];
326 for (i__ = j + 1; i__ <= i__3; ++i__) {
327 y[i__] += temp1 * a[l + i__ + j * a_dim1];
328 temp2 += a[l + i__ + j * a_dim1] * x[i__];
348 for (i__ = j + 1; i__ <= i__3; ++i__) {
351 y[iy] += temp1 * a[l + i__ + j * a_dim1];
352 temp2 += a[l + i__ + j * a_dim1] * x[ix];
