Lines Matching refs:x
21 subroutine findWallNorm(x,iBC,ilwork,iper) argument
29 real*8 x(numnp,nsd) local
62 aedg(:)=x(ienb(j+1),:)-x(nn,:)
63 bedg(:)=x(ienb(j-1),:)-x(nn,:)
65 aedg(:)=x(ienb(j+1),:)-x(nn,:)
66 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
68 aedg(:)=x(ienb(1),:)-x(nn,:)
69 bedg(:)=x(ienb(j-1),:)-x(nn,:)
119 if(((dabs(dabs(x(nn,3))-zwall)).lt.0.000000001d00)
126 & ", x = (", x(nn,1), x(nn,2), x(nn,3), ")",
132 wn(3)=x(nn,3)
139 1234 format(i5,6(2x,e12.5))