C TIGYLO    SOURCE    CB215821  26/08/24    21:18:36     12622          
      SUBROUTINE TIGYLO(RP,XL,RHO,SD,XINX,XINY,XINZ)
C-----------------------------------------------------------------------
C
C    ROUTINE DE CALCUL DE LA MATRICE DE COUPLAGE
C    GYROSCOPIQUE ELEMENTAIRE D UNE
C    POUTRE DROITE EN AXES LOCAUX
C
C
C
C  ENTREE
C    XL      LONGUEUR
C    SD      SECTION DROITE
C    XINX    INERTIE IX
C    XINY    INERTIE IY
C    XINZ    INERTIE IZ
C    RHO     MASSE VOLUMIQUE
C  SORTIE
C    RP      MATRICE DE COUPLAGE GYROSCOPIQUE ELEMENTAIRE 12X12
C
C
C                         Didier COMBESCURE mars 2003
C
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION RP(12,12)
C
C  INITIALISATIONS
C
      DO 121 J=1,12
        DO 120 I=1,12
          RP(I,J)=0.D0
  120   CONTINUE
  121 CONTINUE
C
C
      RHOGI = RHO*XINX
      RG1P = (RHOGI*XL)/(3.D0)
      RG1M = (RHOGI*XL)/(-3.D0)
      RG2P = (RHOGI*XL)/(6.D0)
      RG2M = (RHOGI*XL)/(-6.D0)
C
C  REMPLISSAGE DE LA MATRICE
C  MY1
      RP(5,6)=RG1P
      RP(5,12)=RG2P
C  MZ1
      RP(6,5)=RG1M
      RP(6,11)=RG2M
C  MY2
      RP(11,6)=RG2P
      RP(11,12)=RG1P
C  MZ2
      RP(12,5)=RG2M
      RP(12,11)=RG1M
C
      RETURN
      END