Télécharger fuslec.eso

Retour à la liste

Numérotation des lignes :

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

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