C MANUR2    SOURCE    CB215821  25/04/23    21:15:28     12247          
      SUBROUTINE MANUR2 (LATYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
************************************************************************
*
*                             M A N U R 2
*                             -----------
*
* FONCTION:
* ---------
*
*     CONSTRUCTION D'UN OBJET 'RIGIDITE' POUR UN SUPPORT GEOMETRIQUE
*     HOMOGENE (ELEMENTS GEOMETRIQUES TOUS DE MEME TYPE).
*
* MODE D'APPEL:
* -------------
*
*     CALL MANUR2 (LETYPE,IPELEM,MTEMP3,MTEMP4, IPRIGI,IANTI)
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE
* -----------
*
*     LETYPE  ENTIER    (E)  SOUS-TYPE DE LA 'RIGIDITE'.
*                            REMPLACE PAR 'MANUELLE' S'IL NE CONTIENT
*                            QUE DES BLANCS.
*     IPELEM  ENTIER    (E)  POINTEUR DU SUPPORT GEOMETRIQUE (OBJET DE
*                            TYPE 'MAILLAGE').
*     IINCO   ENTIER    (E)  VOIR "MANURI" OU "MANUR3".
*     IDUAL   ENTIER    (E)  VOIR "MANURI" OU "MANUR3".
*     MTEMP4  ENTIER    (E)  VOIR "MANURI" OU "MANUR4".
*     IPRIGI  ENTIER    (S)  POINTEUR SUR L'OBJET 'RIGIDITE' CREE.
*     IANTI   ENTIER    (E)  type de la matrice élémentaire
*                            IANTI = 0  : matrice symétrique
*                            IANTI = 1  : matrice antisymétrique
*                            IANTI = 2  : matrice asymétrique
*
* SOUS-PROGRAMMES APPELES:
* ------------------------
*
*     MANUR3, MANUR4.
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     PASCAL MANIGOT     19 FEVRIER 1985
*     Lionel VIVAN       12 juin 1991, ajout de IANTI
*
* LANGAGE:
* --------
*
*     ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
*
************************************************************************
*
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC SMRIGID
-INC SMCOORD
*
      CHARACTER*8 LETYPE
      CHARACTER*(*) LATYPE
*
*
      LETYPE=LATYPE
      NRIGE = 7
      NRIGEL = 1
      SEGINI,MRIGID
      IPRIGI = MRIGID
*
      IF (LETYPE.EQ.'        ') THEN
         MTYMAT='MANUELLE'
      ELSE
         MTYMAT=LETYPE
      END IF
*
      IFORIG = IFOUR
      ICHOLE = 0
      IMGEO1 = 0
      IMGEO2 = 0
      COERIG(1) = 1.D0
      IRIGEL(1,1) = IPELEM
      IRIGEL(2,1) = 0
      IRIGEL(5,1) = NIFOUR
      IRIGEL(6,1) = 0
      IRIGEL(7,1) = IANTI
*
      SEGDES,MRIGID
*
*     DESCRIPTION DE LA "RIGIDITE":
      CALL MANUR3 (IPELEM,IINCO,IDUAL,IPDESC)
      IF (IERR .NE. 0) RETURN
*
*     VALEURS DE LA "RIGIDITE":
      CALL MANUR4 (IPELEM,IPDESC,MTEMP4,IPMATR,IANTI)
      IF (IERR .NE. 0) RETURN
*
      SEGACT,MRIGID*MOD
      IRIGEL(3,1) = IPDESC
      IRIGEL(4,1) = IPMATR
      SEGDES,MRIGID
*
      END