Searched refs:mag (Results 1 – 2 of 2) sorted by relevance
35 real*8 mag local109 mag = (wn(1)**2+wn(2)**2+wn(3)**2)**0.5111 if(mag > 0) wNorm(nn,:) = wn(:)/mag117 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5118 if(mag.ne.0) then120 & .and. (dabs(wn(3)/mag) .lt.0.99)) then 133 mag=abs(wn(3))135 wNorm(nn,:)=wn(:)/mag 165 real*8 :: mag, oDotn local169 mag=(wn(1)**2+wn(2)**2+wn(3)**2)**0.5 [all …]
12 real*8 mag local109 mag=(wn1(1)**2+wn1(2)**2+wn1(3)**2)**0.5110 if(mag.ne.0)wlnorm(nn,:,k)=wn1(:)/mag