C FUEVOL    SOURCE    OF166741  25/02/20    21:16:38     12165          
      SUBROUTINE FUEVOL(IBO1,IBO2,IRET)
C
C   ==================================================================
C   = FUSION DE 2 OBJETS EVOLUTION MEVOL1 ET MEVOL2                  =
C   = LE RESULTAT EST RANGE DANS MEVOLL                              =
C   = SOUS-PROGRAMME APPELE PAR PRFUSE  (OPERATEUR ET )              =
C   = CREATION    : 01/10/86                                         =
C   = PROGRAMMEUR : GUILBAUD                                         =
C   = BP, 2014-04-02 : ajout de ITYEVO                               =
C   ==================================================================
C
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC SMEVOLL
C
      CHARACTER *72 TI
      MEVOL1=IBO1
      MEVOL2=IBO2
      SEGACT MEVOL1,MEVOL2
      N1=MEVOL1.IEVOLL(/1)
      N2=MEVOL2.IEVOLL(/1)
      N=N1+N2
      SEGINI MEVOLL
      IRET=MEVOLL
      IF(MEVOL1.ITYEVO .EQ. MEVOL2.ITYEVO) THEN
        ITYEVO = MEVOL1.ITYEVO
      ELSEIF(MEVOL2.ITYEVO .EQ. '        ') THEN
        ITYEVO = MEVOL1.ITYEVO
      ELSEIF(MEVOL1.ITYEVO .EQ. '        ') THEN
        ITYEVO = MEVOL2.ITYEVO
      ELSE
c         ITYEVO='REEL'
        ITYEVO=' '
      ENDIF
      TI(1:72)=TITREE
      IEVTEX=TI
      DO 3 I=1,N1
      IEVOLL(I)=MEVOL1.IEVOLL(I)
 3    CONTINUE
      DO 4 J=1,N2
      I=N1+J
      IEVOLL(I)=MEVOL2.IEVOLL(J)
 4    CONTINUE
      SEGDES MEVOLL
      SEGDES MEVOL1
      SEGDES MEVOL2
      RETURN
      END