C TIGYLO    SOURCE    CHAT      05/01/13    03:39:44     5004           
      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 120 I=1,144
  120 RP(I,1)=0.D00
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