Searched defs:findslpw (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | findslpw.f | 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(:)
[all …]
|