Lines Matching refs:ienb
10 integer, allocatable :: ienb(:) local
32 allocate(ienb(nshl))
37 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
39 nn=ienb(j)
50 aedg(:)=x(ienb(j+1),:)-x(nn,:)
51 bedg(:)=x(ienb(j-1),:)-x(nn,:)
53 aedg(:)=x(ienb(j+1),:)-x(nn,:)
54 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
56 aedg(:)=x(ienb(1),:)-x(nn,:)
57 bedg(:)=x(ienb(j-1),:)-x(nn,:)
65 deallocate(ienb)