Télécharger la plaquette Cast3M


fr en

Télécharger manur2.eso

Retour à la liste

Numérotation des lignes : 

manur2

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales