Sources Esope | Cast3M

rigel2
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