Lines Matching refs:mag
35 real*8 mag local
109 mag = (wn(1)**2+wn(2)**2+wn(3)**2)**0.5
111 if(mag > 0) wNorm(nn,:) = wn(:)/mag
117 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5
118 if(mag.ne.0) then
120 & .and. (dabs(wn(3)/mag) .lt.0.99)) then
133 mag=abs(wn(3))
135 wNorm(nn,:)=wn(:)/mag
165 real*8 :: mag, oDotn local
169 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5
171 if(mag < 1.0e-14) then ! no direction yet so give it this
175 wn(:)=wn(:)/mag
177 mag=(eNorm(1)**2+eNorm(2)**2+eNorm(3)**2)**0.5
178 en(:)=eNorm(:)/mag