C CHIECH    SOURCE    CHAT      05/01/12    21:57:12     5004           
      SUBROUTINE CHIECH(IZECH,IDSCHI)
      IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8 (A-H,O-Z)
C------------------------------------------------------------------
C
C            PRISE EN COMPTE DES ECHANGES
C
C------------------------------------------------------------------
-INC SMLENTI
-INC CCOPTIO
      POINTEUR IZECH.MLENTI
      SEGMENT IDSCHI
           REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM)
           INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6)
           INTEGER IDECY(NYDIM),IONZ(NXDIM)
           CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM)
      ENDSEGMENT
      INTEGER LINIT
C
      SEGACT IZECH
      IECH=IZECH.LECT(/1)
      DO 10 I=1,IECH
      IDF=IZECH.LECT(I)
      LINIT=1
      CALL CHIREX(IDSCHI,IDF,LINIT,6 )
   10 CONTINUE
      NXDIM=IDX(/1)
      IDEB=NN(1)+1
      IFIN=NN(1)+NN(2)
      DO 30 IY=IDEB,IFIN
            DO 20 I=1,IECH
                IDF=IZECH.LECT(I)
                CALL CHIADY(IDX,NXDIM,IDF,IX)
                IF(ABS(AA(IY,IX)).GT.1.D-4)THEN
                      IDECY(IY)=1
                ENDIF
   20       CONTINUE
   30 CONTINUE
      SEGDES IZECH
      RETURN
      END