C DTCHAM    SOURCE    CB215821  25/06/20    21:15:03     12290          
      SUBROUTINE DTCHAM(IRET)
*-----------------------------------------------------------------------
*     DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )
*-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
-INC SMCHAML
-INC PPARAM

C     On ne supprime plus rien... Supprimer cette source peut-etre
      MCHELM=IRET
      call oooprl(1)
      SEGACT MCHELM
      DO 100 IA=1,IMACHE(/1)
      MCHAML=ICHAML(IA)
      SEGACT MCHAML
      DO 200 IB=1,IELVAL(/1)
      MELVAL=IELVAL(IB)
C      SEGSUP MELVAL
  200 CONTINUE
      n2 = 0
      segadj mchaml
**    SEGSUP MCHAML
  100 CONTINUE
      l1=0
      n1=0
      n3=0
      segadj mchelm
***   SEGSUP MCHELM
***   IRET=0
      call oooprl(0)
      RETURN
      END