C DTCHPO    SOURCE    PV        11/01/26    21:15:01     6860           
      SUBROUTINE DTCHPO(IRET)
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)
      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
            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                                            
         SEGSUP MPOVAL
         SEGSUP MSOUPO
 1    CONTINUE
      NSOUPO=1
      NAT=0
      SEGADJ MCHPOI
      ipchp(1)=0
      SEGDES MCHPOI
      IRET=0
      RETURN
      END