Lines Matching defs:findslpw
1 subroutine findslpw(x,ilwork,iper,iBC) subroutine
6 real*8 x(numnp,nsd)
7 integer iper(nshg)
8 integer ilwork(nlwork)
9 integer ifirstvisit(nshg)
10 integer, allocatable :: ienb(:)
11 real*8 elnrm(nsd),wn1(nsd),wn2(nsd),wn3(nsd),aedg(nsd),bedg(nsd)
12 real*8 mag
13 integer iBC(nshg)
14 integer, allocatable :: IDslpw(:)
15 real*8 AA(nsd),BB(nsd),tmp
16 integer iparall