C FUEVOL    SOURCE    CHAT      05/01/13    00:11:27     5004           
      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   ==================================================================          
C                                                                               
      IMPLICIT INTEGER(I-N)
-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                                                               
      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