Télécharger fusels.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSELS SOURCE CHAT 05/01/13 00:12:24 5004
  2. SUBROUTINE FUSELS(IP1,IP2,IRETOU)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C OPERATION ET SUR DEUX OBJETS DE TYPE ELEMSTRU C
  6. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. -INC SMELSTR
  10. MELST1=IP1
  11. MELST2=IP2
  12. SEGACT MELST1,MELST2
  13. N1=MELST1.ISOSTU(/1)
  14. N2=MELST2.ISOSTU(/1)
  15. N=N1+N2
  16. SEGINI MELSTR
  17. DO 10 I=1,N1
  18. ISOSTU(I)=MELST1.ISOSTU(I)
  19. IMELEM(I)=MELST1.IMELEM(I)
  20. 10 CONTINUE
  21. DO 20 I=1,N2
  22. II=I+N1
  23. ISOSTU(II)=MELST2.ISOSTU(I)
  24. IMELEM(II)=MELST2.IMELEM(I)
  25. 20 CONTINUE
  26. SEGDES MELST1,MELST2,MELSTR
  27. IRETOU=MELSTR
  28. RETURN
  29. END
  30.  
  31.  

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