1       subroutine genBC (iBC,  BC,   x,   ilwork, iper)  argument
31      &            x(numnp,nsd),             ilwork(nlwork),
75          call genwnm (iBC,  BCtmp,   x,   ilwork, iper, nsurf)
79          call genotwn (x,BCtmp, iBC, nsurf)
102          call findslpw(x,ilwork,iper,iBC)
147      &  '   Number ',5x,6('BC',i1,:,10x))
148  1100 format(1p,2x,i5,3x,6(e12.5,1x))
161       subroutine genwnm (iBC, BCtmp,    x,   ilwork, iper, nsurf)  argument
183      &            x(numnp,nsd),             ilwork(nlwork)
245                   e1 = x(ienb(2),:)-x(ienb(1),:)
246                   e2 = x(ienb(3),:)-x(ienb(1),:)
712       subroutine genotwn(x, BCtmp, iBC, nsurf)  argument
746       real*8 x(numnp,nsd),BCtmp(nshg,ndof+7)  local
782                      vec(:)=x(ienb(can),:)-x(ienb(nod),:)
813                      vec(:)=x(nn,:)-x(can,:)