C DECHPO SOURCE CB215821 20/11/25 13:24:14 10792 SUBROUTINE DECHPO(IRET) C===================================================================== C DESTRUCTION D'UN CHPOINT: ON TUE LES VALEURS C LE CHAPEAU ET LES MSOUPO S ILS SONT NON NULS IGEOC CONSERVE C=================================================================== IMPLICIT INTEGER(I-N) -INC SMCHPOI MCHPOI=IRET SEGACT MCHPOI NSOUPO=IPCHP(/1) DO 100 I=1,NSOUPO MSOUPO=IPCHP(I) IF(MSOUPO.EQ.0) GOTO 100 SEGACT MSOUPO MPOVAL=IPOVAL SEGSUP MPOVAL SEGSUP MSOUPO 100 CONTINUE SEGSUP MCHPOI C RETURN END