Lines Matching refs:xcyl
182 if ((xcyl(ien2D(i,k),1).ge.xcyl(nrint(j+1),1)) .and.
183 & (xcyl(ien2D(i,k),1).le.xcyl(nrint(j),1))) then
184 tmp = (xcyl(ien2D(i,k),1) - xcyl(nrint(j+1),1)) /
185 & (xcyl(nrint(j),1) - xcyl(nrint(j+1),1))
241 & *cos(xcyl(nen1(i),2))
243 & *sin(xcyl(nen1(i),2))
245 & * (xnrml*cos(xcyl(nen1(i),2))
246 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
249 & *cos(xcyl(nen1(i),2))
251 & *sin(xcyl(nen1(i),2))
253 & * (xnrml*cos(xcyl(nen1(i),2))
254 & + ynrml*sin(xcyl(nen1(i),2))))/znrml
257 & *cos(xcyl(nen1(i),2))
259 & *sin(xcyl(nen1(i),2))
261 & * (xnrml*cos(xcyl(nen1(i),2))
262 & + ynrml*sin(xcyl(nen1(i),2))))/znrml