Esope source files

   1 : C COPIVE    SOURCE    CHAT      05/01/12    22:20:24     5004           
   2 :       SUBROUTINE COPIVE(V1,IDIMC,V2)
   3 : C     ***************************************************************
   4 : C     COPIE UN VECTEUR DANS UN AUTRE : V2 <- V1
   5 : C     ***************************************************************
   6 :       IMPLICIT INTEGER(I-N)
   7 :       INTEGER IDIMC
   8 :       REAL*8    V1(*),V2(*)
   9 : C
  10 :       INTEGER I
  11 : C
  12 :       IF(IDIMC.LE.0) RETURN
  13 :       DO 10 I=1,IDIMC
  14 :         V2(I) = V1(I)
  15 :    10 CONTINUE
  16 :       END
  17 :  
  18 :