Télécharger cumulr.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  18. C
  19. c SEGINI,MLREE2=MLREE1
  20. c JG1=MLREE2.PROG(/1)
  21. c DO 1 IG1=2,JG1
  22. c MLREE2.PROG(IG1)=MLREE2.PROG(IG1-1)+MLREE2.PROG(IG1)
  23. c 1 CONTINUE
  24. c SEGDES MLREE2
  25.  
  26. SEGACT,MLREE1
  27. JG=MLREE1.PROG(/1)
  28. SEGINI,MLREE2
  29. MLREE2.PROG(1)=MLREE1.PROG(1)
  30. DO 1 IG1=2,JG
  31. MLREE2.PROG(IG1)=MLREE2.PROG(IG1-1)+MLREE1.PROG(IG1)
  32. 1 CONTINUE
  33. SEGDES,MLREE1,MLREE2
  34. C
  35. RETURN
  36. END
  37.  
  38.  
  39.  
  40.  
  41.  

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