Searched refs:lmassinv (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3ql.f | 132 allocate (lmassinv(iblock)%p(npro,nshl,nshl))
137 lmassinv(iblock)%p(iel,i,j) = 0.0
139 lmassinv(iblock)%p(iel,i,i)=1.0
151 & lmassinv(iblock)%p(iel,:,j))
154 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
156 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
279 allocate (lmassinv(iblock)%p(npro,nshl,nshl))
284 lmassinv(iblock)%p(iel,i,j) = 0.0
286 lmassinv(iblock)%p(iel,i,i)=1.0
298 & lmassinv(iblock)%p(iel,:,j))
[all …]
|
| /phasta/phSolver/common/ |
| H A D | local_mass.f | 12 type (r2da), dimension(MAXBLK2) :: lmassinv variable
|