C DTCHPZ    SOURCE    CHAT      09/09/21    21:16:17     6511           
              SUBROUTINE DTCHPZ(IRET,ktrace,msorse)
C
C **** DESTRUCTION D'UN CHPOINT: ON TUE LES VALEURS,LES MSOUPO,
C **** LE CHAPEAU. IGEOC EST CONSERVE  SI PAS LECTURE DU MOT GEOM
C
      IMPLICIT INTEGER(I-N)
-INC SMCHPOI
-INC SMELEME
-INC TMCOLAC
-INC CCOPTIO
      CHARACTER*4 MOMOT(1)
      character*6 msorse
      DATA MOMOT/'GEOM'/
      CALL LIRMOT(MOMOT,1,IDET,0)
      MCHPOI=IRET
      SEGACT MCHPOI*MOD
      NSOUPO=IPCHP(/1)
      DO 1 I=1,NSOUPO
         MSOUPO=IPCHP(I)
         SEGACT MSOUPO
         MPOVAL=IPOVAL
         MELEME=IGEOC
         IF (IDET.EQ.1) THEN
            if(meleme.eq.ktrace) then
              msorse='MELEME'
              ktrace=-ktrace
            endif
            SEGSUP MELEME  
            IF(IPSAUV.NE.0) THEN
               ICOLAC=IPSAUV
               SEGACT ICOLAC
               ILISSE=ILISSG
               SEGACT ILISSE*MOD
               CALL TYPFIL('MAILLAGE',ICO)
               ITLACC=KCOLA(ICO)
               SEGACT ITLACC*MOD
               CALL AJOUN0(ITLACC,MELEME,ILISSE,1)
               SEGDES ITLACC
               SEGDES ILISSE
               SEGDES ICOLAC
            ENDIF
         ENDIF 
         if( msoupo.eq.ktrace) then
           msorse='MSOUPO'
           ktrace=-ktrace
         endif 
         if( mpoval.eq.ktrace) then
           msorse='MPOVAL'
           ktrace=-ktrace   
         endif                                         
         SEGSUP MPOVAL
         SEGSUP MSOUPO
 1    CONTINUE
      NSOUPO=0
      NAT=0
      SEGADJ MCHPOI
      SEGDES MCHPOI
      IRET=0
      RETURN
      END