C DTCHAZ    SOURCE    PV        13/04/08    21:15:08     7750           
            SUBROUTINE DTCHAZ(IRET,ktrace,msorse)                                                   
*-----------------------------------------------------------------------        
*     DESTRUCTION D'UN NOUVEAU CHAMELEM ( MCHAML )                              
*-----------------------------------------------------------------------        
      IMPLICIT INTEGER(I-N)
      character*6 msorse
-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)
      if( melval.eq.ktrace)  then
        ktrace=-ktrace   
        msorse='MELVAL'
      endif                                                 
      SEGSUP MELVAL                                                             
  200 CONTINUE
      if( mchaml.eq.ktrace)  then 
        ktrace=-ktrace  
        msorse= 'MCHAML'
      endif                                                         
      n2 = 0
      SEGadj MCHAML
***   SEGSUP MCHAML
  100 CONTINUE
      if( mchelm.eq.ktrace)   then
        msorse='MCHELM'
        ktrace=-ktrace  
      endif                                                         
      n1 = 0
      n3 = 0
      l1 = 0
      SEGadj MCHELM
***   SEGSUP MCHELM
      IRET=0                                                                    
      RETURN                                                              
      END