Lines Matching refs:nen1
64 thmin = xcyl(nen1(1),2)
65 thmax = xcyl(nen1(1),2)
67 if((x(nen1(i),1).eq.0).and.(x(nen1(i),2).eq.0)) then
70 if(thmin.gt.xcyl(nen1(i),2)) thmin = xcyl(nen1(i),2)
71 if(thmax.lt.xcyl(nen1(i),2)) thmax = xcyl(nen1(i),2)
87 error1 = abs(xcyl(nen1(i),2) - thmin)
90 nrin(j)=nen1(i)
130 xynin(i) = (radinl - xcyl(nen1(i),1))/sang
223 zmin = x(nen1(1),3)
224 zmax = x(nen1(1),3)
226 if(x(nen1(i),3).lt.zmin) zmin = x(nen1(i),3)
227 if(x(nen1(i),3).gt.zmax) zmax = x(nen1(i),3)
231 if (x(nen1(i),3).eq.zmin) then
233 nyin(j) = nen1(i)
266 xynin(i) = x(nen1(i),2)