Lines Matching refs:rmass
28 & rmass(nshg)
36 rmass = zero
71 & tmpshgl, mien(iblk)%p, rmass,
85 call commu (rmass , ilwork, 1 , 'in ')
93 rmass(i) = rmass(i) + rmass(j)
103 rmass(j) = rmass(i)
112 rmass = one/rmass
113 v_lambda1 = v_lambda1*rmass ! numerator of lambda
114 v_lambda2 = v_lambda2*rmass ! denominator of lambda
116 hprime = hprime*rmass
147 & shgl, ien, rmass, argument
162 & qres(nshg,idflx), rmass(nshg)
282 call local (rmass, rmassl, ien, 1, 'scatter ')