Sources Esope | Cast3M

dechpo
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