C DTRIGI    SOURCE    PV        11/03/08    21:15:26     6888           
      SUBROUTINE DTRIGI(IRET)                                                   
C  **** DESTRUCTION DE LA MATRICE SI ELLE EXISTE,DESTRUCTION DU CHAPEAU         
C  **** MATRICE: ON DETRUIT TOUT                                                
      IMPLICIT INTEGER(I-N)
-INC SMRIGID                                                                    
-INC SMMATRI                                                                    
-INC SMELEME                                                                    
-INC CCOPTIO
-INC TMCOLAC 
-INC TMVECRIG                                                                   
      CHARACTER*4 MOMOT(1)                                                      
      CHARACTER*6 msorse
      DATA MOMOT(1)/'ELEM'/                                                     
      CALL LIRMOT(MOMOT,1,IDET,0)                                               
      MRIGID=IRET                                                               
      SEGACT MRIGID                                                             
      IF(IIMPI.EQ.1) WRITE(IOIMP,10) ICHOLE                                     
   10 FORMAT('  ON DETRUIT UNE RIGIDITE CHOLEVSKISE SI ICHOLE = 1',             
     1 I5)                                                                      
      IF(ICHOLE.EQ.0) GOTO 2                                                    
C                                                                               
C  **** DESTRUCTION DE LA MATRICE                                               
      MMATRI=ICHOLE                                                             
      SEGACT MMATRI                                                             
      MDIAG=IDIAG                                                               
      SEGSUP MDIAG                                                              
      MELEME=IGEOMA
         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,ILISSE
*        SEGDES ICOLAC
         ENDIF                                                             
      SEGSUP MELEME                                                             
      MINCPO=IINCPO                                                             
      SEGSUP MINCPO                                                             
      MIDUA=IIDUA                                                               
      SEGSUP MIDUA                                                              
      MHARK=IHARK                                                               
      SEGSUP MHARK                                                              
      MIMIK=IIMIK                                                               
      SEGSUP MIMIK                                                              
      MDNOR=IDNORM                                                              
      SEGSUP MDNOR                                                              
      MILIGN=IILIGN                                                             
      SEGACT MILIGN                                                             
      INC=ILIGN(/1)                                                             
      DO 1 I=1,INC                                                              
      LIGN=ILIGN(I)                                                             
      SEGSUP LIGN                                                               
 1    CONTINUE                                                                  
      SEGSUP MILIGN                                                             
      SEGSUP MMATRI                                                             
C                                                                               
C  **** DESTRUCTION DU CHAPEAU                                                  
 2    CONTINUE                                                                  
C                                                                               
CCCCCCCCCCCCC  SI ON MIS DETRUIRE ELEM ON DETRUIT AUSSI LES RIGI                
C              ELEMENTAIRES                                                     
      IF(IMGEO1.NE.0) THEN                                                      
              IMGEOD=IMGEO1                                                     
              SEGSUP IMGEOD                                           
      ENDIF 
      IF(IVECRI.NE.0) then
            MVECRI=IVECRI
            segsup MVECRI 
      endif                                                                   
      IF(IDET.EQ.1) CALL DERIGI(IRET,-1,msorse)
      IF(IDET.EQ.0) SEGSUP MRIGID                                               
      IRET=0                                                                    
      RETURN                                                                    
      END