Télécharger fuslec.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSLEC SOURCE CB215821 19/08/20 21:18:01 10287
  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. END
  31.  
  32.  
  33.  

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