Télécharger gyros.eso

Retour à la liste

Numérotation des lignes :

  1. C GYROS SOURCE CB215821 19/08/01 21:16:03 10279
  2.  
  3. SUBROUTINE GYROS
  4.  
  5. C***********************************************************************
  6. C *
  7. C FABRICATION DE LA MATRICE DE COUPLAGE GYROSCOPIQUE DANS *
  8. C LE REPERE INERTIEL (Calcul classique POUTRE) *
  9. C *
  10. C Syntaxe : *
  11. C -------- *
  12. C *
  13. C RIG1 = GYROS MODL1 MAT1 ; *
  14. C *
  15. C RIG1 : matrice d'amortissement construite (TYPE rigidité, SOUS-TYPE *
  16. C amortissement) *
  17. C MODL1: objet MMODEL, modèle *
  18. C MAT1 : objet MCHAML, caractéristiques matériau *
  19. C *
  20. C Didier COMBESCURE mars 2003 *
  21. C *
  22. C***********************************************************************
  23. C
  24. IMPLICIT INTEGER(I-N)
  25. IMPLICIT REAL*8 (A-H,O-Z)
  26.  
  27. -INC CCOPTIO
  28. C
  29. IPMODL = 0
  30. IPCHE1 = 0
  31. IPRIG = 0
  32. C
  33. C lecture du modèle
  34. C
  35. CALL LIROBJ('MMODEL ',IPMODL,1,iretou)
  36. CALL ACTOBJ('MMODEL ',IPMODL,1)
  37. IF (IERR.NE.0) RETURN
  38. C
  39. C lecture du mchaml de caractéristiques matériau
  40. C
  41. CALL LIROBJ('MCHAML ',IPIN,1,iretou)
  42. CALL ACTOBJ('MCHAML ',IPIN,1)
  43. IF (IERR.NE.0) RETURN
  44. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  45. IF(IR .NE. 1) CALL ERREUR(KER)
  46. IF(IERR .NE. 0) RETURN
  47. *
  48. * Matrice de couplage Gyroscopique
  49. *
  50. CALL GYRO2(IPMODL,IPCHE1,IPRIG)
  51. IF(IERR .NE. 0) RETURN
  52. C
  53. IF (IPRIG.NE.0 .AND. IERR.EQ.0) THEN
  54. CALL ECROBJ('RIGIDITE',IPRIG)
  55. ENDIF
  56.  
  57. END
  58.  
  59.  
  60.  

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