Lines Matching refs:kplus1
30 integer kplus1;
241 kplus1 = *k + 1;
249 l = kplus1 - j;
268 i__3 = kplus1 + j * a_dim1;
286 l = kplus1 - j;
306 i__2 = kplus1 + j * a_dim1;
404 kplus1 = *k + 1;
409 l = kplus1 - j;
412 i__3 = kplus1 + j * a_dim1;
434 d_cnjg(&z__2, &a[kplus1 + j * a_dim1]);
467 l = kplus1 - j;
470 i__3 = kplus1 + j * a_dim1;
493 d_cnjg(&z__2, &a[kplus1 + j * a_dim1]);
