C XMNG6     SOURCE    PV        20/09/26    21:20:33     10724          
      SUBROUTINE XMNG6(ILISSE,ITLACC,ISLIS)
*
      IMPLICIT INTEGER(I-N)
      DIMENSION LIDMAT(10),LKMMT(10)
*
*
      SEGMENT ISLIS(NP)
*      SEGMENT IBLIS(ISLIS(/1))
*                     SEGMENT BIDON POUR REMPLACER LES TROP NOMBREUSES
*                     DECLARATION
*      SEGMENT ISEG(0)
*
*      POINTEUR PTR.MATRAK
*
-INC PPARAM
-INC CCOPTIO
*-INC CCNOYAU
-INC TMCOLAC
-INC SMMATRIK
*
*     CAS DES MATRIK
*
*
C     WRITE(IOIMP,*)' ON FAIT LE MENAGE DES MATRIK '

      IF (ITLAC(/1).EQ.0) RETURN
      DO 421 I=1,ITLAC(/1)
         MATRIK=ITLAC(I)
         ISLIS((MATRIK-1)/npgcd)=1
C       WRITE(IOIMP,*)' MATRIK=',MATRIK
         SEGACT MATRIK
C       WRITE(IOIMP,*)' liste : ksym,kminc,kmincp,kmincd,kizm=',
C    &ksym,kminc,kmincp,kmincd,kizm
C       WRITE(IOIMP,*)' liste : kispgt,kispgp,kispgd=',
C    &kispgt,kispgp,kispgd
C       WRITE(IOIMP,*)' liste : knttt,knttp,knttd=',
C    &knttt,knttp,knttd
C       WRITE(IOIMP,*)' KIDMAT :',(kidmat(i1),i1=1,9)
C       WRITE(IOIMP,*)' KKMMT  :',(kkmmt (i1),i1=1,7)




         NMATRI=IRIGEL(/2)
         DO 422 N=1,NMATRI
C      WRITE(IOIMP,*)' N=',N
C      WRITE(IOIMP,*)' IRIGEL(i1,n)=',(IRIGEL(i1,n),i1=1,7)
            IMATRI=IRIGEL(4,N)
            IF (IMATRI.NE.0) THEN
               SEGACT IMATRI
               ISLIS((IMATRI-1)/npgcd)=1
C       WRITE(IOIMP,*)' IMATRI=',IMATRI
               NBSOUS=LIZAFM(/1)
               NBME  =LIZAFM(/2)
               DO 423 L=1,NBSOUS
                  DO 4231 M=1,NBME
                     IZAFM=LIZAFM(L,M)
                     IF (IZAFM.NE.0) THEN
                        ISLIS((IZAFM-1)/npgcd)=1
C       WRITE(IOIMP,*)' IZAFM=',IZAFM
                        SEGDES IZAFM
                     ENDIF
 4231             CONTINUE
 423           CONTINUE
C       WRITE(IOIMP,*)' KSPGP,KSPGD=',KSPGP,KSPGD
               SEGDES IMATRI
            ENDIF
 422     CONTINUE

         IF(KMINC.NE.0)THEN
            MINC=KMINC
            ISLIS((MINC-1)/npgcd)=1
C       WRITE(IOIMP,*)' KMINC=',MINC
            SEGDES MINC
         ENDIF
         IF(KMINCP.NE.0)THEN
            MINC=KMINCP
            ISLIS((MINC-1)/npgcd)=1
C       WRITE(IOIMP,*)' KMINCP=',MINC
            SEGDES MINC
         ENDIF
         IF(KMINCD.NE.0)THEN
            MINC=KMINCD
            ISLIS((MINC-1)/npgcd)=1
C       WRITE(IOIMP,*)' KMINCD=',MINC
            SEGDES MINC
         ENDIF

         N1=7
         LIDMAT(1)=1
         LIDMAT(2)=2
         LIDMAT(3)=3
         LIDMAT(4)=4
         LIDMAT(5)=5
         LIDMAT(6)=6
         LIDMAT(7)=7

         DO 425 I1=1,N1
            II=LIDMAT(I1)
            IF(KIDMAT(II).NE.0)THEN
               MINC=KIDMAT(II)
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
            ENDIF
 425     CONTINUE


         N1=4
         LKMMT(1)=4
         LKMMT(2)=5
         LKMMT(3)=6
         LKMMT(4)=7

         DO 424 I1=1,N1
            II=LKMMT(I1)
            IF(KKMMT(II).NE.0)THEN
               MINC=KKMMT(II)
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
            ENDIF
 424     CONTINUE

         IF(KIDMAT(1).NE.0)THEN
            IDMAT=KIDMAT(1)
            SEGACT IDMAT
            IF (IDIAG.NE.0) THEN
               MINC=IDIAG
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
            ENDIF
            NBLK=IDESCL(/1)
            DO 426 I1=1,NBLK
               MINC=IDESCL(I1)
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
               IF(KSYM.NE.2)GO TO 426
               MINC=IDESCU(I1)
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
 426        CONTINUE
            SEGDES IDMAT
         ENDIF

         IF(KIDMAT(2).NE.0)THEN
            IDMAT=KIDMAT(2)
            SEGACT IDMAT
            IF (IDIAG.NE.0) THEN
               MINC=IDIAG
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
            ENDIF
            NBLK=IDESCL(/1)
            DO 427 I1=1,NBLK
               MINC=IDESCL(I1)
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
               IF(KSYM.NE.2)GO TO 427
               MINC=IDESCU(I1)
               ISLIS((MINC-1)/npgcd)=1
               SEGDES MINC
 427        CONTINUE
            SEGDES IDMAT
         ENDIF



         SEGDES MATRIK

 421  CONTINUE


*
      RETURN
      END