Searched refs:xrtmp (Results 1 – 1 of 1) sorted by relevance
36 real*8, allocatable :: xrtmp(:) local94 allocate(xrtmp(nfin))96 xrtmp(i) = xcyl(nrin(i),1)108 rmaxtemp=xrtmp(1)111 if (rmaxtemp.le.xrtmp(k)) then112 rmaxtemp = xrtmp(k)116 if (radcyl.ge.xrtmp(itmp)) then120 xrtmp(itmp) = -1124 deallocate(xrtmp)