C FUSBAS    SOURCE    CHAT      05/01/13    00:11:51     5004
      SUBROUTINE FUSBAS(MBASE1,MBASE2,MBASEM)
C
C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     C CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS        C
C     C BASE-MODALE MBASE1 ET MBASE2.LE RESULTAT EST RANGE DANS MBASEM C
C     CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IMPLICIT INTEGER(I-N)
-INC SMBASEM
C
      SEGACT MBASE1,MBASE2
      NBASE1=MBASE1.LISBAS(/1)
      NBASE2=MBASE2.LISBAS(/1)
      N=NBASE1+NBASE2
      SEGINI MBASEM
      DO 3 I=1,NBASE1
      LISBAS(I)=MBASE1.LISBAS(I)
 3    CONTINUE
      DO 4 J=1,NBASE2
      I=NBASE1+J
      LISBAS(I)=MBASE2.LISBAS(J)
 4    CONTINUE
      SEGDES MBASEM,MBASE1,MBASE2
      RETURN
      END