C DTCHEL    SOURCE    PV        13/04/08    21:15:11     7750           
      SUBROUTINE DTCHEL(IPCHEL)                                                 
************************************************************************        
*                                                                               
*                             D T C H E L                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     DESTRUCTION D'UN OBJET DE TYPE "CHAMELEM"                                 
*                                                                               
* MODULES UTILISES:                                                             
* -----------------                                                             
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC SMCHAML                                                                    
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     IPCHEL (E/S)  POINTEUR SUR LE CHAMELEM                                    
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     DENIS ROBERT,LE 02/02/88.                                                 
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
      MCHELM=IPCHEL                                                             
      SEGACT,MCHELM                                                             
      I1=IMACHE(/1)                                                             
      DO 1 I=1,I1                                                               
         MCHAML=ICHAML(I)                                                       
         SEGACT,MCHAML                                                          
         I2=IELVAL(/1)                                                          
         DO 2 J=1,I2                                                            
            MELVAL=IELVAL(J)                                                    
            SEGSUP,MELVAL                                                       
 2          CONTINUE                                                            
*        END DO                                                                 
         N2=0
         segadj mchaml
***      SEGSUP,MCHAML
 1       CONTINUE                                                               
*     END DO                                                                    
      L1=0
      N1=0
      N3=0
      segadj mchelm
***   SEGSUP,MCHELM
      IPCHEL=0                                                                  
*                                                                               
      END