/PREP7
! periodic boundary conditions 
!-----------------------------
*get, nnode, node, ,count
*status, nnode
esel,s,type,,1
NSLE

*GET, nmax, NODE, 0, num, max
*GET, nmin, NODE, 0, num, min

*do, i, nmin, nmax   
   *if, NY(i), ge, 79.99, AND, NY(i), le, 80.01, then
    *if, NX(i), ge, 0.01, and, NX(i), le, 599.99, then
     xU = NX(i)
     zU = NZ(i)
     nsel, s, loc, x, xU-0.01, xU+0.01
     nsel, r, loc, y, -80.01, -79.99
     nsel, r, loc, z, zU-0.01, zU+0.01
     *get, nodeU, node, ,num, max  
     nall      
     cp,i*3+1, ux, nodeU, i
     cp,i*3+2, uy, nodeU, i
     cp,i*3+3, uz, nodeU, i
    *endif
   *endif
*enddo

nsel,s,loc,x,600
cp,1,ux,all

nsel,all
esel,all
finish
/SOLU