C CHMDEB    SOURCE    CHAT      05/01/12    21:58:48     5004
      SUBROUTINE CHMDEB(MLAA,MLOGK,MLFF,MLIDX,MLIDY,MLIDZ,MLIDP,MLNN,
     * MLDECY,MLNAME,MLIONZ,ITIDEN,ITREDO,ITEMPE,MLNESP)
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C               OPERATEUR CHI2
C    ON DECODE LA TABLE ISSUE DE CHI1
C
C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO
-INC SMLENTI
-INC SMLREEL
-INC SMTABLE
-INC SMLMOTS
      CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR
      LOGICAL LOGRE
C
      IRETOU=0
      MTAB1=0
      CALL LIRTAB('CHIMI1',MTAB1,1,IRETOU)
      IF(IRETOU.EQ.0)RETURN
      SEGACT MTAB1
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='TABLE   '
      CHARR='        '
      CALL ACCTAB(MTAB1,MTYPI,IVALI,XVALI,'DESCHI',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MTAB2=IRETR
      SEGACT MTAB2
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='TABLE   '
      CHARR='        '
      CALL ACCTAB(MTAB1,MTYPI,IVALI,XVALI,'IDEN',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      ITIDEN=IRETR
*      write(6,*)'chmdeb itiden= ',ITIDEN
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      ITREDO=0
      CALL ACCTAB(MTAB1,MTYPI,IVALI,XVALI,'REDOX',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
            IF(MTYPR.EQ.'TABLE   ')THEN
                 ITREDO=IRETR
            ELSE
                 MOTERR(1:11)='REDOX      '
                 MOTERR(12:20)='TABLE   '
                 CALL ERREUR(627)
                 RETURN
            ENDIF
      ENDIF
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      ITEMPE=0
      CALL ACCTAB(MTAB1,MTYPI,IVALI,XVALI,'TEMPE',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(MTYPR.NE.'        ')THEN
            IF(MTYPR.EQ.'TABLE   ')THEN
                 ITEMPE=IRETR
            ELSE
                 MOTERR(1:11)='TEMPE      '
                 MOTERR(12:20)='TABLE   '
                 CALL ERREUR(627)
                 RETURN
            ENDIF
      ENDIF
C                                 ON DECODE LA TABLE DESCHI
      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,'IDX',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLIDX=IRETR
      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,'IDY',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLIDY=IRETR
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'IDZ',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLIDZ=IRETR
      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,'IDP',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      MLIDP=IRETR
      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,'NN',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLNN=IRETR
      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,'IDSURF',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLDECY=IRETR
      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,'CHARGE',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLIONZ=IRETR
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='LISTREEL'
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'MATRICEA',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLAA=IRETR
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='        '
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'MATRICEF',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLFF=IRETR
      IVALI=1
      XVALI=0.D0
      IRETI=0
      IVALR=0
      XVALR=0.D0
      IRETR=0
      MTYPI='MOT     '
      MTYPR='LISTREEL'
      CHARR='        '
      CALL ACCTAB(MTAB2,MTYPI,IVALI,XVALI,'LOGK',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLOGK=IRETR
      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,'NOM',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLNAME=IRETR
      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,'NOMESPECE',.TRUE.,IRETI,
     * MTYPR,IVALR,XVALR,CHARR,LOGRE,IRETR)
      IF(IERR.NE.0)RETURN
      MLNESP=IRETR
      SEGDES MTAB1,MTAB2
c      write(6,*)'fin chmdeb'
c      write(6,*)'nxdim, nydim, nzdim ',nxdim,nydim,nzdim
c      write(6,*)'idx ',(idx(i),i=1,nxdim)
c      write(6,*)'idy ',(idy(i),i=1,nydim)
c      write(6,*)'idz ',(idz(i),i=1,nzdim)
c      do 700 i=1,nydim
c         write(6,*)'idy ',idy(i),'aa ',(aa(j),j=1,nxdim)
c  700 continue
c      do 800 k=1,nzdim
c         write(6,*)'idz ',idz(k),'ff ',(ff(i),i=1,nydim)
c  800 continue
      RETURN
      END