Lines Matching refs:rmass
16 dimension rerrsm(nshg, 10), rerr(nshg,10), rmass(nshg)
28 rmass = zero
61 & rmass)
69 call commu (rmass , ilwork, 1 , 'in ')
77 rmass(i) = rmass(i) + rmass(j)
85 rmass(j) = rmass(i)
92 rmass = one/rmass
95 rerrsm(:,i) = rmass*rerrsm(:,i)
111 & rerrsm, rmass ) argument
138 & rerrsm(nshg,10), rmass(nshg)
208 call local (rmass, rmassl, ien, 1, 'scatter ')