C SOMM      SOURCE    BP208322  18/12/14    21:15:13     10040          
      SUBROUTINE SOMM
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
C=======================================================================
c     SOMME UNE LISTE DE VALEURS
c     bp, 2017 : ajout option 'CUMUL' 
C=======================================================================
C
-INC PPARAM
-INC CCOPTIO

      PARAMETER (NMOT=1)
      CHARACTER*4 MOTCLE(NMOT)
      DATA MOTCLE/'CUMU'/

C
C EVOLUTION : ON DIT A L UTILISATEUR QUE LA FONCTIONNALITE EST OBSOLETE 
      CALL LIROBJ('EVOLUTIO',IPEVO,0,IRET)
      IF(IERR.NE.0) RETURN
      IF(IRET.NE.0) THEN
c       fonctionnalité obsolete -> voir INTG
        MOTERR(1:36)='voir les notices de SOMM et de INTG ' 
        MOTERR(37:40)=' '
        CALL ERREUR(1056)
        RETURN
      ENDIF
C
C OPTION CUMUL ?
C
      CALL LIRMOT(MOTCLE,NMOT,IMOT,0)      
C
C LISTREEL
C
      CALL LIROBJ('LISTREEL ',MLREE1,0,IRETOR)
      IF (IERR.NE.0) RETURN
      IF(IRETOR.NE.0) THEN
        IF(IMOT.EQ.1) THEN
          CALL CUMULR(MLREE1,MLREE2)
          IF (IERR.NE.0) RETURN
          CALL ECROBJ('LISTREEL',MLREE2)
        ELSE
          CALL RESULR(MLREE1,FLOT1)
          IF (IERR.NE.0) RETURN
          CALL ECRREE(FLOT1)
        ENDIF
        RETURN
      ENDIF
C
C LISTENTI
C
      CALL LIROBJ('LISTENTI ',MLENT1,0,IRETOE)
      IF (IERR.NE.0) RETURN
      IF(IRETOE.NE.0) THEN
        IF(IMOT.EQ.1) THEN
          CALL CUMULE(MLENT1,MLENT2)
          IF (IERR.NE.0) RETURN
          CALL ECROBJ('LISTENTI',MLENT2)
        ELSE
          CALL RESULE(MLENT1,LENTI1)
          IF (IERR.NE.0) RETURN
          CALL ECRENT(LENTI1)
        ENDIF
        RETURN
      ENDIF
C
C PAS D'OPERANDE DU TYPE VOULU
C
      CALL QUETYP(MOTERR(1:8),0,IRETOU)
      IF(IRETOU.NE.0) THEN
        CALL ERREUR (39)
      ELSE
        CALL ERREUR(533)
      ENDIF
      RETURN

C
      RETURN
      END