Lines Matching refs:nfath

516      &          xnude(nfath,2),        xnuder(nfath,2),
525      &          BC(nshg,ndofBC),               xnutf(nfath),
959      &          strnrm(nshg),         cdelsq1(nfath),
962      &          xnude(nfath,2),        xnuder(nfath,2),
970      &          xnutf(nfath),
1216          call drvAllreduce(xnude, xnuder,2*nfath)
1235          do i = 1,nfath
1244          do i = 1,nfath
1251             do i = 1, nfath
1255             do i = 1, nfath
1262       do i = 1, nfath
1304      &          xave(nshg,12),                  xaveg(nfath,12),
1305      &          xavegr(nfath,12),               stabdis(nfath),
1306      &          dmodc(nfath),                   strl(numel,ngauss),
1307      &          xavegt(nfath,12)
1549          call drvAllreduce(xaveg, xavegr,12*nfath)         
1586              do i = 1, nfath
1639      &          xave(nshg,12),                  xaveg(nfath,12),
1640      &          xavegr(nfath,12),               stabdis(nfath),
1641      &          yold(nshg,ndof),                xavegt(nfath,12),
1643      &          cdel(nfath),                    xnume(nfath),
1644      &          xdeno(nfath),                    strl(numel,ngauss),
1985          call drvAllreduce(xaveg, xavegr,12*nfath)         
2018             do i = 1, nfath
2037       do i = 1, nfath
2048       do i = 1, nfath
2060       do i = 1, nfath
2128      &          strnrm(nshg),         cdelsq1(nfath),
2131      &          xnude(nfath,5),        xnuder(nfath,5),
2133      &          strl(numel,ngauss),     xa(nfath,3),      
2139      &          xnutf(nfath),          xkap(nfath),
2141      &          xlamb1(nfath),         xlamb2(nfath),
2328          call drvAllreduce(xnude, xnuder,5*nfath)
2350          do i = 1,nfath
2373          do i = 1,nfath
2392       do i = 1, nfath
2425          do i = 1, nfath
2433       do i = 1, nfath
2448          do i = 1, nfath
2483      &          xnude(nfath,2),        xnuder(nfath,2),
2484      &          ynude(nfath,6),        ynuder(nfath,6),
2485      &          ui(nfath,3),           snorm(nfath),
2486      &          uir(nfath,3),          snormr(nfath),
2487      &          xm(nfath,6),           xl(nfath,6)
2488       dimension xl1(nfath,6),          xl2(nfath,6),
2489      &          xl1r(nfath,6),         xl2r(nfath,6),
2490      &          xmr(nfath,6),          xlr(nfath,6),
2498      &          xnutf(nfath),         xfac(nshg,5),
2804          call drvAllreduce(xnude, xnuder,2*nfath)
2805          call drvAllreduce(ynude, ynuder,6*nfath)
2806          call drvAllreduce(xm, xmr,6*nfath)
2807          call drvAllreduce(xl, xlr,6*nfath)
2808          call drvAllreduce(xl1, xl1r,6*nfath)
2809          call drvAllreduce(xl2, xl2r,6*nfath)
2810          call drvAllreduce(ui, uir,3*nfath)
2811          call drvAllreduce(snorm, snormr,nfath)
2813          do i = 1, nfath
2915          do i = 1, nfath
2969             do i = 1, nfath
3107              call drvAllreduce(xnude(:,2), xnuder(:,2),nfath)
3125      &        call drvAllreduce(xnude, xnuder,2*nfath)
3132             do i=1,nfath      ! cdelsq   * |S|
3164      &          xnude(nfath,2),        xnuder(nfath,2),
3165      &          ynude(nfath,6),        ynuder(nfath,6),
3166      &          ui(nfath,3),           snorm(nfath),
3167      &          uir(nfath,3),          snormr(nfath)
3168       dimension xm(nfath,6),           xl(nfath,6),
3169      &          xl1(nfath,6),          xl2(nfath,6),
3170      &          xl1r(nfath,6),         xl2r(nfath,6),
3171      &          xmr(nfath,6),          xlr(nfath,6),
3179      &          xnutf(nfath),
3550          call drvAllreduce(xnude, xnuder,2*nfath)
3551          call drvAllreduce(ynude, ynuder,6*nfath)
3552          call drvAllreduce(xm, xmr,6*nfath)
3553          call drvAllreduce(xl, xlr,6*nfath)
3554          call drvAllreduce(xl1, xl1r,6*nfath)
3555          call drvAllreduce(xl2, xl2r,6*nfath)
3556          call drvAllreduce(ui, uir,3*nfath)
3557          call drvAllreduce(snorm, snormr,nfath)
3559          do i = 1, nfath
3661          do i = 1, nfath
3713             do i = 1, nfath
3864              call drvAllreduce(xnude(:,2), xnuder(:,2),nfath)
3882      &        call drvAllreduce(xnude, xnuder,2*nfath)
3889             do i=1,nfath      ! cdelsq   * |S|