Lines Matching refs:x
1 subroutine renum_cyl(x) argument
30 dimension x(numnp,nsd), nrin(numnp), nula(numnp),
46 xcyl(:,1) = sqrt(x(:,1)*x(:,1) + x(:,2)*x(:,2))
50 if ((x(i,1).eq.0).and.(x(i,2).eq.0)) then
54 xcyl(i,2) = atan2(x(i,2),x(i,1))
57 xcyl(:,3) = x(:,3)
67 if((x(nen1(i),1).eq.0).and.(x(nen1(i),2).eq.0)) then
152 xts1 = x(nrint(jj),1) !*cos(xcyl(nrint(jj),2)+tolerence)
153 xts2 = x(nrint(jj),2) !*sin(xcyl(nrint(jj),2)+tolerence)
154 xts3 = x(nrint(jj),3) + plandist
173 xts3 = x(nrint(jj),3) + plandist
185 subroutine renum_cart(x) argument
214 dimension x(numnp,nsd), nyin(numnp),
223 zmin = x(nen1(1),3)
224 zmax = x(nen1(1),3)
226 if(x(nen1(i),3).lt.zmin) zmin = x(nen1(i),3)
227 if(x(nen1(i),3).gt.zmax) zmax = x(nen1(i),3)
231 if (x(nen1(i),3).eq.zmin) then
238 yrtmp(i) = x(nyin(i),2)
266 xynin(i) = x(nen1(i),2)
274 xyn(i) = x(nrint(i),2)
288 xts1 = x(nrint(jj),1) + plandist
289 xts2 = x(nrint(jj),2)
290 xts3 = x(nrint(jj),3)
297 xts1 = x(nrint(jj),1) + plandist
298 xts2 = x(nrint(jj),2)
299 xts3 = x(nrint(jj),3) + i*ds