Lines Matching defs:a_dim1
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
171 a_dim1 = *lda;
172 a_offset = 1 + a_dim1;
274 y[i__] += temp1 * a[l + i__ + j * a_dim1];
275 temp2 += a[l + i__ + j * a_dim1] * x[i__];
278 y[j] = y[j] + temp1 * a[kplus1 + j * a_dim1] + *alpha * temp2;
295 y[iy] += temp1 * a[l + i__ + j * a_dim1];
296 temp2 += a[l + i__ + j * a_dim1] * x[ix];
301 y[jy] = y[jy] + temp1 * a[kplus1 + j * a_dim1] + *alpha *
321 y[j] += temp1 * a[j * a_dim1 + 1];
327 y[i__] += temp1 * a[l + i__ + j * a_dim1];
328 temp2 += a[l + i__ + j * a_dim1] * x[i__];
341 y[jy] += temp1 * a[j * a_dim1 + 1];
351 y[iy] += temp1 * a[l + i__ + j * a_dim1];
352 temp2 += a[l + i__ + j * a_dim1] * x[ix];