Sources Esope | Cast3M

utsomm
C UTSOMM    SOURCE    CHAT      05/01/13    04:00:22     5004
      SUBROUTINE UTSOMM(A,N,AT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION A(N)
C
C   SOMME DES TERMES D' VECTEUR
C
C     WRITE(6,*)  ' '
      AT = 0.
      DO 1 I = 1,N
      AT = AT + A(I)
  1   CONTINUE
      RETURN
      END