Lines Matching refs:a_dim1
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
180 a_dim1 = *lda;
181 a_offset = 1 + a_dim1;
247 x[i__] += temp * a[l + i__ + j * a_dim1];
251 x[j] *= a[kplus1 + j * a_dim1];
268 x[ix] += temp * a[l + i__ + j * a_dim1];
273 x[jx] *= a[kplus1 + j * a_dim1];
293 x[i__] += temp * a[l + i__ + j * a_dim1];
297 x[j] *= a[j * a_dim1 + 1];
314 x[ix] += temp * a[l + i__ + j * a_dim1];
319 x[jx] *= a[j * a_dim1 + 1];
341 temp *= a[kplus1 + j * a_dim1];
347 temp += a[l + i__ + j * a_dim1] * x[i__];
362 temp *= a[kplus1 + j * a_dim1];
368 temp += a[l + i__ + j * a_dim1] * x[ix];
384 temp *= a[j * a_dim1 + 1];
390 temp += a[l + i__ + j * a_dim1] * x[i__];
405 temp *= a[j * a_dim1 + 1];
411 temp += a[l + i__ + j * a_dim1] * x[ix];
