Télécharger fusmot.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSMOT SOURCE CHAT 05/01/13 00:12:51 5004
  2. SUBROUTINE FUSMOT(IP1,IP2,IRETOU)
  3. C======================================================================
  4. C ENTREES
  5. C IP1 = POINTEUR SUR LE PREMIER LMOTS
  6. C IP2 = POINTEUR SUR LE DEUXIEME LMOTS
  7. C SORTIES
  8. C IRETOU = POINTEUR SUR LA CONCATENATION DES 2 LMOTS
  9. C======================================================================
  10. IMPLICIT INTEGER(I-N)
  11. -INC CCOPTIO
  12. -INC SMLMOTS
  13. IRETOU=0
  14. MLMOT1=IP1
  15. SEGACT MLMOT1
  16. JGN1=MLMOT1.MOTS(/1)
  17. JGM1=MLMOT1.MOTS(/2)
  18. *
  19. MLMOT2=IP2
  20. SEGACT MLMOT2
  21. JGN2=MLMOT2.MOTS(/1)
  22. JGM2=MLMOT2.MOTS(/2)
  23. *
  24. IF(JGN1.NE.JGN2) THEN
  25. CALL ERREUR(556)
  26. SEGDES MLMOT1
  27. SEGDES MLMOT2
  28. RETURN
  29. ENDIF
  30. *
  31. JGN =JGN1
  32. JGM =JGM1+JGM2
  33. SEGINI MLMOTS
  34. IRETOU=MLMOTS
  35. DO 100 IA=1,JGM1
  36. MOTS(IA)=MLMOT1.MOTS(IA)
  37. 100 CONTINUE
  38. DO 200 IA=1,JGM2
  39. MOTS(IA+JGM1)=MLMOT2.MOTS(IA)
  40. 200 CONTINUE
  41. SEGDES MLMOTS,MLMOT1,MLMOT2
  42. RETURN
  43. END
  44.  
  45.  

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