Searched refs:rKwall_glob (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | e3bvar.f | 8 & xKebe, rKwall_glob) argument
99 dimension rKwall_glob(npro,9,nshl,nshl),
383 rKwall_glob = zero
683 rKwall_glob(:,1,1,1) = rKwall_glob11(:,1,1)
684 rKwall_glob(:,2,1,1) = rKwall_glob11(:,1,2)
685 rKwall_glob(:,3,1,1) = rKwall_glob11(:,1,3)
686 rKwall_glob(:,4,1,1) = rKwall_glob11(:,2,1)
687 rKwall_glob(:,5,1,1) = rKwall_glob11(:,2,2)
688 rKwall_glob(:,6,1,1) = rKwall_glob11(:,2,3)
689 rKwall_glob(:,7,1,1) = rKwall_glob11(:,3,1)
[all …]
|
| H A D | e3b.f | 81 dimension xKebe(npro,9,nshl,nshl), rKwall_glob(npro,9,nshl,nshl)
134 & xKebe, rKwall_glob)
222 rKwall_glob(iel,:,:,:) = zero ! no stiffness: not a wall element
358 & + rKwall_glob(:,:,:,:)*iwallstiffactor )
|