Télécharger rigi.eso

Retour à la liste

Numérotation des lignes :

  1. C RIGI SOURCE PV 19/01/17 21:15:14 10078
  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.  
  83. CALL ACTOBJ('MMODEL ',IPMODL,1)
  84. C
  85. IPCHE1 = 0
  86. IPCHE2 = 0
  87. IPCHA1 = 0
  88. IPCHA2 = 0
  89. *
  90. * ON LIT UN 1-ER MCHAML
  91. *
  92. C Les REDUAF sont faits dans RIGI1 sur la partie utile du MMODEL
  93. CALL LIROBJ('MCHAML ',IPCHA1,1,IRET1)
  94. IF (IERR.NE.0) RETURN
  95. CALL ACTOBJ('MCHAML ',IPCHA1,1)
  96. *
  97. * ON LIT EVENTUELLEMENT UN 2EME MCHAML
  98. *
  99. C Les REDUAF sont faits dans RIGI1 sur la partie utile du MMODEL
  100. CALL LIROBJ('MCHAML',IPCHA2,0,IRET1)
  101. IF (IERR.NE.0) RETURN
  102. IF(IRET1 .NE. 0)CALL ACTOBJ('MCHAML ',IPCHA2,1)
  103. *
  104. * RANGEMENT DES POINTEURS : 'CARACTERISTIQUES' DANS IPCHE1
  105. * 'MATRICE DE HOOKE' DANS IPCHE2
  106. *
  107. CALL RNGCHA(IPCHA1,IPCHA2,'CARACTERISTIQUES','MATRICE DE HOOKE',
  108. 1 IPCHE1,IPCHE2)
  109. IF (IERR.NE.0) RETURN
  110.  
  111. IF (IPCHE2.NE.0) THEN
  112. IMAT = 2
  113. ELSE IF (IPCHE1.NE.0) THEN
  114. IMAT = 1
  115. ELSE
  116. IPCHE1=IPCHA1
  117. IMAT = 1
  118. ENDIF
  119. *
  120. * APPEL AU CALCUL DES RIGIDITES ELEMENTAIRES
  121. *
  122. CALL RIGI1(IPMODL,IPCHE1,IPCHE2,IMAT,IPOI6,IRET,noer)
  123. *
  124. IF (noer.EQ.195) then
  125. CALL ECRent(noer)
  126. call soucis(195)
  127. return
  128. endif
  129. IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPOI6)
  130. RETURN
  131. C
  132. C -------------------------------------------------*
  133. C **** RAIDEURS ADDITIONNELLES
  134. C -------------------------------------------------*
  135. 700 CONTINUE
  136. CALL LIRCHA(CMOT,0,IRET)
  137. IF (IERR.NE.0) RETURN
  138. IF (IRET.EQ.0) GOTO 800
  139. *
  140. CALL REFUS
  141. CALL APPUI(1)
  142. RETURN
  143. C
  144. C -------------------------------------------------*
  145. C **** ANALYSE MODALE
  146. C -------------------------------------------------*
  147. 800 CONTINUE
  148. CALL RIGIMO
  149. RETURN
  150.  
  151. END
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  

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