C DTCHAM    SOURCE    PV        13/04/08    21:15:03     7750           
      SUBROUTINE DTCHAM(IRET)                                                   
*-----------------------------------------------------------------------        
*     DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )                              
*-----------------------------------------------------------------------        
      IMPLICIT INTEGER(I-N)
-INC SMCHAML                                                                    
      MCHELM=IRET                                                               
      SEGACT MCHELM                                                             
      DO 100 IA=1,IMACHE(/1)                                                    
      MCHAML=ICHAML(IA)                                                         
      SEGACT MCHAML                                                             
      DO 200 IB=1,IELVAL(/1)                                                    
      MELVAL=IELVAL(IB)                                                         
      SEGSUP MELVAL                                                             
  200 CONTINUE                                                                  
      n2 = 0
      segadj mchaml
**    SEGSUP MCHAML
  100 CONTINUE                                                                  
      l1=0
      n1=0
      n3=0
      segadj mchelm
***   SEGSUP MCHELM
***   IRET=0
      RETURN                                                                    
      END