Lines Matching refs:eNorm
34 real*8 eNorm(nsd),en(nsd),wn(nsd),aedg(nsd),bedg(nsd) local
71 eNorm(1)=aedg(2)*bedg(3)-aedg(3)*bedg(2)
72 eNorm(2)=aedg(3)*bedg(1)-aedg(1)*bedg(3)
73 eNorm(3)=aedg(1)*bedg(2)-aedg(2)*bedg(1)
75 call addElemNormal(wNorm, eNorm, nn)
157 subroutine addElemNormal(wNorm, eNorm, nn) argument
164 real*8 :: eNorm(nsd), en(nsd), wn(nsd) local
172 wNorm(nn,:) = eNorm(:)
177 mag=(eNorm(1)**2+eNorm(2)**2+eNorm(3)**2)**0.5
178 en(:)=eNorm(:)/mag
186 wNorm(nn,:) = eNorm(:) ! overwrite wNorm
190 wNorm(nn,:)=wNorm(nn,:) + eNorm(:)