C RELRI2    SOURCE    GOUNAND   11/05/24    21:16:08     6976           
      SUBROUTINE RELRI2()
      IMPLICIT REAL*8 (A-H,O-Z)
      IMPLICIT INTEGER (I-N)
C***********************************************************************
C NOM         : RELRI2
C DESCRIPTION : Création d'une matrice de contraintes (MATRIK)
C
C LANGAGE     : ESOPE
C AUTEUR      : Stéphane GOUNAND (CEA/DRN/DMT/SEMT/LTMF)
C               mél : gounand@semt2.smts.cea.fr
C***********************************************************************
C APPELES          : 
C APPELES (E/S)    : 
C APPELE PAR       : 
C***********************************************************************
C SYNTAXE GIBIANE    :
C ENTREES            :
C SORTIES            :
C***********************************************************************
C VERSION    : v1, 19/03/04, version initiale
C HISTORIQUE : v1, 19/03/04, création
C HISTORIQUE :
C HISTORIQUE :
C***********************************************************************
C Prière de PRENDRE LE TEMPS de compléter les commentaires
C en cas de modification de ce sous-programme afin de faciliter
C la maintenance !
C***********************************************************************
-INC CCOPTIO
-INC SMMATRIK
      POINTEUR MLIN.MATRIK
      POINTEUR MLI2.MATRIK
-INC SMLMOTS
      POINTEUR MOTSCL.MLMOTS
*
      INTEGER IMPR,IRET
*     
* Executable statements
*
      IMPR=0
      IF (IMPR.GT.2) WRITE(IOIMP,*) 'Entrée dans relri2'
*
* Lecture de la matrice des contraintes
*
      CALL LIROBJ('MATRIK  ',MLIN,1,IRET)
*
* Lecture du mot-clé
*
      JGM=2
      JGN=4
      SEGINI MOTSCL
      MOTSCL.MOTS(1)='SIMP'
      MOTSCL.MOTS(2)='DOUB'
      CALL LIRMOT(MOTSCL.MOTS,MOTSCL.MOTS(/2),IRAN,1)
      SEGSUP MOTSCL
      IF (IRAN.EQ.1) THEN
         ITYMAT=-3
      ELSEIF (IRAN.EQ.2) THEN
         ITYMAT=-4
      ENDIF
*      
      SEGINI,MLI2=MLIN
      DO I=1,MLI2.IRIGEL(/2)
* Matrice de type B Bt
         MLI2.IRIGEL(7,I)=ITYMAT
      ENDDO
      SEGDES MLI2
      CALL ECROBJ('MATRIK  ',MLI2)
*
* Normal termination
*
      IRET=0
      RETURN
*
* Format handling
*
*
* Error handling
*
 9999 CONTINUE
      IRET=1
      WRITE(IOIMP,*) 'An error was detected in subroutine relri2'
      RETURN
*
* End of subroutine RELRI2
*
      END