Lines Matching refs:ienb
32 integer, allocatable :: ienb(:) local
55 allocate(ienb(nshl))
58 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
60 nn=ienb(j) !nn is the global index of suction node
62 aedg(:)=x(ienb(j+1),:)-x(nn,:)
63 bedg(:)=x(ienb(j-1),:)-x(nn,:)
65 aedg(:)=x(ienb(j+1),:)-x(nn,:)
66 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
68 aedg(:)=x(ienb(1),:)-x(nn,:)
69 bedg(:)=x(ienb(j-1),:)-x(nn,:)
79 deallocate(ienb)