Searched refs:nod (Results 1 – 2 of 2) sorted by relevance
744 integer iel, nod, can local755 do nod = 1, nshg756 otwn(nod)=nod772 do nod = 1, nenbl ! for each wall node in this belt782 vec(:)=x(ienb(can),:)-x(ienb(nod),:)786 vec(:)=vec(:)*wnrm(ienb(nod),:)792 otwn(ienb(nod)) = ienb(can)
33 iii) nod(#,NP)=0