C FUSPRO    SOURCE    CHAT      05/01/13    00:13:09     5004           
      SUBROUTINE FUSPRO(IP1,IP2,IRETOU)                                         
C======================================================================         
C   ENTREES                                                                     
C     IP1 = POINTEUR SUR LA PREMIERER PROGRESSION                               
C     IP2 = POINTEUR SUR LA DEUXIEME  PROGRESSION                               
C  SORTIES                                                                      
C     IRETOU = POINTEUR SUR LA CONCATENATION DES 2 PROGRESSIONS                 
C    GIAN/LOYS      JUILLET 18/86                                               
C======================================================================         
      IMPLICIT INTEGER(I-N)
-INC SMLREEL                                                                    
      MLREE1=IP1                                                                
      SEGACT MLREE1                                                             
      NN1=MLREE1.PROG(/1)                                                       
C                                                                               
      MLREE2=IP2                                                                
      SEGACT MLREE2                                                             
      NN2=MLREE2.PROG(/1)                                                       
C                                                                               
      JG=NN1+NN2                                                                
      SEGINI MLREEL                                                             
      DO 100 IA=1,NN1                                                           
      PROG(IA)=MLREE1.PROG(IA)                                                  
 100  CONTINUE                                                                  
      DO 200 IA=1,NN2                                                           
      PROG(IA+NN1)=MLREE2.PROG(IA)                                              
 200  CONTINUE                                                                  
      SEGDES MLREEL,MLREE1,MLREE2                                               
      IRETOU=MLREEL                                                             
      RETURN                                                                    
      END