C CHMIDE    SOURCE    CHAT      05/01/12    21:59:07     5004           
      SUBROUTINE CHMIDE(ITIDEN,MLCOMP,MLSOLU,MMSOLU,MLPREC,MMPREC,
     *     MLSURF,MMSURF,MLTYP3,MMTYP3,MLTYP6,MMTYP6,MLPARF,MLREAC,
     *     MLIMMO,MLPOLE,MMPOLE,MLSOSO,MMSOSO,LIMP3)
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C                    OPERATEUR CHI2
C    ON DECODE LA SOUS TABLE ISSUE DE CHI1 TADEB.IDEN
C
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCOPTIO
-INC SMLENTI
-INC SMLREEL
-INC SMTABLE
-INC SMLMOTS
      CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
      LOGICAL LOGRE
C
      MTAB2=ITIDEN
*     write(6,*)'chmide mtab2=itiden= ',MTAB2
      SEGACT MTAB2
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='LISTENTI'
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'COMP',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLCOMP=IRETR
      MLENTI=IRETR
      SEGACT MLENTI
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='LISTENTI'
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'SOLU',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLSOLU=IRETR
      MLENTI=IRETR
      SEGACT MLENTI
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='LISTMOTS'
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMSOLU',
     *     .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MMSOLU=IRETR
      MLMOTS=IRETR
      SEGACT MLMOTS
      MLPREC=0
      MMPREC=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'PRECI',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLPREC=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
            IVALI=1
            XVALI=0.D0
            IRETI=0
            IVALR=0
            XVALR=0.D0
            IRETR=0
            MTYPI='MOT     '
            MTYPR='LISTMOTS'
            CHARR='        '
            CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMPRECI',
     *           .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
            IF(IERR.NE.0)RETURN
            MMPREC=IRETR
            MLMOTS=IRETR
            SEGACT MLMOTS
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLPOLE=0
      MMPOLE=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'POLE',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLPOLE=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
            IVALI=1
            XVALI=0.D0
            IRETI=0
            IVALR=0
            XVALR=0.D0
            IRETR=0
            MTYPI='MOT     '
            MTYPR='LISTMOTS'
            CHARR='        '
            CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMPOLE',
     *           .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
            IF(IERR.NE.0)RETURN
            MMPOLE=IRETR
*     write(6,*)'chmide mmpole',mmpole
            MLMOTS=IRETR
            SEGACT MLMOTS
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLSOSO=0
      MMSOSO=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'SOSO',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLSOSO=IRETR
*      write(6,*)'chmide mlsoso',mlsoso
            MLENTI=IRETR
            SEGACT MLENTI
            IVALI=1
            XVALI=0.D0
            IRETI=0
            IVALR=0
            XVALR=0.D0
            IRETR=0
            MTYPI='MOT     '
            MTYPR='LISTMOTS'
            CHARR='        '
            CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMSOSO',
     *           .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
            IF(IERR.NE.0)RETURN
            MMSOSO=IRETR
*     write(6,*)'chmide mmsoso',mmsoso
            MLMOTS=IRETR
            SEGACT MLMOTS
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLSURF=0
      MMSURF=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'SURF',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLSURF=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
            IVALI=1
            XVALI=0.D0
            IRETI=0
            IVALR=0
            XVALR=0.D0
            IRETR=0
            MTYPI='MOT     '
            MTYPR='LISTMOTS'
            CHARR='        '
            CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMSURF',
     *           .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
            IF(IERR.NE.0)RETURN
            MMSURF=IRETR
            MLMOTS=IRETR
            SEGACT MLMOTS
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLTYP3=0
      MMTYP3=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'TYP3',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLTYP3=IRETR
*     write(6,*)'chmide mltyp3=',MLTYP3
            MLENTI=IRETR
            SEGACT MLENTI
            IVALI=1
            XVALI=0.D0
            IRETI=0
            IVALR=0
            XVALR=0.D0
            IRETR=0
            MTYPI='MOT     '
            MTYPR='LISTMOTS'
            CHARR='        '
            CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMTYP3',
     *           .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
            IF(IERR.NE.0)RETURN
            MMTYP3=IRETR
            MLMOTS=IRETR
            SEGACT MLMOTS
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      LIMP3=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'IMP3',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            LIMP3=IRETR
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLTYP6=0
      MMTYP6=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'TYP6',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLTYP6=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
            IVALI=1
            XVALI=0.D0
            IRETI=0
            IVALR=0
            XVALR=0.D0
            IRETR=0
            MTYPI='MOT     '
            MTYPR='LISTMOTS'
            CHARR='        '
            CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'NOMTYP6',
     *           .TRUE.,IRETI,MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
            IF(IERR.NE.0)RETURN
            MMTYP6=IRETR
            MLMOTS=IRETR
            SEGACT MLMOTS
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLPARF=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'PARF',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLPARF=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLREAC=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'REAC',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLREAC=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      MLIMMO=0
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'IMMO',.TRUE.,IRETI,
     *     MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
         IF(MTYPR.EQ.'LISTENTI')THEN
            MLIMMO=IRETR
            MLENTI=IRETR
            SEGACT MLENTI
         ELSE
            CALL ERREUR(21)
         ENDIF
      ENDIF
      SEGDES MTAB2
      RETURN
      END