Home
last modified time | relevance | path

Searched refs:gmass (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/incompressible/
H A Dgenlmass.f20 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
[all …]
H A Delmgmr.f216 call lmassadd(ac,res,rowp,colm,lhsK,gmass)
509 call lmassaddSclr(ac(:,isclr), res,rowp,colm,lhsS,gmass)
/phasta/phSolver/common/
H A Dpointer.f48 real*8, allocatable :: gmass(:) variable