Lines Matching refs:can
744 integer iel, nod, can local
774 do can=nenbl+1,nenl ! loop over off-the-wall candidates
775 nn=ienb(can)
782 vec(:)=x(ienb(can),:)-x(ienb(nod),:)
792 otwn(ienb(nod)) = ienb(can)
807 do can = 1, nshg ! loop over nodes
808 if(nsurf(can).eq.0) then ! if this candidate is off the
810 if(ibits(iBC(can),3,3).eq.7 .and.
811 & BCtmp(can,7).eq.zero) then ! no slip nodes not allowed
813 vec(:)=x(nn,:)-x(can,:)
817 otwn(nn)=can