Lines Matching refs:i__
23 integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
224 for (i__ = 1; i__ <= i__1; ++i__) {
225 y[i__] = 0.;
230 for (i__ = 1; i__ <= i__1; ++i__) {
231 y[i__] = *beta * y[i__];
239 for (i__ = 1; i__ <= i__1; ++i__) {
246 for (i__ = 1; i__ <= i__1; ++i__) {
271 for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {
272 y[i__] += temp1 * a[l + i__ + j * a_dim1];
273 temp2 += a[l + i__ + j * a_dim1] * x[i__];
292 for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {
293 y[iy] += temp1 * a[l + i__ + j * a_dim1];
294 temp2 += a[l + i__ + j * a_dim1] * x[ix];
324 for (i__ = j + 1; i__ <= i__3; ++i__) {
325 y[i__] += temp1 * a[l + i__ + j * a_dim1];
326 temp2 += a[l + i__ + j * a_dim1] * x[i__];
346 for (i__ = j + 1; i__ <= i__3; ++i__) {
349 y[iy] += temp1 * a[l + i__ + j * a_dim1];
350 temp2 += a[l + i__ + j * a_dim1] * x[ix];
