Lines Matching refs:nn
39 nn=ienb(j)
40 if(ifirstvisit(nn).eq.1)then
41 ifirstvisit(nn)=0
43 idxslpw(nslpwnd)=nn
45 if(.not.btest(mpslpw(nn,2),islpw))then
46 mpslpw(nn,1)=mpslpw(nn,1)+1
47 mpslpw(nn,2)=mpslpw(nn,2)+2**islpw
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,:)
62 wlnorm(nn,:,islpw)=wlnorm(nn,:,islpw)+elnrm(:)
77 nn=idxslpw(id)
78 nslpw=mpslpw(nn,1)
79 ihis=mpslpw(nn,2)
96 AA(:)=wlnorm(nn,:,IDslpw(i))
97 BB(:)=wlnorm(nn,:,IDslpw(j))
101 wlnorm(nn,:,IDslpw(i))=AA(:)+BB(:)
108 wn1(:)=wlnorm(nn,:,k)
110 if(mag.ne.0)wlnorm(nn,:,k)=wn1(:)/mag
113 mpslpw(nn,1)=nslpw
114 mpslpw(nn,2)=ihis