Lines Matching refs:uBrg
1 subroutine Au1GMR (EGmass, uBrg, ilwork,iBC,iper ) argument
22 dimension EGmass(numel,nedof,nedof), uBrg(nshg,nflow),
30 call commu (uBrg, ilwork, nflow , 'out')
36 uBrg(:,j)=uBrg(iper(:),j)
42 & call rotabc(uBrg(1,2), iBC, 'out')
60 call asAuGMR (mien(iblk)%p, EGmass(iel:inum,:,:), uBrg,
65 uBrg = uBtmp
71 & call rotabc(uBrg(1,2), iBC, 'in ')
77 call commu (uBrg , ilwork, nflow , 'in ')
94 uBrg(isgbeg:isgend,:) = zero
110 subroutine Au1GMRSclr (EGmasst, uBrg, ilwork, iper ) argument
131 dimension EGmasst(numel,nshape,nshape),uBrg(nshg),
137 call commu (uBrg, ilwork, 1, 'out')
142 uBrg(:)=uBrg(iper(:))
160 call asAuGMRSclr (mien(iblk)%p, EGmassT(iel:inum,:,:), uBrg,
165 uBrg = uBtmp
173 call commu (uBrg , ilwork, 1, 'in ')
190 uBrg(isgbeg:isgend) = zero