Searched refs:xynin (Results 1 – 3 of 3) sorted by relevance
227 if (xynin(i)*rdelta.gt.ymax) then230 xts2 = xynin(i)*rdelta239 if (xynin(i).le.0.00001) then240 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) then256 xts1 = (radcyl-xynin(i)*rdelta*sang)258 xts2 = (radcyl-xynin(i)*rdelta*sang)260 xts3 = (aR-(radcyl-xynin(i)*rdelta*sang)[all …]
9 real*8, allocatable :: xyn(:), xynin(:) variable26 allocate (xynin(numnp))
130 xynin(i) = (radinl - xcyl(nen1(i),1))/sang266 xynin(i) = x(nen1(i),2)