Lines Matching refs:xynin
227 if (xynin(i)*rdelta.gt.ymax) then
230 xts2 = xynin(i)*rdelta
239 if (xynin(i).le.0.00001) then
240 xts1 = (radcyl-xynin(i)*rdelta*sang-tolerence)
242 xts2 = (radcyl-xynin(i)*rdelta*sang-tolerence)
244 xts3 = (aR-(radcyl-xynin(i)*rdelta*sang-tolerence)
247 elseif (xynin(i)*rdelta.gt.ymax) then
256 xts1 = (radcyl-xynin(i)*rdelta*sang)
258 xts2 = (radcyl-xynin(i)*rdelta*sang)
260 xts3 = (aR-(radcyl-xynin(i)*rdelta*sang)
323 if (xynin(i).ge.rbltin) then