Searched refs:en (Results 1 – 1 of 1) sorted by relevance
34 real*8 eNorm(nsd),en(nsd),wn(nsd),aedg(nsd),bedg(nsd) local164 real*8 :: eNorm(nsd), en(nsd), wn(nsd) local178 en(:)=eNorm(:)/mag183 oDotn=en(1)*wn(1)+en(2)*wn(2)+en(3)*wn(3)185 if(abs(en(3)) > abs(wn(3))) then