Esope source files

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