C ADEVOL    SOURCE    OF166741  25/02/20    21:15:06     12165          
      SUBROUTINE ADEVOL(IPO1,IPO2,IRET,IPM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C  ===================================================================
C  =  OPERATEUR : SOMME DE DEUX COURBES                              =
C  =              - X1 ET X2 SONT DE MEME NATURE ET LA SOMME EST     =
C  =                EFFECTUEE SUR LE DOMAINE COMMUN DE DEFINITION    =
C  =              - X1 ET X2 VARIENT DE FACON STRICTEMENT CROISSANTE =
C  =              - Y1 ET Y2 SONT DE MEME NATURE                     =
C  =  APPELE PAR OPERAD                                              =
C  =  CREATION    30/05/86                                           =
C  =  PROGRAMMEUR BENASSIS                                           =
C  =                                                                 =
C  =  ADAPTATION A L'ADDITION D'OBJETS EVOLUTION COMPLEXES PAR       =
C  =  APPEL A ADEVO PAR F.ROULLIER                                   =
C  =                                                                 =
C  =  PP 1/12/92  cas ou le KEVOLL ou le MEVOLL sont communs         =
C  =                                                                 =
C  =  REECRITURE DE L'ADDITION D'OBJETS EVOLUTION DE SOUS-TYPE REELS =          =
C  =  MODIFICATION AOUT 97 ELOI                                      =
C  ===================================================================
-INC SMEVOLL
-INC PPARAM
-INC CCOPTIO
      CHARACTER*8  ITYP1,ITYP2
C
      IRET=0
      MEVOL1=IPO1
      MEVOL2=IPO2
      SEGACT MEVOL1,MEVOL2
C
C   LES DEUX EVOLUTIONS DOIVENT ETRE DE MEME SOUS-TYPE
C
      ITYP1=MEVOL1.ITYEVO
      ITYP2=MEVOL2.ITYEVO
      IF (ITYP1.NE.ITYP2) THEN
        SEGDES MEVOL1,MEVOL2
        CALL ERREUR(869)
        RETURN
      ENDIF
C
C ON TRAITE LE CAS DES OBJETS EVOLUTION DE SOUS-TYPE "COMPLEXE"
C
      SEGDES MEVOL1,MEVOL2
      IF (ITYP1.EQ.'COMPLEXE') THEN
        CALL ADEVO(IPO1,IPO2,IRET,IPM)
      ELSE
        CALL ADEVOR(IPO1,IPO2,IRET,IPM)
      ENDIF
C
      RETURN
      END