Esope source files

   1 : C FUSSUI    SOURCE    MAUGIS    07/10/26    21:15:54     5812           
   2 :       SUBROUTINE FUSSUI(IP1,IP2,IRETOU)
   3 : C======================================================================
   4 : C   ENTREES
   5 : C     IP1 = POINTEUR SUR LA PREMIERE LECTURE
   6 : C     IP2 = POINTEUR SUR LA DEUXIEME LECTURE
   7 : C
   8 : C   SORTIES
   9 : C     IRETOU = POINTEUR SUR LA CONCATENATION DES 2 LECTURES
  10 : C
  11 : C   Auteur : PM 10/05/2007
  12 : C======================================================================
  13 :       IMPLICIT INTEGER(I-N)
  14 : -INC SMCHPOI
  15 : -INC SMLCHPO
  16 : 
  17 : *     Première liste
  18 :       MLCHP1=IP1
  19 :       SEGACT MLCHP1
  20 :       NN1=MLCHP1.ICHPOI(/1)
  21 : 
  22 : *     Deuxième liste
  23 :       MLCHP2=IP2
  24 :       SEGACT MLCHP2
  25 :       NN2=MLCHP2.ICHPOI(/1)
  26 : 
  27 : *     liste concatéée
  28 :       N1=NN1+NN2
  29 :       SEGINI MLCHPO
  30 :       IRETOU=MLCHPO
  31 :       DO IA=1,NN1
  32 :          ICHPOI(IA)=MLCHP1.ICHPOI(IA)
  33 :       ENDDO 
  34 :       DO IA=1,NN2
  35 :          ICHPOI(IA+NN1)=MLCHP2.ICHPOI(IA)
  36 :       ENDDO 
  37 : 
  38 : *     Ménage et sortie
  39 :       SEGDES MLCHPO,MLCHP1,MLCHP2
  40 :       RETURN
  41 :       END
  42 : 
  43 :