Lines Matching refs:xnum
514 & xnum(nshg), xden(nshg),
718 xnum = xlij(:,1) * xmij(:,1) + xlij(:,2) * xmij(:,2)
735 xnum(j) = zero
756 xnum(isgbeg:isgend) = zero
782 xnuml = xnuml + xnum(i)
798 xnumt = xnumt + xnum(i)
850 xmij(:,1)=xnum(:)
960 & xnum(nshg), xden(nshg),
1146 xnum = xlij(:,1) * xmij(:,1) + xlij(:,2) * xmij(:,2)
1160 xnum(j) = zero
1181 xnum(isgbeg:isgend) = zero
1207 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
2129 & xnum(nshg), xden(nshg),
2481 & xnum(nshg), xden(nshg),
2649 xnum = xlij(:,1) * xmij(:,1) + xlij(:,2) * xmij(:,2)
2689 xnum(j) = zero
2715 xnum(isgbeg:isgend) = zero
2754 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
3076 xmij(:,1)=xnum(:)
3162 & xnum(nshg), xden(nshg),
3395 xnum = xlij(:,1) * xmij(:,1) + xlij(:,2) * xmij(:,2)
3435 xnum(j) = zero
3461 xnum(isgbeg:isgend) = zero
3500 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
3833 xmij(:,1)=xnum(:)