Lines Matching refs:ifath
523 & pfres(nshg,22), ifath(nshg),
942 & nsons, ifath, x, cdelsq1) argument
966 & ifath(nshg), iper(nshg),
1207 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
1208 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
1272 & nsons, ifath, x, argument
1296 & ifath(nshg), nsons(nshg),
1336 cdelsq(:) = dmodc(ifath(:))
1348 dmodc(ifath(:)) = cdelsq(:)
1545 xaveg(ifath(i),:) = xaveg(ifath(i),:) + xave(i,:)
1607 & nsons, ifath, x, argument
1631 & ifath(nshg), nsons(nshg),
1981 xaveg(ifath(i),:) = xaveg(ifath(i),:) + xave(i,:)
2033 rnum(ifath(:)) = numNden(:,1)
2034 rden(ifath(:)) = numNden(:,2)
2068 numNden(i,1) = xnume(ifath(i))
2069 numNden(i,2) = xdeno(ifath(i))
2110 & nsons, ifath, x, cdelsq1, fwr4, argument
2135 & ifath(nshg), iper(nshg),
2316 xnude(ifath(i),1) = xnude(ifath(i),1) + xfac(i,1)
2317 xnude(ifath(i),2) = xnude(ifath(i),2) + xfac(i,2)
2318 xnude(ifath(i),3) = xnude(ifath(i),3) + xfac(i,3)
2319 xnude(ifath(i),4) = xnude(ifath(i),4) + xfac(i,4)
2320 xnude(ifath(i),5) = xnude(ifath(i),5) + xfac(i,5)
2420 fwr2(i) = xlamb1(ifath(i))
2421 fwr3(i) = xlamb2(ifath(i))
2454 fwr4(:) = xlamb1(ifath(:))
2460 & nsons, ifath, x, fwr2, fwr3) argument
2494 & ifath(nshg), iper(nshg),
2754 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
2755 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
2757 ynude(ifath(i),1) = ynude(ifath(i),1) + xfac(i,1)
2758 ynude(ifath(i),2) = ynude(ifath(i),2) + xfac(i,2)
2759 ynude(ifath(i),3) = ynude(ifath(i),3) + xfac(i,3)
2760 ynude(ifath(i),4) = ynude(ifath(i),4) + xfac(i,4)
2761 ynude(ifath(i),5) = ynude(ifath(i),5) + xfac(i,5)
2763 xm(ifath(i),1) = xm(ifath(i),1) + xmij(i,1)
2764 xm(ifath(i),2) = xm(ifath(i),2) + xmij(i,2)
2765 xm(ifath(i),3) = xm(ifath(i),3) + xmij(i,3)
2766 xm(ifath(i),4) = xm(ifath(i),4) + xmij(i,4)
2767 xm(ifath(i),5) = xm(ifath(i),5) + xmij(i,5)
2768 xm(ifath(i),6) = xm(ifath(i),6) + xmij(i,6)
2770 xl(ifath(i),1) = xl(ifath(i),1) + xlij(i,1)
2771 xl(ifath(i),2) = xl(ifath(i),2) + xlij(i,2)
2772 xl(ifath(i),3) = xl(ifath(i),3) + xlij(i,3)
2773 xl(ifath(i),4) = xl(ifath(i),4) + xlij(i,4)
2774 xl(ifath(i),5) = xl(ifath(i),5) + xlij(i,5)
2775 xl(ifath(i),6) = xl(ifath(i),6) + xlij(i,6)
2777 xl1(ifath(i),1) = xl1(ifath(i),1) + fres(i,4)
2778 xl1(ifath(i),2) = xl1(ifath(i),2) + fres(i,5)
2779 xl1(ifath(i),3) = xl1(ifath(i),3) + fres(i,6)
2780 xl1(ifath(i),4) = xl1(ifath(i),4) + fres(i,7)
2781 xl1(ifath(i),5) = xl1(ifath(i),5) + fres(i,8)
2782 xl1(ifath(i),6) = xl1(ifath(i),6) + fres(i,9)
2784 xl2(ifath(i),1) = xl2(ifath(i),1) + fres(i,1)*fres(i,1)
2785 xl2(ifath(i),2) = xl2(ifath(i),2) + fres(i,2)*fres(i,2)
2786 xl2(ifath(i),3) = xl2(ifath(i),3) + fres(i,3)*fres(i,3)
2787 xl2(ifath(i),4) = xl2(ifath(i),4) + fres(i,1)*fres(i,2)
2788 xl2(ifath(i),5) = xl2(ifath(i),5) + fres(i,1)*fres(i,3)
2789 xl2(ifath(i),6) = xl2(ifath(i),6) + fres(i,2)*fres(i,3)
2791 ui(ifath(i),1) = ui(ifath(i),1) + fres(i,1)
2792 ui(ifath(i),2) = ui(ifath(i),2) + fres(i,2)
2793 ui(ifath(i),3) = ui(ifath(i),3) + fres(i,3)
2795 snorm(ifath(i)) = snorm(ifath(i)) + strnrm(i)
2819 cdelsq2(:) = ynuder(ifath(:),6) ! For comparison w/ cdelsq
2858 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
2859 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
2921 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
2922 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
2932 cdelsq2(:) = ynude(ifath(:),6) ! For comparison w/ cdelsq
3103 xnude(ifath(i),2) = xnude(ifath(i),2) + strnrm(i)
3120 xnude(ifath(i),1) = xnude(ifath(i),1) + x(i,1)
3121 xnude(ifath(i),2) = xnude(ifath(i),2) + x(i,2)
3143 & nsons, ifath, x, fwr2, fwr3) argument
3175 & ifath(nshg), iper(nshg),
3500 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
3501 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
3503 ynude(ifath(i),1) = ynude(ifath(i),1) + xfac(i,1)
3504 ynude(ifath(i),2) = ynude(ifath(i),2) + xfac(i,2)
3505 ynude(ifath(i),3) = ynude(ifath(i),3) + xfac(i,3)
3506 ynude(ifath(i),4) = ynude(ifath(i),4) + xfac(i,4)
3507 ynude(ifath(i),5) = ynude(ifath(i),5) + xfac(i,5)
3509 xm(ifath(i),1) = xm(ifath(i),1) + xmij(i,1)
3510 xm(ifath(i),2) = xm(ifath(i),2) + xmij(i,2)
3511 xm(ifath(i),3) = xm(ifath(i),3) + xmij(i,3)
3512 xm(ifath(i),4) = xm(ifath(i),4) + xmij(i,4)
3513 xm(ifath(i),5) = xm(ifath(i),5) + xmij(i,5)
3514 xm(ifath(i),6) = xm(ifath(i),6) + xmij(i,6)
3516 xl(ifath(i),1) = xl(ifath(i),1) + xlij(i,1)
3517 xl(ifath(i),2) = xl(ifath(i),2) + xlij(i,2)
3518 xl(ifath(i),3) = xl(ifath(i),3) + xlij(i,3)
3519 xl(ifath(i),4) = xl(ifath(i),4) + xlij(i,4)
3520 xl(ifath(i),5) = xl(ifath(i),5) + xlij(i,5)
3521 xl(ifath(i),6) = xl(ifath(i),6) + xlij(i,6)
3523 xl1(ifath(i),1) = xl1(ifath(i),1) + fres(i,4)
3524 xl1(ifath(i),2) = xl1(ifath(i),2) + fres(i,5)
3525 xl1(ifath(i),3) = xl1(ifath(i),3) + fres(i,6)
3526 xl1(ifath(i),4) = xl1(ifath(i),4) + fres(i,7)
3527 xl1(ifath(i),5) = xl1(ifath(i),5) + fres(i,8)
3528 xl1(ifath(i),6) = xl1(ifath(i),6) + fres(i,9)
3530 xl2(ifath(i),1) = xl2(ifath(i),1) + fres(i,1)*fres(i,1)
3531 xl2(ifath(i),2) = xl2(ifath(i),2) + fres(i,2)*fres(i,2)
3532 xl2(ifath(i),3) = xl2(ifath(i),3) + fres(i,3)*fres(i,3)
3533 xl2(ifath(i),4) = xl2(ifath(i),4) + fres(i,1)*fres(i,2)
3534 xl2(ifath(i),5) = xl2(ifath(i),5) + fres(i,1)*fres(i,3)
3535 xl2(ifath(i),6) = xl2(ifath(i),6) + fres(i,2)*fres(i,3)
3537 ui(ifath(i),1) = ui(ifath(i),1) + fres(i,1)
3538 ui(ifath(i),2) = ui(ifath(i),2) + fres(i,2)
3539 ui(ifath(i),3) = ui(ifath(i),3) + fres(i,3)
3541 snorm(ifath(i)) = snorm(ifath(i)) + strnrm(i)
3565 cdelsq2(:) = ynuder(ifath(:),6) ! For comparison w/ cdelsq
3605 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
3606 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
3667 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
3668 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
3678 cdelsq2(:) = ynude(ifath(:),6) ! For comparison w/ cdelsq
3860 xnude(ifath(i),2) = xnude(ifath(i),2) + strnrm(i)
3877 xnude(ifath(i),1) = xnude(ifath(i),1) + x(i,1)
3878 xnude(ifath(i),2) = xnude(ifath(i),2) + x(i,2)