Télécharger rigi.eso

Retour à la liste

Numérotation des lignes :

  1. C RIGI SOURCE PV 18/04/24 21:15:08 9815
  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 mcle(1)
  66. data mcle/'NOER'/
  67. CHARACTER*4 CMOT
  68.  
  69. noer=0
  70. * lecture eventuelle de 'NOER'
  71. call lirmot(mcle,1,noer,0)
  72.  
  73.  
  74.  
  75. * -------------------------------------------------*
  76. * ON RECUPERE EVENTUELLEMENT UN OBJET MODELE
  77. * -------------------------------------------------*
  78. IPMODL = 0
  79. CALL LIROBJ('MMODEL',IPMODL,0,IRET)
  80. IF (IERR.NE.0) RETURN
  81. IF (IRET.EQ.0) GO TO 700
  82. C
  83. IPCHE1 = 0
  84. IPCHE2 = 0
  85. IPCHA1 = 0
  86. IPCHA2 = 0
  87. *
  88. * ON LIT UN 1-ER MCHAML
  89. *
  90. C Les REDUAF sont faits dans RIGI1 sur la partie utile du MMODEL
  91. CALL LIROBJ('MCHAML',IPCHA1,1,IRET1)
  92. IF (IERR.NE.0) RETURN
  93. *
  94. * ON LIT EVENTUELLEMENT UN 2EME MCHAML
  95. *
  96. C Les REDUAF sont faits dans RIGI1 sur la partie utile du MMODEL
  97. CALL LIROBJ('MCHAML',IPCHA2,0,IRET1)
  98. IF (IERR.NE.0) RETURN
  99. *
  100. * RANGEMENT DES POINTEURS : 'CARACTERISTIQUES' DANS IPCHE1
  101. * 'MATRICE DE HOOKE' DANS IPCHE2
  102. *
  103. CALL RNGCHA(IPCHA1,IPCHA2,'CARACTERISTIQUES','MATRICE DE HOOKE',
  104. 1 IPCHE1,IPCHE2)
  105. IF (IERR.NE.0) RETURN
  106. *
  107. IF (IPCHE2.NE.0) THEN
  108. IMAT = 2
  109. ELSE IF (IPCHE1.NE.0) THEN
  110. IMAT = 1
  111. ELSE
  112. IPCHE1=IPCHA1
  113. IMAT = 1
  114. ENDIF
  115. *
  116. * APPEL AU CALCUL DES RIGIDITES ELEMENTAIRES
  117. *
  118. CALL RIGI1(IPMODL,IPCHE1,IPCHE2,IMAT,IPOI6,IRET,noer)
  119. *
  120. IF (noer.EQ.195) then
  121. CALL ECRent(noer)
  122. return
  123. endif
  124. IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPOI6)
  125. RETURN
  126. C
  127. C -------------------------------------------------*
  128. C **** RAIDEURS ADDITIONNELLES
  129. C -------------------------------------------------*
  130. 700 CONTINUE
  131. CALL LIRCHA(CMOT,0,IRET)
  132. IF (IERR.NE.0) RETURN
  133. IF (IRET.EQ.0) GOTO 800
  134. *
  135. CALL REFUS
  136. CALL APPUI(1)
  137. RETURN
  138. C
  139. C -------------------------------------------------*
  140. C **** ANALYSE MODALE
  141. C -------------------------------------------------*
  142. 800 CONTINUE
  143. CALL RIGIMO
  144. RETURN
  145.  
  146. END
  147.  
  148.  
  149.  
  150.  

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