Télécharger fusmtk.eso

Retour à la liste

Numérotation des lignes :

  1. C FUSMTK SOURCE PV 16/11/17 21:59:25 9180
  2. SUBROUTINE FUSMTK(IP1,IP2,MATRIK)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. POINTEUR IP1.MATRIK,IP2.MATRIK
  6. POINTEUR IMATR1.MATRIK
  7. POINTEUR IMATR2.MATRIK
  8. SEGACT IP1
  9. SEGACT IP2
  10. N1=IP1.IRIGEL(/2)
  11. N2=IP2.IRIGEL(/2)
  12. NMATRI=N1+N2
  13. NRIGE=7
  14. NKID =9
  15. NKMT =7
  16. SEGINI MATRIK
  17. * Copie des IRIGEL de l'un dans l'autre
  18. DO 1 I=1,N1
  19. CALL RSETI(IRIGEL(1,I),IP1.IRIGEL(1,I),7)
  20. 1 CONTINUE
  21. DO 2 I=1,N2
  22. CALL RSETI(IRIGEL(1,N1+I),IP2.IRIGEL(1,I),7)
  23. 2 CONTINUE
  24. * On effectue une copie des segments IMATRI car ils pointent sur
  25. * d'autres objets élémentaires (les valeurs des matrices élémentaires)
  26. DO 3 I=1,N1
  27. IMATR1=IP1.IRIGEL(4,I)
  28. SEGINI,IMATR2=IMATR1
  29. SEGDES IMATR2
  30. IRIGEL(4,I)=IMATR2
  31. 3 CONTINUE
  32. DO 4 I=1,N2
  33. IMATR1=IP2.IRIGEL(4,I)
  34. SEGINI,IMATR2=IMATR1
  35. SEGDES IMATR2
  36. IRIGEL(4,N1+I)=IMATR2
  37. 4 CONTINUE
  38. SEGDES MATRIK
  39. SEGDES IP2
  40. SEGDES IP1
  41. RETURN
  42. END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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