Searched defs:findWallNorm (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | mod_wallData.f90 | 21 subroutine findWallNorm(x,iBC,ilwork,iper) subroutine
28 integer iBC(nshg)
29 real*8 x(numnp,nsd)
30 integer iper(nshg)
31 integer ilwork(nlwork)
32 integer, allocatable :: ienb(:)
33 real*8, allocatable :: wNormTmp(:,:)
34 real*8 eNorm(nsd),en(nsd),wn(nsd),aedg(nsd),bedg(nsd)
35 real*8 mag
38 real*8 wallBCout(nshg, 6)
[all …]
|