Lines Matching refs:strnrm
513 & strnrm(nshg), cdelsq(nshg),
692 strnrm = sqrt(
696 fwr = fwr1 * fres(:,22) * strnrm
959 & strnrm(nshg), cdelsq1(nfath),
1121 strnrm = sqrt(
1125 fwr = fwr1 * strnrm
2128 & strnrm(nshg), cdelsq1(nfath),
2217 strnrm = sqrt(
2221 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
2225 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
2230 xfac(:,3) = strnrm*( fres(:,10)*fres(:,16) + fres(:,11)*fres(:,17)
2479 & strnrm(nshg), cdelsq(nshg),
2622 strnrm = sqrt(
2627 fwr = fwr3 * fres(:,22) * strnrm
2661 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
2665 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
2670 xfac(:,3) = strnrm*( fres(:,10)*fres(:,16) + fres(:,11)*fres(:,17)
2695 strnrm(j) = zero
2717 strnrm(isgbeg:isgend) = zero
2795 snorm(ifath(i)) = snorm(ifath(i)) + strnrm(i)
3103 xnude(ifath(i),2) = xnude(ifath(i),2) + strnrm(i)
3160 & strnrm(nshg), cdelsq(nshg),
3368 strnrm = sqrt(
3374 fwr = fwr1 * fwr3 * strnrm
3407 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
3411 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
3416 xfac(:,3) = strnrm*( fres(:,10)*fres(:,16) + fres(:,11)*fres(:,17)
3441 strnrm(j) = zero
3463 strnrm(isgbeg:isgend) = zero
3541 snorm(ifath(i)) = snorm(ifath(i)) + strnrm(i)
3860 xnude(ifath(i),2) = xnude(ifath(i),2) + strnrm(i)