Télécharger rigi.eso

Retour à la liste

Numérotation des lignes :

  1. C RIGI SOURCE CB215821 16/12/05 22:04:32 9237
  2.  
  3. *---------------------------------------------------------------------*
  4. * __________________________ *
  5. * | | *
  6. * | OPERATEUR RIGIDITE | *
  7. * |________________________| *
  8. * *
  9. *---------------------------------------------------------------------*
  10. * *
  11. * NOUVELLE SYNTAXE : *
  12. * __________________ *
  13. * *
  14. * *
  15. * RIG1 = RIGI MOD1 | CAR1 ; *
  16. * | HOO1 ( CAR1 ) ; *
  17. * *
  18. * ENTREES : *
  19. * *
  20. * MOD1 OBJET MODELE *
  21. * CAR1 CHAMELEM DE CARACTERISTIQUES *
  22. * GEOMETRIQUES ET MATERIELLES *
  23. * *
  24. * EVENTUELLEMENT, *
  25. * *
  26. * HOO1 CHAMELEM REPRESENTANT UNE MATRICE DE HOOKE *
  27. * *
  28. * *
  29. * CHRISTIAN LE BRETON , DECEMBRE 1989 *
  30. * CONVERSION AU NOUVEAU CHAMELEM I. MONNIER AVRIL 90 *
  31. * *
  32. * *
  33. * ANALYSE MODALE : *
  34. * ________________ *
  35. * *
  36. * SYNTAXES POSSIBLES : RIG2 = RIGI M ; *
  37. * RIG3 = RIGI P S ; *
  38. * RIG4 = RIGI M P S ; *
  39. * RIG5 = RIGI B ; *
  40. * RIG6 = RIGI A ; *
  41. * *
  42. * M : OBJET SOLUTION DE SOUS TYPE MODE *
  43. * P : OBJET SOLUTION DE SOUS TYPE SOLU STAT *
  44. * S : OBJET STRUCTURE *
  45. * B : OBJET BASE MODALE *
  46. * A : OBJET ATTACHE *
  47. * *
  48. * RIG2 : RIGIDITE DUE AUX MODES SEULS ( KN ) *
  49. * RIG3 : RIGIDITE DUE AU COUPLAGE DES SOLUTIONS STATIQUES *
  50. * SUR UNE STRUCTURE . *
  51. * RIG4 : RIGIDITE DUE AU COUPLAGE DES SOLUTIONS STATIQUES *
  52. * ET DES MODES . *
  53. * RIG5 : CALCUL AUTOMATIQUE DE RIG2, RIG3 ET RIG4. *
  54. * RIG6 : RIGIDITE DUE AUX LIAISONS MIXTES *
  55. * *
  56. *---------------------------------------------------------------------*
  57. *
  58. SUBROUTINE RIGI
  59. *
  60. IMPLICIT INTEGER(I-N)
  61. IMPLICIT REAL*8(A-H,O-Z)
  62. * *
  63. -INC CCOPTIO
  64. *
  65. CHARACTER*4 CMOT
  66.  
  67. * -------------------------------------------------*
  68. * ON RECUPERE EVENTUELLEMENT UN OBJET MODELE
  69. * -------------------------------------------------*
  70. IPMODL = 0
  71. CALL LIROBJ('MMODEL',IPMODL,0,IRET)
  72. IF (IERR.NE.0) RETURN
  73. IF (IRET.EQ.0) GO TO 700
  74. C
  75. IPCHE1 = 0
  76. IPCHE2 = 0
  77. IPCHA1 = 0
  78. IPCHA2 = 0
  79. *
  80. * ON LIT UN 1-ER MCHAML
  81. *
  82. CALL LIROBJ('MCHAML',IPIN,1,IRET1)
  83. IF (IERR.NE.0) RETURN
  84. CALL REDUAF(IPIN,IPMODL,IPCHA1,0,IR,KER)
  85. IF(IR .NE. 1) CALL ERREUR(KER)
  86. IF(IERR .NE. 0) RETURN
  87. *
  88. * ON LIT EVENTUELLEMENT UN 2EME MCHAML
  89. *
  90. CALL LIROBJ('MCHAML',IPIN,0,IRET1)
  91. IF (IERR.NE.0) RETURN
  92. IPCHA2=0
  93. IF (IRET1 .EQ. 1) THEN
  94. CALL REDUAF(IPIN,IPMODL,IPCHA2,0,IR,KER)
  95. IF(IR .NE. 1) CALL ERREUR(KER)
  96. IF(IERR .NE. 0) RETURN
  97. ENDIF
  98. *
  99. * RANGEMENT DES POINTEURS : 'CARACTERISTIQUES' DANS IPCHE1
  100. * 'MATRICE DE HOOKE' DANS IPCHE2
  101. *
  102. CALL RNGCHA(IPCHA1,IPCHA2,'CARACTERISTIQUES','MATRICE DE HOOKE',
  103. 1 IPCHE1,IPCHE2)
  104. IF (IERR.NE.0) RETURN
  105. *
  106. IF (IPCHE2.NE.0) THEN
  107. IMAT = 2
  108. ELSE IF (IPCHE1.NE.0) THEN
  109. IMAT = 1
  110. ELSE
  111. IPCHE1=IPCHA1
  112. IMAT = 1
  113. ENDIF
  114. *
  115. * APPEL AU CALCUL DES RIGIDITES ELEMENTAIRES
  116. *
  117. CALL RIGI1(IPMODL,IPCHE1,IPCHE2,IMAT,IPOI6,IRET)
  118. *
  119. IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPOI6)
  120. RETURN
  121. C
  122. C -------------------------------------------------*
  123. C **** RAIDEURS ADDITIONNELLES
  124. C -------------------------------------------------*
  125. 700 CONTINUE
  126. CALL LIRCHA(CMOT,0,IRET)
  127. IF (IERR.NE.0) RETURN
  128. IF (IRET.EQ.0) GOTO 800
  129. *
  130. CALL REFUS
  131. CALL APPUI(1)
  132. RETURN
  133. C
  134. C -------------------------------------------------*
  135. C **** ANALYSE MODALE
  136. C -------------------------------------------------*
  137. 800 CONTINUE
  138. CALL RIGIMO
  139. RETURN
  140. *
  141. END
  142.  
  143.  
  144.  

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