C RIGI      SOURCE    FANDEUR   11/07/19    21:17:19     7039           

*---------------------------------------------------------------------* 
*        __________________________                                   * 
*        |                        |                                   * 
*        |   OPERATEUR RIGIDITE   |                                   * 
*        |________________________|                                   * 
*                                                                     * 
*---------------------------------------------------------------------* 
*                                                                     * 
*   NOUVELLE SYNTAXE :                                                * 
*   __________________                                                * 
*                                                                     * 
*                                                                     * 
*           RIG1 =  RIGI  MOD1 | CAR1          ;                      * 
*                              | HOO1 ( CAR1 ) ;                      * 
*                                                                     * 
*   ENTREES :                                                         * 
*                                                                     * 
*       MOD1     OBJET  MODELE                                        * 
*       CAR1     CHAMELEM DE CARACTERISTIQUES                         * 
*                GEOMETRIQUES ET MATERIELLES                          * 
*                                                                     * 
*       EVENTUELLEMENT,                                               * 
*                                                                     * 
*       HOO1     CHAMELEM REPRESENTANT UNE MATRICE DE HOOKE           * 
*                                                                     * 
*                                                                     * 
*   CHRISTIAN LE BRETON , DECEMBRE 1989                               * 
* CONVERSION AU NOUVEAU CHAMELEM  I. MONNIER AVRIL 90                 * 
*                                                                     * 
*                                                                     * 
*  ANALYSE MODALE :                                                   * 
*  ________________                                                   * 
*                                                                     * 
*      SYNTAXES POSSIBLES :  RIG2 = RIGI M ;                          * 
*                            RIG3 = RIGI P S ;                        * 
*                            RIG4 = RIGI M P S ;                      * 
*                            RIG5 = RIGI B ;                          * 
*                            RIG6 = RIGI A ;                          * 
*                                                                     * 
*     M : OBJET SOLUTION DE SOUS TYPE MODE                            * 
*     P : OBJET SOLUTION DE SOUS TYPE SOLU STAT                       * 
*     S : OBJET STRUCTURE                                             * 
*     B : OBJET BASE MODALE                                           * 
*     A : OBJET ATTACHE                                               * 
*                                                                     * 
*  RIG2 : RIGIDITE DUE AUX MODES SEULS ( KN )                         * 
*  RIG3 : RIGIDITE DUE AU COUPLAGE DES SOLUTIONS STATIQUES            * 
*                  SUR UNE STRUCTURE .                                * 
*  RIG4 : RIGIDITE DUE AU COUPLAGE DES SOLUTIONS STATIQUES            * 
*                  ET DES MODES .                                     * 
*  RIG5 : CALCUL AUTOMATIQUE DE RIG2, RIG3 ET RIG4.                   * 
*  RIG6 : RIGIDITE DUE AUX LIAISONS MIXTES                            * 
*                                                                     * 
*---------------------------------------------------------------------* 
*
      SUBROUTINE RIGI 
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z) 
*                                                                    * 
-INC CCOPTIO 
* 
      CHARACTER*4 CMOT 

* -------------------------------------------------*
*      ON RECUPERE EVENTUELLEMENT UN OBJET MODELE
* -------------------------------------------------*
      IPMODL = 0 
      CALL LIROBJ('MMODEL',IPMODL,0,IRET) 
      IF (IERR.NE.0) RETURN
      IF (IRET.EQ.0) GO TO 700
C
      IPCHE1 = 0 
      IPCHE2 = 0 
      IPCHA1 = 0 
      IPCHA2 = 0 
* 
* ON LIT UN 1-ER MCHAML
* 
      CALL LIROBJ('MCHAML',IPCHA1,1,IRET1)
      IF (IERR.NE.0) RETURN 
* 
* ON LIT EVENTUELLEMENT UN 2EME MCHAML 
* 
      CALL LIROBJ('MCHAML',IPCHA2,0,IRET1) 
      IF (IERR.NE.0) RETURN 
* 
* RANGEMENT DES POINTEURS :  'CARACTERISTIQUES' DANS IPCHE1 
*                            'MATRICE DE HOOKE' DANS IPCHE2 
* 
      CALL RNGCHA(IPCHA1,IPCHA2,'CARACTERISTIQUES','MATRICE DE HOOKE', 
     1            IPCHE1,IPCHE2) 
      IF (IERR.NE.0) RETURN 
* 
      IF (IPCHE2.NE.0) THEN 
        IMAT = 2 
      ELSE IF (IPCHE1.NE.0) THEN 
        IMAT = 1 
      ELSE 
        IPCHE1=IPCHA1 
        IMAT = 1 
      ENDIF 
* 
*   APPEL AU CALCUL DES RIGIDITES ELEMENTAIRES
* 
      CALL RIGI1(IPMODL,IPCHE1,IPCHE2,IMAT,IPOI6,IRET) 
* 
      IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPOI6) 
      RETURN 
C 
C -------------------------------------------------*
C  **** RAIDEURS ADDITIONNELLLES 
C -------------------------------------------------*
  700 CONTINUE 
      CALL LIRCHA(CMOT,0,IRET) 
      IF (IERR.NE.0) RETURN 
      IF (IRET.EQ.0) GOTO 800 
*
      CALL REFUS 
      CALL APPUI(1) 
      RETURN 
C 
C -------------------------------------------------*
C  **** ANALYSE MODALE 
C -------------------------------------------------*
  800 CONTINUE 
      CALL RIGIMO 
      RETURN 
* 
      END