Lines Matching refs:a_dim1
20 integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5;
184 a_dim1 = *lda;
185 a_offset = 1 + a_dim1;
256 i__5 = l + i__ + j * a_dim1;
268 i__3 = kplus1 + j * a_dim1;
293 i__5 = l + i__ + j * a_dim1;
306 i__2 = kplus1 + j * a_dim1;
334 i__2 = l + i__ + j * a_dim1;
346 i__3 = j * a_dim1 + 1;
371 i__2 = l + i__ + j * a_dim1;
384 i__1 = j * a_dim1 + 1;
412 i__3 = kplus1 + j * a_dim1;
422 i__4 = l + i__ + j * a_dim1;
434 d_cnjg(&z__2, &a[kplus1 + j * a_dim1]);
444 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
470 i__3 = kplus1 + j * a_dim1;
480 i__4 = l + i__ + j * a_dim1;
493 d_cnjg(&z__2, &a[kplus1 + j * a_dim1]);
503 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
530 i__4 = j * a_dim1 + 1;
540 i__1 = l + i__ + j * a_dim1;
552 d_cnjg(&z__2, &a[j * a_dim1 + 1]);
562 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
588 i__4 = j * a_dim1 + 1;
598 i__1 = l + i__ + j * a_dim1;
611 d_cnjg(&z__2, &a[j * a_dim1 + 1]);
621 d_cnjg(&z__3, &a[l + i__ + j * a_dim1]);
