C RESI      SOURCE    OF166741  24/10/23    21:15:06     12046          

*_______________________________________________________________________
*
*            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)
*_______________________________________________________________________
      SUBROUTINE RESI

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)

-INC PPARAM
-INC CCOPTIO

-INC SMCOORD

      IPMODL=0
      IPCHE1=0
      IPRESI=0
C
C     LECTURE DU MODELE
C
      MOTERR(1:8)=' MODELE '
      CALL MESLIR(-137)
      CALL LIROBJ('MMODEL  ',IPMODL,1,iret)
      CALL ACTOBJ('MMODEL  ',IPMODL,1)
      IF (IERR.NE.0) RETURN
C
C     LECTURE DU MCHAML
C
      MOTERR(1:8)=' MCHAML '
      CALL MESLIR(-137)
      CALL LIROBJ('MCHAML',IPIN,1,iret)
      CALL ACTOBJ('MCHAML',IPIN,1)
      IF (IERR.NE.0) RETURN

      CALL REDUAF(IPIN,IPMODL,IPCHE1,0,ir,ker)
      IF (ir  .NE.1) CALL ERREUR(ker)
      IF (IERR.NE.0) RETURN
C
C     CALCUL DE LA MATRICE DE RESISTANCE
C
      SEGACT,MCOORD
      CALL RESI1(IPMODL,IPCHE1,IPRESI)
      SEGDES,MCOORD
      IF (IERR.NE.0) RETURN
      IF (IPRESI.EQ.0) RETURN
C
C     ECRITURE DU RESULTAT
C
      CALL ACTOBJ('RIGIDITE',IPRESI,0)
      CALL ECROBJ('RIGIDITE',IPRESI)

      RETURN
      END