Lines Matching refs:idij
32 static integer idp2, ipp2, idij; in radbg_() local
309 idij = is; in radbg_()
312 idij += 2; in radbg_()
315 c1[i__ - 1 + (k + j * c1_dim2) * c1_dim1] = wa[idij - 1] * ch[ in radbg_()
316 i__ - 1 + (k + j * ch_dim2) * ch_dim1] - wa[idij] * in radbg_()
318 c1[i__ + (k + j * c1_dim2) * c1_dim1] = wa[idij - 1] * ch[i__ in radbg_()
319 + (k + j * ch_dim2) * ch_dim1] + wa[idij] * ch[i__ - in radbg_()
335 idij = is; in radbg_()
338 idij += 2; in radbg_()
339 c1[i__ - 1 + (k + j * c1_dim2) * c1_dim1] = wa[idij - 1] * ch[ in radbg_()
340 i__ - 1 + (k + j * ch_dim2) * ch_dim1] - wa[idij] * in radbg_()
342 c1[i__ + (k + j * c1_dim2) * c1_dim1] = wa[idij - 1] * ch[i__ in radbg_()
343 + (k + j * ch_dim2) * ch_dim1] + wa[idij] * ch[i__ - in radbg_()