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. -INC CCOPTIO
  56. -INC SMRIGID
  57. *
  58. CHARACTER*8 LETYPE
  59. CHARACTER*(*) LATYPE
  60. *
  61. *
  62. LETYPE=LATYPE
  63. NRIGE = 7
  64. NRIGEL = 1
  65. SEGINI,MRIGID
  66. IPRIGI = MRIGID
  67. *
  68. IF (LETYPE.EQ.' ') THEN
  69. MTYMAT='MANUELLE'
  70. ELSE
  71. MTYMAT=LETYPE
  72. END IF
  73. *
  74. IFORIG= IFOMOD
  75. ICHOLE = 0
  76. IMGEO1 = 0
  77. IMGEO2 = 0
  78. COERIG(1) = 1.D0
  79. IRIGEL(1,1) = IPELEM
  80. IRIGEL(2,1) = 0
  81. IRIGEL(5,1) = NIFOUR
  82. IRIGEL(6,1) = 0
  83. IRIGEL(7,1) = IANTI
  84. *
  85. SEGDES,MRIGID
  86. *
  87. * DESCRIPTION DE LA "RIGIDITE":
  88. CALL MANUR3 (IPELEM,IINCO,IDUAL,IPDESC)
  89. IF (IERR .NE. 0) RETURN
  90. *
  91. * VALEURS DE LA "RIGIDITE":
  92. CALL MANUR4 (IPELEM,IPDESC,MTEMP4,IPMATR,IANTI)
  93. IF (IERR .NE. 0) RETURN
  94. *
  95. SEGACT,MRIGID*MOD
  96. IRIGEL(3,1) = IPDESC
  97. IRIGEL(4,1) = IPMATR
  98. SEGDES,MRIGID
  99. *
  100. END
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  

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