C TIFYLO    SOURCE    CHAT      05/01/13    03:39:41     5004
      SUBROUTINE TIFYLO(RP,XL,LHOOK,DDHOOK,OMEG)
C-----------------------------------------------------------------------
C
C    ROUTINE DE CALCUL DE LA MATRICE DE COUPLAGE GYROSCOPIQUE ELEMENTAIRE
C    D UNE POUTRE DE TIMOSHENKO DROITE MULTI-FIBRE EN AXES LOCAUX
C
C
C  ENTREE
C    XL      LONGUEUR
C    DDHOOK(LHOOK,LHOOK) MATRICE DE "HOOK"
C
C  SORTIE
C    RP      MATRICE DE COUPLAGE ELEMENTAIRE 12X12
C
C-----------------------------------------------------------------------
C     Didier Combescure 2003
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCREEL
      DIMENSION RP(12,12)
      DIMENSION DDHOOK(LHOOK,LHOOK)
C
C  INITIALISATIONS
C
      DO 120 I=1,12
      DO 120 J=1,12
  120 RP(I,J)=0.D00
C
C
C
C  REMPLISSAGE DE LA MATRICE
C  MY1
      RP( 5, 6)=OMEG*DDHOOK( 5, 6)*XL/3.0D0
      RP( 5, 12)=OMEG*DDHOOK( 5, 6)*XL/6.0D0
C  MZ1
      RP( 6, 5)=OMEG*DDHOOK( 6, 5)*XL/3.0D0
      RP( 6, 11)=OMEG*DDHOOK( 6, 5)*XL/6.0D0
C  MY2
      RP( 11, 6)=OMEG*DDHOOK( 5, 6)*XL/6.0D0
      RP( 11, 12)=OMEG*DDHOOK( 5, 6)*XL/3.0D0
C  MZ2
      RP( 12, 5)=OMEG*DDHOOK( 6, 5)*XL/6.0D0
      RP( 12, 11)=OMEG*DDHOOK( 6, 5)*XL/3.0D0
C
      RETURN
      END