Télécharger cumulr.eso

Retour à la liste

Numérotation des lignes :

cumulr
  1. C CUMULR SOURCE BP208322 17/07/17 21:15:02 9495
  2. C
  3. SUBROUTINE CUMULR(MLREE1,MLREE2)
  4. C====================================================================
  5. C
  6. C EFFECTUE LE CUMUL DES VALEURS CONTENUES DANS UN LISTREEL
  7. C
  8. C ENTREE : MLREE1 POINTEUR SUR UN LISTREEL {x1 x2 x3 ... }
  9. C SORTIE : MLREE2 POINTEUR SUR UN LISTREEL {x1 (x1+x2) (x1+x2+x3)...}
  10. C
  11. C=====================================================================
  12. C
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. C
  16. -INC SMLREEL
  17.  
  18. -INC PPARAM
  19. -INC CCOPTIO
  20. C
  21. c SEGINI,MLREE2=MLREE1
  22. c JG1=MLREE2.PROG(/1)
  23. c DO 1 IG1=2,JG1
  24. c MLREE2.PROG(IG1)=MLREE2.PROG(IG1-1)+MLREE2.PROG(IG1)
  25. c 1 CONTINUE
  26. c SEGDES MLREE2
  27.  
  28. SEGACT,MLREE1
  29. JG=MLREE1.PROG(/1)
  30. SEGINI,MLREE2
  31. MLREE2.PROG(1)=MLREE1.PROG(1)
  32. DO 1 IG1=2,JG
  33. MLREE2.PROG(IG1)=MLREE2.PROG(IG1-1)+MLREE1.PROG(IG1)
  34. 1 CONTINUE
  35. SEGDES,MLREE1,MLREE2
  36. C
  37. RETURN
  38. END
  39.  
  40.  
  41.  
  42.  
  43.  

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