Esope source files

   1 : C DTCHPO    SOURCE    PV        11/01/26    21:15:01     6860           
   2 :       SUBROUTINE DTCHPO(IRET)
   3 : C
   4 : C **** DESTRUCTION D'UN CHPOINT: ON TUE LES VALEURS,LES MSOUPO,
   5 : C **** LE CHAPEAU. IGEOC EST CONSERVE  SI PAS LECTURE DU MOT GEOM
   6 : C
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC SMCHPOI
   9 : -INC SMELEME
  10 : -INC TMCOLAC
  11 : -INC CCOPTIO
  12 :       CHARACTER*4 MOMOT(1)
  13 :       DATA MOMOT/'GEOM'/
  13 :       CALL LIRMOT(MOMOT,1,IDET,0)
  14 :       MCHPOI=IRET
  15 :       SEGACT MCHPOI*MOD
  16 :       NSOUPO=IPCHP(/1)
  17 :       DO 1 I=1,NSOUPO
  18 :          MSOUPO=IPCHP(I)
  19 :          SEGACT MSOUPO
  20 :          MPOVAL=IPOVAL
  21 :          MELEME=IGEOC
  22 :          IF (IDET.EQ.1) THEN
  23 :             SEGSUP MELEME  
  24 :             IF(IPSAUV.NE.0) THEN
  25 :                ICOLAC=IPSAUV
  26 :                SEGACT ICOLAC
  27 :                ILISSE=ILISSG
  28 :                SEGACT ILISSE*MOD
  28 :                CALL TYPFIL('MAILLAGE',ICO)
  29 :                ITLACC=KCOLA(ICO)
  30 :                SEGACT ITLACC*MOD
  30 :                CALL AJOUN0(ITLACC,MELEME,ILISSE,1)
  31 :                SEGDES ITLACC
  32 :                SEGDES ILISSE
  33 :                SEGDES ICOLAC
  34 :             ENDIF
  35 :          ENDIF                                            
  36 :          SEGSUP MPOVAL
  37 :          SEGSUP MSOUPO
  38 :  1    CONTINUE
  39 :       NSOUPO=1
  40 :       NAT=0
  41 :       SEGADJ MCHPOI
  42 :       ipchp(1)=0
  43 :       SEGDES MCHPOI
  44 :       IRET=0
  45 :       RETURN
  46 :       END
  47 :  
  48 :  
  49 :  
  50 :  
  51 :  
  52 : 
  53 :  
  54 :  
  55 :  
  56 :