Lines Matching refs:nflow
46 & res(nshg,nflow),
47 & BDiag(nshg,nflow,nflow),
54 dimension Dy(nshg,nflow), rmes(nshg,nflow),
55 & temp(nshg,nflow),
56 & uBrg(nshg,nflow,Kspace+1)
71 if(idiff >= 1) idflx= idflx + (nflow-1) * nsd
126 call sumgat (temp, nflow, summed, ilwork)
166 call bc3per (iBC, temp, iper, ilwork, nflow)
180 call sumgat (temp, nflow, summed, ilwork)
215 call bc3per (iBC, uBrg(:,:,iKs+1), iper, ilwork, nflow)
229 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
238 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
411 real*8 lhsK(nflow*nflow,nnz_tot)
418 & res(nshg,nflow),
419 & BDiag(nshg,nflow,nflow),
425 dimension Dy(nshg,nflow), rmes(nshg,nflow),
426 & temp(nshg,nflow),
427 & uBrg(nshg,nflow,Kspace+1)
443 if(idiff >= 1) idflx= idflx + (nflow-1) * nsd
474 call commu (BDiag , ilwork, nflow*nflow , 'out')
505 call sumgat (temp, nflow, summed, ilwork)
546 call bc3per (iBC, temp, iper, ilwork, nflow)
557 call sumgat (temp, nflow, summed, ilwork)
592 call bc3per (iBC, uBrg(:,:,iKs+1), iper, ilwork, nflow)
603 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
612 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)