Lines Matching refs:j
31 do j = 1, npro
32 if(miBCB(iblk)%p(j,5).eq.2) nwalli=nwalli+1
49 do j = 1, npro ! loop over belts in this blk
50 if(miBCB(iblk)%p(j,5).eq.2) then
54 xwi(nwalli,node,1:3)=x(mienb(iblk)%p(j,node),:)
76 do j=1,numpe
77 nwallt=nwallt+nwall(j)
89 do j=2,numpe
90 idisp(j)=idisp(j-1)+nwall(j-1)
92 do j=1,nenb+1
94 call MPI_ALLGATHERV(xwi(:,j,k),nwalli,
95 & MPI_DOUBLE_PRECISION,xw(:,j,k),nwall,idisp,
110 do j=1, nwallt
112 distance = ( x(i,1) - xw(j,k,1) )**2
113 & +( x(i,2) - xw(j,k,2) )**2
114 & +( x(i,3) - xw(j,k,3) )**2