Lines Matching refs:gmass
20 allocate (gmass(nshg))
21 gmass=zero
48 & gmass)
62 & gmass) argument
76 & gmass(nshg) local
164 call local (gmass, locmass, ien, 1, 'scatter ')
174 & lhsK, gmass) argument
179 real*8 lhsK(9,nnz_tot), gmass(nshg), rho(nshg) local
195 tmp=gmass(n)*tmp1*rho(n)
205 rho=rho*gmass*tmp1 ! reuse rho
216 & lhsS, gmass) argument
221 real*8 lhsS(nnz_tot), gmass(nshg), rho(nshg) local
237 tmp=gmass(n)*tmp1*rho(n)
244 rho=rho*gmass*tmp1 ! reuse rho