Télécharger fussui.eso

Retour à la liste

Numérotation des lignes :

  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.  
  44.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales