Lines Matching refs:nrint
103 allocate (nrint(nfin))
118 nrint(j)=nrin(itmp)
138 xyn(i) = (radcyl - xcyl(nrint(i),1))/sang
152 xts1 = x(nrint(jj),1) !*cos(xcyl(nrint(jj),2)+tolerence)
153 xts2 = x(nrint(jj),2) !*sin(xcyl(nrint(jj),2)+tolerence)
154 xts3 = x(nrint(jj),3) + plandist
159 imax(jj) = (thmax-thmin)*xcyl(nrint(jj),1)/ds
161 if ( xcyl(nrint(jj),1) .eq. radcyl) then
162 xts1 = (xcyl(nrint(jj),1)-tolerence)
164 xts2 = (xcyl(nrint(jj),1)-tolerence)
168 xts1 = xcyl(nrint(jj),1)
170 xts2 = xcyl(nrint(jj),1)
173 xts3 = x(nrint(jj),3) + plandist
245 allocate (nrint(nfin))
257 nrint(j)=nyin(itmp)
274 xyn(i) = x(nrint(i),2)
288 xts1 = x(nrint(jj),1) + plandist
289 xts2 = x(nrint(jj),2)
290 xts3 = x(nrint(jj),3)
297 xts1 = x(nrint(jj),1) + plandist
298 xts2 = x(nrint(jj),2)
299 xts3 = x(nrint(jj),3) + i*ds