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