Searched refs:sang (Results 1 – 4 of 4) sorted by relevance
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)248 xts1 = (radcyl-ymax*sang)250 xts2 = (radcyl-ymax*sang)252 xts3 = (aR-(radcyl-ymax*sang)256 xts1 = (radcyl-xynin(i)*rdelta*sang)258 xts2 = (radcyl-xynin(i)*rdelta*sang)260 xts3 = (aR-(radcyl-xynin(i)*rdelta*sang)
4 real*8 sang variable
127 sang = 1.0130 sang = sin(angle)
130 xynin(i) = (radinl - xcyl(nen1(i),1))/sang138 xyn(i) = (radcyl - xcyl(nrint(i),1))/sang