C MANUR1    SOURCE    CHAT      05/01/13    01:30:00     5004
      SUBROUTINE MANUR1 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
************************************************************************
*
*                             M A N U R 1
*                             -----------
*
* FONCTION:
* ---------
*
*     CREATION D'UNE 'RIGIDITE' (VOIR "MANURI").
*
*     FONCTION LOCALE: REPARTITION DE LA TACHE SELON LA FORME DU SUPPORT
*     GEOMETRIQUE DE LA 'RIGIDITE' A CREER.
*
* MODE D'APPEL:
* -------------
*
*     CALL MANUR1 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE
* -----------
*
*     IPELEM  ENTIER    (E)  POINTEUR SUR LE SUPPORT GEOMETRIQUE DE LA
*                            'RIGIDITE' A CREER (OBJET 'MAILLAGE').
*     IPRIGI  ENTIER    (S)  POINTEUR SUR LA 'RIGIDITE' CREEE.
*     IANTI   ENTIER    (E)  type de la matrice élémentaire
*                            IANTI = 0  : matrice symétrique
*                            IANTI = 1  : matrice antisymétrique
*                            IANTI = 2  : matrice asymétrique
*
*     LES AUTRES PARAMETRES SONT SIMPLEMENT TRANSMIS DU SOUS-PROGRAMME
*     APPELANT "MANUR1" A CEUX APPELES PAR "MANUR1".
*
* SOUS-PROGRAMMES APPELES:
* ------------------------
*
*     ERREUR, MANUR2.
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     PASCAL MANIGOT     19 FEVRIER 1985
*     Lionel VIVAN       12 juin 1991, ajout de IANTI
*
* LANGAGE:
* --------
*
*     ESOPE + FORTRAN77
*
************************************************************************
*
      IMPLICIT INTEGER(I-N)
-INC SMELEME
*
      CHARACTER*8 LETYPE
*
      MELEME = IPELEM
      SEGACT,MELEME
      NBSOUS = LISOUS(/1)
      SEGDES,MELEME
*
      IF (NBSOUS .EQ. 0) THEN
*
         CALL MANUR2 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
*
      ELSE
*
*        RQ: POSSIBILITE D'INTRODUIRE ICI LA CREATION DE "RIGIDITE" POUR
*            UN OBJET "MAILLAGE" HETEROGENE.
*
         NUMERR = 75
         CALL ERREUR (NUMERR)
*
      END IF
*
      END