Esope source files

   1 : C MANUR2    SOURCE    CHAT      09/10/09    21:20:31     6519           
   2 :       SUBROUTINE MANUR2 (LATYPE,IPELEM,IINCO,IDUAL,MTEMP4,IPRIGI,IANTI)
   3 : ************************************************************************
   4 : *
   5 : *                             M A N U R 2
   6 : *                             -----------
   7 : *
   8 : * FONCTION:
   9 : * ---------
  10 : *
  11 : *     CONSTRUCTION D'UN OBJET 'RIGIDITE' POUR UN SUPPORT GEOMETRIQUE
  12 : *     HOMOGENE (ELEMENTS GEOMETRIQUES TOUS DE MEME TYPE).
  13 : *
  14 : * MODE D'APPEL:
  15 : * -------------
  16 : *
  16 : *     CALL MANUR2 (LETYPE,IPELEM,MTEMP3,MTEMP4, IPRIGI,IANTI)
  17 : *
  18 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  19 : * -----------
  20 : *
  21 : *     LETYPE  ENTIER    (E)  SOUS-TYPE DE LA 'RIGIDITE'.
  22 : *                            REMPLACE PAR 'MANUELLE' S'IL NE CONTIENT
  23 : *                            QUE DES BLANCS.
  24 : *     IPELEM  ENTIER    (E)  POINTEUR DU SUPPORT GEOMETRIQUE (OBJET DE
  25 : *                            TYPE 'MAILLAGE').
  26 : *     IINCO   ENTIER    (E)  VOIR "MANURI" OU "MANUR3".
  27 : *     IDUAL   ENTIER    (E)  VOIR "MANURI" OU "MANUR3".
  28 : *     MTEMP4  ENTIER    (E)  VOIR "MANURI" OU "MANUR4".
  29 : *     IPRIGI  ENTIER    (S)  POINTEUR SUR L'OBJET 'RIGIDITE' CREE.
  30 : *     IANTI   ENTIER    (E)  type de la matrice élémentaire
  31 : *                            IANTI = 0  : matrice symétrique
  32 : *                            IANTI = 1  : matrice antisymétrique
  33 : *                            IANTI = 2  : matrice asymétrique
  34 : *
  35 : * SOUS-PROGRAMMES APPELES:
  36 : * ------------------------
  37 : *
  38 : *     MANUR3, MANUR4.
  39 : *
  40 : * AUTEUR, DATE DE CREATION:
  41 : * -------------------------
  42 : *
  43 : *     PASCAL MANIGOT     19 FEVRIER 1985
  44 : *     Lionel VIVAN       12 juin 1991, ajout de IANTI
  45 : *
  46 : * LANGAGE:
  47 : * --------
  48 : *
  49 : *     ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  50 : *
  51 : ************************************************************************
  52 : *
  53 :       IMPLICIT INTEGER(I-N)
  54 : -INC CCOPTIO
  55 : -INC SMRIGID
  56 : *
  57 :       CHARACTER*8 LETYPE
  58 :       CHARACTER*(*) LATYPE
  59 : *
  60 : *
  61 :       LETYPE=LATYPE
  62 :       NRIGE = 7
  63 :       NRIGEL = 1
  64 :       SEGINI,MRIGID
  65 :       IPRIGI = MRIGID
  66 : *
  67 :       IF (LETYPE.EQ.'        ') THEN
  68 :          MTYMAT='MANUELLE'
  69 :       ELSE
  70 :          MTYMAT=LETYPE
  71 :       END IF
  72 : *
  73 :       IFORIG=  IFOMOD
  74 :       ICHOLE = 0
  75 :       IMGEO1 = 0
  76 :       IMGEO2 = 0
  77 :       COERIG(1) = 1.D0
  78 :       IRIGEL(1,1) = IPELEM
  79 :       IRIGEL(2,1) = 0
  80 :       IRIGEL(5,1) = NIFOUR
  81 :       IRIGEL(6,1) = 0
  82 :       IRIGEL(7,1) = IANTI
  83 : *
  84 :       SEGDES,MRIGID
  85 : *
  86 : *     DESCRIPTION DE LA "RIGIDITE":
  86 :       CALL MANUR3 (IPELEM,IINCO,IDUAL,IPDESC)
  87 :       IF (IERR .NE. 0) RETURN
  88 : *
  89 : *     VALEURS DE LA "RIGIDITE":
  89 :       CALL MANUR4 (IPELEM,IPDESC,MTEMP4,IPMATR,IANTI)
  90 :       IF (IERR .NE. 0) RETURN
  91 : *
  92 :       SEGACT,MRIGID*MOD
  93 :       IRIGEL(3,1) = IPDESC
  94 :       IRIGEL(4,1) = IPMATR
  95 :       SEGDES,MRIGID
  96 : *
  97 :       END
  98 :  
  99 :  
 100 :  
 101 :  
 102 :  
 103 :  
 104 :  
 105 :