C CUMULR    SOURCE    BP208322  17/07/17    21:15:02     9495           
C 
      SUBROUTINE CUMULR(MLREE1,MLREE2)
C====================================================================
C
C    EFFECTUE LE CUMUL DES VALEURS CONTENUES DANS UN LISTREEL
C
C    ENTREE : MLREE1 POINTEUR SUR UN LISTREEL {x1  x2      x3      ... }
C    SORTIE : MLREE2 POINTEUR SUR UN LISTREEL {x1 (x1+x2) (x1+x2+x3)...}
C
C=====================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
-INC SMLREEL

-INC PPARAM
-INC CCOPTIO
C
c       SEGINI,MLREE2=MLREE1
c       JG1=MLREE2.PROG(/1)
c       DO 1 IG1=2,JG1
c         MLREE2.PROG(IG1)=MLREE2.PROG(IG1-1)+MLREE2.PROG(IG1)
c     1 CONTINUE
c       SEGDES MLREE2

      SEGACT,MLREE1
      JG=MLREE1.PROG(/1)
      SEGINI,MLREE2
      MLREE2.PROG(1)=MLREE1.PROG(1)
      DO 1 IG1=2,JG
        MLREE2.PROG(IG1)=MLREE2.PROG(IG1-1)+MLREE1.PROG(IG1)
    1 CONTINUE
      SEGDES,MLREE1,MLREE2
C
      RETURN
      END