Searched refs:iblock (Results 1 – 3 of 3) 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 …]
|
| H A D | elmgmr.f | 141 iblock = iblk ! used in local mass inverse (p>2)
468 iblock = iblk ! used in local mass inverse (p>2)
|
| /phasta/phSolver/common/ |
| H A D | local_mass.f | 5 integer :: iblock = 0 variable
|