Lines Matching refs:xcyl
46 xcyl(:,1) = sqrt(x(:,1)*x(:,1) + x(:,2)*x(:,2))
54 xcyl(i,2) = atan2(x(i,2),x(i,1))
57 xcyl(:,3) = x(:,3)
64 thmin = xcyl(nen1(1),2)
65 thmax = xcyl(nen1(1),2)
70 if(thmin.gt.xcyl(nen1(i),2)) thmin = xcyl(nen1(i),2)
71 if(thmax.lt.xcyl(nen1(i),2)) thmax = xcyl(nen1(i),2)
77 xcyl(nula(i),2) = thmin
87 error1 = abs(xcyl(nen1(i),2) - thmin)
96 xrtmp(i) = xcyl(nrin(i),1)
105 radinl = xcyl(nrin(1),1)
107 if (radinl.lt.xcyl(nrin(i),1)) radinl = xcyl(nrin(i),1)
130 xynin(i) = (radinl - xcyl(nen1(i),1))/sang
138 xyn(i) = (radcyl - xcyl(nrint(i),1))/sang
159 imax(jj) = (thmax-thmin)*xcyl(nrint(jj),1)/ds
161 if ( xcyl(nrint(jj),1) .eq. radcyl) then
162 xts1 = (xcyl(nrint(jj),1)-tolerence)
164 xts2 = (xcyl(nrint(jj),1)-tolerence)
168 xts1 = xcyl(nrint(jj),1)
170 xts2 = xcyl(nrint(jj),1)