Lines Matching refs:wn
34 real*8 eNorm(nsd),en(nsd),wn(nsd),aedg(nsd),bedg(nsd) local
93 wn(:) = wNormTmp(i,:) !processor contribution. If this is
94 call addElemNormal(wNorm, wn, i) !an interior node, zero gets
108 wn(:) = wNorm(nn,:)
109 mag = (wn(1)**2+wn(2)**2+wn(3)**2)**0.5
111 if(mag > 0) wNorm(nn,:) = wn(:)/mag
116 wn(:)=wNorm(nn,:)
117 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5
120 & .and. (dabs(wn(3)/mag) .lt.0.99)) then
127 & ", n = (", wn(1), wn(2), wn(3), ")"
130 wn(1)=0
131 wn(2)=0
132 wn(3)=x(nn,3)
133 mag=abs(wn(3))
135 wNorm(nn,:)=wn(:)/mag
164 real*8 :: eNorm(nsd), en(nsd), wn(nsd) local
168 wn(:)=wNorm(nn,:)
169 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5
175 wn(:)=wn(:)/mag
183 oDotn=en(1)*wn(1)+en(2)*wn(2)+en(3)*wn(3)
185 if(abs(en(3)) > abs(wn(3))) then