Télécharger gyros.eso

Retour à la liste

Numérotation des lignes :

gyros
  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.  
  28. -INC PPARAM
  29. -INC CCOPTIO
  30. C
  31. IPMODL = 0
  32. IPCHE1 = 0
  33. IPRIG = 0
  34. C
  35. C lecture du modèle
  36. C
  37. CALL LIROBJ('MMODEL ',IPMODL,1,iretou)
  38. CALL ACTOBJ('MMODEL ',IPMODL,1)
  39. IF (IERR.NE.0) RETURN
  40. C
  41. C lecture du mchaml de caractéristiques matériau
  42. C
  43. CALL LIROBJ('MCHAML ',IPIN,1,iretou)
  44. CALL ACTOBJ('MCHAML ',IPIN,1)
  45. IF (IERR.NE.0) RETURN
  46. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  47. IF(IR .NE. 1) CALL ERREUR(KER)
  48. IF(IERR .NE. 0) RETURN
  49. *
  50. * Matrice de couplage Gyroscopique
  51. *
  52. CALL GYRO2(IPMODL,IPCHE1,IPRIG)
  53. IF(IERR .NE. 0) RETURN
  54. C
  55. IF (IPRIG.NE.0 .AND. IERR.EQ.0) THEN
  56. CALL ECROBJ('RIGIDITE',IPRIG)
  57. ENDIF
  58.  
  59. END
  60.  
  61.  
  62.  

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