C RESI      SOURCE    CHAT      06/08/24    22:04:33     5529           
      SUBROUTINE RESI                                                          
*                                                                               
*_______________________________________________________________________        
*                                                                               
*            OPERATEUR RESI                                                    
*                                                                               
*  ELEMENTS FINIS :                                                             
*  ==============                                                               
*                                                                               
*  SYNTAXE   :                                                         
*  -----------                                                         
*                                                                               
*           RIG1=RESI  MOD1  | CAR1                                            
*                                                                               
*                  MOD1 MODELE DE CALCUL, TYPE MMODEL                           
*                  CAR1 CHAMP PAR ELEMENT DE CARACTERISTIQUES                   
*                       GEOMETRIQUES ET MATERIELLES, TYPE MCHAML                
*                                                                               
*-----------------------------------------------------------------------        
*    Y. STEPHAN   (JANVIER 97)
*_______________________________________________________________________        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*                                                                               
-INC CCOPTIO                                                                    
C                                                                               
C     LECTURE DU MODELE                                                         
C                                                                               
      IPMODL=0
      IPCHE1=0                                                                  
      IPRESI=0
C                                                                               
      MOTERR(1:8)=' MODELE '
      CALL MESLIR(-137)
      CALL LIROBJ('MMODEL',IPMODL,1,IRT1)                                       
      IF(IERR.NE.0) RETURN
C_______________________________________________________________________        
C     LECTURE DU 1 IER MCHAML                                                
C                                                                               
      MOTERR(1:8)=' MCHAML '
      CALL MESLIR(-137)
      CALL LIROBJ('MCHAML',IPCHE1,1,IRT2)                                    
      IF(IERR.NE.0) RETURN
C                                                                               
C     CALCUL DE LA MATRICE DE RESISTANCE   
      CALL RESI1(IPMODL,IPCHE1,IPRESI)                             
      IF(IERR.NE.0) RETURN
C                                                                               
C     ECRITURE DU RESULTAT                                                      
      CALL ECROBJ('RIGIDITE',IPRESI)                                      
C                                                                               
      RETURN                                                                    
      END