Télécharger la plaquette Cast3M


fr en

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