Lines Matching refs:jj
150 do jj = 1, nfint
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
157 xsinfin(jj,1,:) = xtmp(:)
158 elcnfin(jj,1) = etmp
159 imax(jj) = (thmax-thmin)*xcyl(nrint(jj),1)/ds
160 do i=1,imax(jj)
161 if ( xcyl(nrint(jj),1) .eq. radcyl) then
162 xts1 = (xcyl(nrint(jj),1)-tolerence)
163 & *cos(1.0*i/imax(jj)*(thmax-thmin)+thmin)
164 xts2 = (xcyl(nrint(jj),1)-tolerence)
165 & *sin(1.0*i/imax(jj)*(thmax-thmin)+thmin)
168 xts1 = xcyl(nrint(jj),1)
169 & *cos(1.0*i/imax(jj)*(thmax-thmin)+thmin)
170 xts2 = xcyl(nrint(jj),1)
171 & *sin(1.0*i/imax(jj)*(thmax-thmin)+thmin)
173 xts3 = x(nrint(jj),3) + plandist
176 xsinfin(jj,1+i,:) = xtmp(:)
177 elcnfin(jj,1+i) = etmp
286 do jj = 1, nfint
288 xts1 = x(nrint(jj),1) + plandist
289 xts2 = x(nrint(jj),2)
290 xts3 = x(nrint(jj),3)
293 xsinfin(jj,1,:) = xtmp(:)
294 elcnfin(jj,1) = etmp
295 imax(jj) = s
296 do i=1,imax(jj)
297 xts1 = x(nrint(jj),1) + plandist
298 xts2 = x(nrint(jj),2)
299 xts3 = x(nrint(jj),3) + i*ds
302 xsinfin(jj,1+i,:) = xtmp(:)
303 elcnfin(jj,1+i) = etmp