Télécharger gyros.eso

Retour à la liste

Numérotation des lignes :

  1. C GYROS SOURCE CB215821 16/12/05 21:39:33 9237
  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. IF (IERR.NE.0) RETURN
  37. C
  38. C lecture du mchaml de caractéristiques matériau
  39. C
  40. CALL LIROBJ('MCHAML',IPIN,1,iretou)
  41. IF (IERR.NE.0) RETURN
  42. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  43. IF(IR .NE. 1) CALL ERREUR(KER)
  44. IF(IERR .NE. 0) RETURN
  45. *
  46. * Matrice de couplage Gyroscopique
  47. *
  48. CALL GYRO2(IPMODL,IPCHE1,IPRIG)
  49. IF(IERR .NE. 0) RETURN
  50. C
  51. IF (IPRIG.NE.0 .AND. IERR.EQ.0) THEN
  52. CALL ECROBJ('RIGIDITE',IPRIG)
  53. ENDIF
  54. C
  55. RETURN
  56. END
  57.  
  58.  
  59.  

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