Lines Matching refs:nen1
226 xts1 = x(nen1(i),1) + plandist
232 xts3 = x(nen1(i),3)
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
366 ymapped(nen1(1:npin),1)= correction * (ubar2(:,1)+fluc2(:,1))
367 ymapped(nen1(1:npin),2)= correction *
369 ymapped(nen1(1:npin),3)= correction *
371 ymapped(nen1(1:npin),4)= correction * (ubar2(:,4)+fluc2(:,4))
373 ymapped(nen1(1:npin),5)= correction * fact*(ubar2(:,5)+fluc2(:,5))