Télécharger la plaquette Cast3M


fr en

Télécharger tigylo.eso

Retour à la liste

Numérotation des lignes : 

tigylo

  1. C TIGYLO    SOURCE    CB215821  26/08/24    21:18:36     12622          
  2.       SUBROUTINE TIGYLO(RP,XL,RHO,SD,XINX,XINY,XINZ)
  3. C-----------------------------------------------------------------------
  4. C
  5. C    ROUTINE DE CALCUL DE LA MATRICE DE COUPLAGE
  6. C    GYROSCOPIQUE ELEMENTAIRE D UNE
  7. C    POUTRE DROITE EN AXES LOCAUX
  8. C
  9. C
  10. C
  11. C  ENTREE
  12. C    XL      LONGUEUR
  13. C    SD      SECTION DROITE
  14. C    XINX    INERTIE IX
  15. C    XINY    INERTIE IY
  16. C    XINZ    INERTIE IZ
  17. C    RHO     MASSE VOLUMIQUE
  18. C  SORTIE
  19. C    RP      MATRICE DE COUPLAGE GYROSCOPIQUE ELEMENTAIRE 12X12
  20. C
  21. C
  22. C                         Didier COMBESCURE mars 2003
  23. C
  24. C-----------------------------------------------------------------------
  25.       IMPLICIT INTEGER(I-N)
  26.       IMPLICIT REAL*8(A-H,O-Z)
  27.       DIMENSION RP(12,12)
  28. C
  29. C  INITIALISATIONS
  30. C
  31.       DO 121 J=1,12
  32.         DO 120 I=1,12
  33.           RP(I,J)=0.D0
  34.   120   CONTINUE
  35.   121 CONTINUE
  36. C
  37. C
  38.       RHOGI = RHO*XINX
  39.       RG1P = (RHOGI*XL)/(3.D0)
  40.       RG1M = (RHOGI*XL)/(-3.D0)
  41.       RG2P = (RHOGI*XL)/(6.D0)
  42.       RG2M = (RHOGI*XL)/(-6.D0)
  43. C
  44. C  REMPLISSAGE DE LA MATRICE
  45. C  MY1
  46.       RP(5,6)=RG1P
  47.       RP(5,12)=RG2P
  48. C  MZ1
  49.       RP(6,5)=RG1M
  50.       RP(6,11)=RG2M
  51. C  MY2
  52.       RP(11,6)=RG2P
  53.       RP(11,12)=RG1P
  54. C  MZ2
  55.       RP(12,5)=RG2M
  56.       RP(12,11)=RG1M
  57. C
  58.       RETURN
  59.       END
  60.  
  61.  
  62.  
  63.  
  64.  

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