Lines Matching refs:nfath
1005 & xave(nshg,12), xaveg(nfath,12),
1006 & xavegr(nfath,12), xavegt(nfath,12),
1007 & rnum(nfath), rden(nfath)
1182 call drvAllreduce(xaveg, xavegr,12*nfath)
1215 do i = 1, nfath
1664 & xnude(nfath,2), xnuder(nfath,2),
1665 & ynude(nfath,6), ynuder(nfath,6)
1666 dimension ui(nfath,3), snorm(nfath),
1667 & uir(nfath,3), snormr(nfath),
1668 & xm(nfath,6), xl(nfath,6),
1669 & xl1(nfath,6), xl2(nfath,6),
1670 & xl1r(nfath,6), xl2r(nfath,6),
1671 & xmr(nfath,6), xlr(nfath,6),
1679 & xnutf(nfath), xfac(nshg,5)
1989 call drvAllreduce(xnude, xnuder,2*nfath)
1990 call drvAllreduce(ynude, ynuder,6*nfath)
1991 call drvAllreduce(xm, xmr,6*nfath)
1992 call drvAllreduce(xl, xlr,6*nfath)
1993 call drvAllreduce(xl1, xl1r,6*nfath)
1994 call drvAllreduce(xl2, xl2r,6*nfath)
1995 call drvAllreduce(ui, uir,3*nfath)
1996 call drvAllreduce(snorm, snormr,nfath)
1998 do i = 1, nfath
2100 do i = 1, nfath
2154 do i = 1, nfath
2292 call drvAllreduce(xnude(:,2), xnuder(:,2),nfath)
2310 & call drvAllreduce(xnude, xnuder,2*nfath)
2317 do i=1,nfath ! cdelsq * |S|
2349 & xnude(nfath,2), xnuder(nfath,2),
2350 & ynude(nfath,6), ynuder(nfath,6),
2351 & ui(nfath,3), snorm(nfath),
2352 & uir(nfath,3), snormr(nfath)
2353 dimension xm(nfath,6), xl(nfath,6),
2354 & xl1(nfath,6), xl2(nfath,6),
2355 & xl1r(nfath,6), xl2r(nfath,6),
2356 & xmr(nfath,6), xlr(nfath,6),
2364 & xnutf(nfath),
2730 call drvAllreduce(xnude, xnuder,2*nfath)
2731 call drvAllreduce(ynude, ynuder,6*nfath)
2732 call drvAllreduce(xm, xmr,6*nfath)
2733 call drvAllreduce(xl, xlr,6*nfath)
2734 call drvAllreduce(xl1, xl1r,6*nfath)
2735 call drvAllreduce(xl2, xl2r,6*nfath)
2736 call drvAllreduce(ui, uir,3*nfath)
2737 call drvAllreduce(snorm, snormr,nfath)
2739 do i = 1, nfath
2841 do i = 1, nfath
2893 do i = 1, nfath
3044 call drvAllreduce(xnude(:,2), xnuder(:,2),nfath)
3062 & call drvAllreduce(xnude, xnuder,2*nfath)
3069 do i=1,nfath ! cdelsq * |S|