Lines Matching refs:rmass
1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
15 dimension rmass(nshg), qres(nshg,idflx),
38 call commu (rmass , ilwork, 1 , 'in ')
49 rmass(i) = rmass(i) + rmass(j)
58 rmass(j) = rmass(i)
66 rmass = one/rmass
69 qres(:,i) = rmass*qres(:,i)
117 subroutine qpbcSclr( rmass, qres, iBC, iper, ilwork ) argument
131 dimension rmass(nshg), qres(nshg,nsd),
142 call commu (rmass , ilwork, 1 , 'in ')
151 rmass(i) = rmass(i) + rmass(j)
159 rmass(j) = rmass(i)
166 rmass = one/rmass
169 qres(:,i) = rmass*qres(:,i)