Esope source files

   1 : C DECHPO    SOURCE    CHAT      05/01/12    22:39:13     5004           
   2 :       SUBROUTINE DECHPO(IRET)                                                   
   3 : C=====================================================================          
   4 : C      DESTRUCTION D'UN CHPOINT: ON TUE LES VALEURS                             
   5 : C      LE CHAPEAU ET LES MSOUPO S ILS SONT NON NULS IGEOC CONSERVE              
   6 : C===================================================================            
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC SMCHPOI                                                                    
   9 :       MCHPOI=IRET                                                               
  10 :       SEGACT MCHPOI                                                             
  11 :       NSOUPO=IPCHP(/1)                                                          
  12 :       DO 100 I=1,NSOUPO                                                         
  13 :       MSOUPO=IPCHP(I)                                                           
  14 :       IF(MSOUPO.EQ.0) GOTO 100                                                  
  15 :       SEGACT MSOUPO                                                             
  16 :       MPOVAL=IPOVAL                                                             
  17 :       SEGSUP MPOVAL                                                             
  18 :       SEGSUP MSOUPO                                                             
  19 :  100  CONTINUE                                                                  
  20 :       SEGSUP MCHPOI                                                             
  21 : C                                                                               
  22 :       RETURN                                                                    
  23 :       END                                                                       
  24 :