Lines Matching refs:ienb
194 integer, allocatable :: ienb(:) local
231 allocate( ienb(nshl) )
235 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
245 e1 = x(ienb(2),:)-x(ienb(1),:)
246 e2 = x(ienb(3),:)-x(ienb(1),:)
258 nn=ienb(j) ! global node number
268 deallocate(ienb)
749 integer, allocatable :: ienb(:) local
766 allocate( ienb(nshl) )
770 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
775 nn=ienb(can)
782 vec(:)=x(ienb(can),:)-x(ienb(nod),:)
786 vec(:)=vec(:)*wnrm(ienb(nod),:)
792 otwn(ienb(nod)) = ienb(can)
799 deallocate(ienb)