Searched defs:genotwn (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genbc.f | 712 subroutine genotwn(x, BCtmp, iBC, nsurf) subroutine
744 integer iel, nod, can
745 real*8 vec(3), leng, dp, bigdp, lil
746 real*8 x(numnp,nsd),BCtmp(nshg,ndof+7)
747 integer iBC(nshg), nsurf(nshg)
748 integer gbits
749 integer, allocatable :: ienb(:)
|