C FUSTRU    SOURCE    CHAT      05/01/13    00:13:19     5004
      SUBROUTINE FUSTRU(MSTRU1,MSTRU2,MSTRUC)
C
C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     C CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS        C
C     C STRUCTURES MSTRU1 ET MSTRU2. LE RESULTAT EST RANGE DANS MSTRUC C
C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IMPLICIT INTEGER(I-N)
-INC SMSTRUC
C
      SEGACT MSTRU1,MSTRU2
      NSTRU1=MSTRU1.LISTRU(/1)
      NSTRU2=MSTRU2.LISTRU(/1)
      N=NSTRU1+NSTRU2
      SEGINI MSTRUC
      DO 3 I=1,NSTRU1
      LISTRU(I)=MSTRU1.LISTRU(I)
 3    CONTINUE
      DO 4 J=1,NSTRU2
      I=NSTRU1+J
      LISTRU(I)=MSTRU2.LISTRU(J)
 4    CONTINUE
      SEGDES MSTRUC,MSTRU1,MSTRU2
      RETURN
      END