Télécharger rigi.eso

Retour à la liste

Numérotation des lignes :

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

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