C FUSMTK    SOURCE    MAGN      09/07/30    21:17:01     6458           
      SUBROUTINE FUSMTK(IP1,IP2,MATRIK)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC SMMATRIK
      POINTEUR IP1.MATRIK,IP2.MATRIK
      POINTEUR IMATR1.MATRIK
      POINTEUR IMATR2.MATRIK
      SEGACT IP1
      SEGACT IP2
      N1=IP1.IRIGEL(/2)
      N2=IP2.IRIGEL(/2)
      NMATRI=N1+N2
      NRIGE=7
      NKID =9
      NKMT =7
      SEGINI MATRIK
* Copie des IRIGEL de l'un dans l'autre
      DO 1 I=1,N1
         CALL RSETI(IRIGEL(1,I),IP1.IRIGEL(1,I),7)
 1    CONTINUE
      DO 2 I=1,N2
         CALL RSETI(IRIGEL(1,N1+I),IP2.IRIGEL(1,I),7)
 2    CONTINUE
* On effectue une copie des segments IMATRI car ils pointent sur
* d'autres objets élémentaires (les valeurs des matrices élémentaires)
      DO 3 I=1,N1
         IMATR1=IP1.IRIGEL(4,I)
         SEGINI,IMATR2=IMATR1
         SEGDES IMATR2
         IRIGEL(4,I)=IMATR2
 3    CONTINUE
      DO 4 I=1,N2
         IMATR1=IP2.IRIGEL(4,I)
         SEGINI,IMATR2=IMATR1
         SEGDES IMATR2
         IRIGEL(4,N1+I)=IMATR2
 4    CONTINUE
      SEGDES MATRIK
      SEGDES IP2
      SEGDES IP1
      RETURN
      END