C DERIGI    SOURCE    CHAT      09/10/09    21:17:09     6519
      SUBROUTINE DERIGI(IRET,ktrace,msorse)
C=======================================================================
C
C     ROUTINE POUR DETRUIRE UNE RIGIDITE
C
C=======================================================================
      IMPLICIT INTEGER(I-N)
-INC SMRIGID
      character*6 msorse
      MRIGID=IRET
C
C     SUPPRESSION DU SEGMENT SMRIGID
C
      SEGACT MRIGID
      NRIGEL=IRIGEL(/2)
      DO 100 IA=1,NRIGEL
      IF(IRIGEL(4,IA).EQ.0) GOTO 100
      DESCR=IRIGEL(3,IA)
      if(ktrace.eq.DESCR) then
        ktrace=-ktrace
        msorse='DESCR'
      endif
      SEGSUP DESCR
      xMATRI=IRIGEL(4,IA)
      if(ktrace.eq.xmatri) then
        ktrace=-ktrace
        msorse='XMATRI'
      endif
      SEGsup xMATRI
*      NELRIG=IMATTT(/1)
*      DO 200 IB=1,NELRIG
*      XMATRI=IMATTT(IB)
*      SEGSUP XMATRI
*  200 CONTINUE
*      SEGSUP IMATRI
  100 CONTINUE
C
      if(ktrace.eq.MRIGID) then
        ktrace=-ktrace
        msorse='MRIGID'
      endif
      SEGSUP MRIGID
      RETURN
      END