Lines Matching refs:nsurf
29 dimension iBC(nshg), nsurf(nshg),
75 call genwnm (iBC, BCtmp, x, ilwork, iper, nsurf)
79 call genotwn (x,BCtmp, iBC, nsurf)
161 subroutine genwnm (iBC, BCtmp, x, ilwork, iper, nsurf) argument
191 integer nsurf(nshg), ivec(nsd) local
222 nsurf(:) = 0
261 nsurf(nn)=nsurf(nn)+1
262 if(nsurf(nn).eq.1) BCtmp(nn,4:6)=zero
263 if(nsurf(nn).eq.2) BCtmp(nn,8:10)=zero
319 if(nsurf(nn).eq.1)
321 if(nsurf(nn).eq.2)
323 if(nsurf(nn).gt.2)
336 if(nsurf(nn).eq.0) cycle
357 if(nsurf(nn).eq.1) then ! 1 modeled wall
374 else if(nsurf(nn).eq.2) then
455 else if(nsurf(nn).gt.2) then
469 if(nsurf(nn).eq.1)
471 if(nsurf(nn).ge.2)
712 subroutine genotwn(x, BCtmp, iBC, nsurf) argument
747 integer iBC(nshg), nsurf(nshg) local
777 if(nsurf(nn).ne.0) cycle
802 if((otwn(nn).eq.nn).and.(nsurf(nn).ne.0)) then ! if a node on a
808 if(nsurf(can).eq.0) then ! if this candidate is off the