Télécharger utsomm.eso

Retour à la liste

Numérotation des lignes :

  1. C UTSOMM SOURCE CHAT 05/01/13 04:00:22 5004
  2. SUBROUTINE UTSOMM(A,N,AT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION A(N)
  6. C
  7. C SOMME DES TERMES D' VECTEUR
  8. C
  9. C WRITE(6,*) ' '
  10. AT = 0.
  11. DO 1 I = 1,N
  12. AT = AT + A(I)
  13. 1 CONTINUE
  14. RETURN
  15. END
  16.  
  17.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales