Télécharger manur2.eso

Retour à la liste

Numérotation des lignes :

  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. *
  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= IFOMOD
  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.  

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