Esope source files

   1 : C FUSPRO    SOURCE    CHAT      05/01/13    00:13:09     5004           
   2 :       SUBROUTINE FUSPRO(IP1,IP2,IRETOU)                                         
   3 : C======================================================================         
   4 : C   ENTREES                                                                     
   5 : C     IP1 = POINTEUR SUR LA PREMIERER PROGRESSION                               
   6 : C     IP2 = POINTEUR SUR LA DEUXIEME  PROGRESSION                               
   7 : C  SORTIES                                                                      
   8 : C     IRETOU = POINTEUR SUR LA CONCATENATION DES 2 PROGRESSIONS                 
   9 : C    GIAN/LOYS      JUILLET 18/86                                               
  10 : C======================================================================         
  11 :       IMPLICIT INTEGER(I-N)
  12 : -INC SMLREEL                                                                    
  13 :       MLREE1=IP1                                                                
  14 :       SEGACT MLREE1                                                             
  15 :       NN1=MLREE1.PROG(/1)                                                       
  16 : C                                                                               
  17 :       MLREE2=IP2                                                                
  18 :       SEGACT MLREE2                                                             
  19 :       NN2=MLREE2.PROG(/1)                                                       
  20 : C                                                                               
  21 :       JG=NN1+NN2                                                                
  22 :       SEGINI MLREEL                                                             
  23 :       DO 100 IA=1,NN1                                                           
  24 :       PROG(IA)=MLREE1.PROG(IA)                                                  
  25 :  100  CONTINUE                                                                  
  26 :       DO 200 IA=1,NN2                                                           
  27 :       PROG(IA+NN1)=MLREE2.PROG(IA)                                              
  28 :  200  CONTINUE                                                                  
  29 :       SEGDES MLREEL,MLREE1,MLREE2                                               
  30 :       IRETOU=MLREEL                                                             
  31 :       RETURN                                                                    
  32 :       END                                                                       
  33 :