subroutine mwmtop_fill(x,y)

        real    x(20),y(20)
        vector  xout(20),yout(20)

        do i=1,20
           xout(i) = x(21-i)
           yout(i) = y(21-i)
        end do

        return
        end