Sources Esope | Cast3M

diffve
C DIFFVE    SOURCE    CHAT      05/01/12    22:50:15     5004
      SUBROUTINE DIFFVE(V1,V2,IDIMC,V12)
C     ***************************************************************
C     FAIT LA DIFFERENCE ENTRE 2 VECTEURS V12 = V1 - V2
C     ***************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER IDIMC
      REAL*8    V1(*),V2(*),V12(*)
C
      INTEGER I
C
      IF(IDIMC.LE.0) RETURN
      DO 10 I=1,IDIMC
        V12(I) = V1(I) - V2(I)
   10 CONTINUE
      END