Sources Esope | Cast3M

sommve
C SOMMVE    SOURCE    CHAT      05/01/13    03:22:15     5004
      SUBROUTINE SOMMVE(V1,V2,IDIMC,V12)
C     ***************************************************************
C     FAIT LA SOMME 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