Searched defs:genwnm (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genbc.f | 161 subroutine genwnm (iBC, BCtmp, x, ilwork, iper, nsurf) subroutine
180 character*20 fname1, fmt1
181 character*5 cname
190 integer sid, nsidg
191 integer nsurf(nshg), ivec(nsd)
192 logical :: firstvisit(nshg)
193 real*8 BCvecs(2,nsd)
194 integer, allocatable :: ienb(:)
|