Esope source files

   1 : C EQUV      SOURCE    CHAT      05/01/12    23:44:49     5004           
   2 : CCC
   3 : C x = y
   4 : CCC
   5 :       SUBROUTINE EQUV (X,Y,N)
   6 :       IMPLICIT INTEGER(I-N)
   7 :       integer n,i
   8 :       real*8  x(n),y(n)
   9 :       do i=1,n
  10 :         x(i)=y(i)
  11 :       enddo
  12 :       return
  13 :       end
  14 :  
  15 :