Lines Matching defs:findWallNorm

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)
39           real*8 BC(nshg,ndofBC)
139 1234      format(i5,6(2x,e12.5))