Lines Matching refs:strnrm
177 subroutine twohfilterB (y, x, strnrm, ien, fres, argument
188 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
593 subroutine twohfilterBB (y, x, strnrm, ien, fres, argument
604 & strnrm(npro,ngauss), dxidx(npro,nsd,nsd),
1660 & strnrm(nshg), cdelsq(nshg),
1808 strnrm = sqrt(
1812 fwr = fwr1 * fres(:,22) * strnrm
1846 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
1850 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
1855 xfac(:,3) = strnrm*( fres(:,10)*fres(:,16) + fres(:,11)*fres(:,17)
1880 strnrm(j) = zero
1902 strnrm(isgbeg:isgend) = zero
1980 snorm(ifath(i)) = snorm(ifath(i)) + strnrm(i)
2288 xnude(ifath(i),2) = xnude(ifath(i),2) + strnrm(i)
2345 & strnrm(nshg), cdelsq(nshg),
2550 strnrm = sqrt(
2554 fwr = fwr1 * strnrm
2587 xfac(:,1) = strnrm*strnrm*( fres(:,10)**2 + fres(:,11)**2 +
2591 xfac(:,2) = strnrm*( xlij(:,1)*fres(:,10) + xlij(:,2)*fres(:,11)
2596 xfac(:,3) = strnrm*( fres(:,10)*fres(:,16) + fres(:,11)*fres(:,17)
2621 strnrm(j) = zero
2643 strnrm(isgbeg:isgend) = zero
2721 snorm(ifath(i)) = snorm(ifath(i)) + strnrm(i)
3040 xnude(ifath(i),2) = xnude(ifath(i),2) + strnrm(i)