Télécharger resulr.eso

Retour à la liste

Numérotation des lignes :

  1. C RESULR SOURCE CHAT 05/01/13 02:54:51 5004
  2. SUBROUTINE RESULR(MLREE1,FLOT1)
  3. C====================================================================
  4. C
  5. C EFFECTUE LA SOMME DES VALEURS CONTENUES DANS UN LISTREEL
  6. C
  7. C ENTREE : MLREE1 POINTEUR SUR UN LISTREEL
  8. C SORTIE : FLOT1 FLOTTANT
  9. C
  10. C=====================================================================
  11. C
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8(A-H,O-Z)
  14. C
  15. -INC SMLREEL
  16. -INC CCOPTIO
  17. C
  18. SEGACT MLREE1
  19. FLOT1=0.D0
  20. JG1=MLREE1.PROG(/1)
  21. DO 1 IG1=1,JG1
  22. FLOT1 = FLOT1 + MLREE1.PROG(IG1)
  23. 1 CONTINUE
  24. SEGDES MLREE1
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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