C EQUV      SOURCE    CHAT      05/01/12    23:44:49     5004           
CCC
C x = y
CCC
      SUBROUTINE EQUV (X,Y,N)
      IMPLICIT INTEGER(I-N)
      integer n,i
      real*8  x(n),y(n)
      do i=1,n
        x(i)=y(i)
      enddo
      return
      end