subroutine armove(x,y,j,k)
*
*  copy array y into array x
*
      implicit double precision(a-h,o-z)
 
      dimension x(400,1),y(400,1)
 
      do 2 l=1,k
        do 12 i=1,j
          x(i,l)=y(i,l)
12      continue
2     continue
 
      return
      end 

************************************************************************