Esope source files

   1 : C MANUR1    SOURCE    CHAT      05/01/13    01:30:00     5004           
   2 :       SUBROUTINE MANUR1 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
   3 : ************************************************************************
   4 : *
   5 : *                             M A N U R 1
   6 : *                             -----------
   7 : *
   8 : * FONCTION:
   9 : * ---------
  10 : *
  11 : *     CREATION D'UNE 'RIGIDITE' (VOIR "MANURI").
  12 : *
  13 : *     FONCTION LOCALE: REPARTITION DE LA TACHE SELON LA FORME DU SUPPORT
  14 : *     GEOMETRIQUE DE LA 'RIGIDITE' A CREER.
  15 : *
  16 : * MODE D'APPEL:
  17 : * -------------
  18 : *
  18 : *     CALL MANUR1 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
  19 : *
  20 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  21 : * -----------
  22 : *
  23 : *     IPELEM  ENTIER    (E)  POINTEUR SUR LE SUPPORT GEOMETRIQUE DE LA
  24 : *                            'RIGIDITE' A CREER (OBJET 'MAILLAGE').
  25 : *     IPRIGI  ENTIER    (S)  POINTEUR SUR LA 'RIGIDITE' CREEE.
  26 : *     IANTI   ENTIER    (E)  type de la matrice élémentaire
  27 : *                            IANTI = 0  : matrice symétrique
  28 : *                            IANTI = 1  : matrice antisymétrique
  29 : *                            IANTI = 2  : matrice asymétrique
  30 : *
  31 : *     LES AUTRES PARAMETRES SONT SIMPLEMENT TRANSMIS DU SOUS-PROGRAMME
  32 : *     APPELANT "MANUR1" A CEUX APPELES PAR "MANUR1".
  33 : *
  34 : * SOUS-PROGRAMMES APPELES:
  35 : * ------------------------
  36 : *
  37 : *     ERREUR, MANUR2.
  38 : *
  39 : * AUTEUR, DATE DE CREATION:
  40 : * -------------------------
  41 : *
  42 : *     PASCAL MANIGOT     19 FEVRIER 1985
  43 : *     Lionel VIVAN       12 juin 1991, ajout de IANTI
  44 : *
  45 : * LANGAGE:
  46 : * --------
  47 : *
  48 : *     ESOPE + FORTRAN77
  49 : *
  50 : ************************************************************************
  51 : *
  52 :       IMPLICIT INTEGER(I-N)
  53 : -INC SMELEME
  54 : *
  55 :       CHARACTER*8 LETYPE
  56 : *
  57 :       MELEME = IPELEM
  58 :       SEGACT,MELEME
  59 :       NBSOUS = LISOUS(/1)
  60 :       SEGDES,MELEME
  61 : *
  62 :       IF (NBSOUS .EQ. 0) THEN
  63 : *
  63 :          CALL MANUR2 (LETYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
  64 : *
  65 :       ELSE
  66 : *
  67 : *        RQ: POSSIBILITE D'INTRODUIRE ICI LA CREATION DE "RIGIDITE" POUR
  68 : *            UN OBJET "MAILLAGE" HETEROGENE.
  69 : *
  70 :          NUMERR = 75
  70 :          CALL ERREUR (NUMERR)
  71 : *
  72 :       END IF
  73 : *
  74 :       END
  75 :  
  76 :