C RIGEL2    SOURCE    MB234859  25/02/17    21:15:13     12155          
      SUBROUTINE RIGEL2(MRIGID,RI1)
      
      IMPLICIT INTEGER(I-N)

*     Condensation eventuelle d'une matrice auxiliaire 
*     apres elimination sur une matrice de rigidite

-INC PPARAM
-INC CCOPTIO
-INC SMRIGID

      IF (RI1.NE.0) THEN                
         SEGACT MRIGID
         RI2=JRDEPP 
         CALL SCND3(RI1,RI2,RI3) 
         IF(IERR.NE.0) RETURN             
         CALL DTRIGI(RI1)
         IF(IERR.NE.0) RETURN   
         RI1=RI3
      ENDIF

      END