Lines Matching refs:x
1 subroutine eqn_plane(x, iBC) argument
30 dimension x(numnp,nsd), nrin(numnp),
78 xA(:) = x(ienb(inum,1),:)
79 xB(:) = x(ienb(inum,2),:)
80 xC(:) = x(ienb(inum,3),:)
81 xD(:) = x(ienb(inum,4),:)
154 erreur(k) = aR - xnrml*x(ien(i,k),1)
155 & - ynrml*x(ien(i,k),2) - znrml*x(ien(i,k),3)
180 xintl(i,:,1) = x(ien2D(i,:),1)
181 xintl(i,:,2) = x(ien2D(i,:),2)
182 xintl(i,:,3) = x(ien2D(i,:),3)
186 call renum_cart(x)
188 call renum_cyl(x)