Lines Matching refs:j
66 do j = i, i+n3m-1
67 gfath(j) = counter
73 do j = 1, numpe
75 ifath(j,i) = gfath(imap(ncorp(j,i)))
93 do j = 1, nc4, n3m
95 do k = j, j+n3m-1
104 do j = 1, numpe
106 ifath(j,i) = gfath(imap(ncorp(j,i)))
131 do j = 1, numnp
132 i = iper(j)
133 if (i .ne. j) then
134 dummy(j) = 0
149 do j=1,vnumnpl(i)
150 ifath(i,j)=j