Esope source files

   1 : C DIFFVE    SOURCE    CHAT      05/01/12    22:50:15     5004           
   2 :       SUBROUTINE DIFFVE(V1,V2,IDIMC,V12)
   3 : C     ***************************************************************
   4 : C     FAIT LA DIFFERENCE ENTRE 2 VECTEURS V12 = V1 - V2
   5 : C     ***************************************************************
   6 :       IMPLICIT INTEGER(I-N)
   7 :       INTEGER IDIMC
   8 :       REAL*8    V1(*),V2(*),V12(*)
   9 : C
  10 :       INTEGER I
  11 : C
  12 :       IF(IDIMC.LE.0) RETURN
  13 :       DO 10 I=1,IDIMC
  14 :         V12(I) = V1(I) - V2(I)
  15 :    10 CONTINUE
  16 :       END
  17 :  
  18 :