Esope source files

   1 : C TIFYLO    SOURCE    CHAT      05/01/13    03:39:41     5004           
   2 :       SUBROUTINE TIFYLO(RP,XL,LHOOK,DDHOOK,OMEG)
   3 : C-----------------------------------------------------------------------
   4 : C
   5 : C    ROUTINE DE CALCUL DE LA MATRICE DE COUPLAGE GYROSCOPIQUE ELEMENTAIRE 
   6 : C    D UNE POUTRE DE TIMOSHENKO DROITE MULTI-FIBRE EN AXES LOCAUX
   7 : C    
   8 : C
   9 : C  ENTREE
  10 : C    XL      LONGUEUR
  11 : C    DDHOOK(LHOOK,LHOOK) MATRICE DE "HOOK"
  12 : C
  13 : C  SORTIE
  14 : C    RP      MATRICE DE COUPLAGE ELEMENTAIRE 12X12
  15 : C
  16 : C-----------------------------------------------------------------------
  17 : C     Didier Combescure 2003
  18 : C-----------------------------------------------------------------------
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)
  21 : -INC CCREEL
  22 :       DIMENSION RP(12,12)
  23 :       DIMENSION DDHOOK(LHOOK,LHOOK)
  24 : C
  25 : C  INITIALISATIONS
  26 : C
  27 :       DO 120 I=1,12
  28 :       DO 120 J=1,12
  29 :   120 RP(I,J)=0.D00
  30 : C
  31 : C
  32 : C
  33 : C  REMPLISSAGE DE LA MATRICE
  34 : C  MY1
  35 :       RP( 5, 6)=OMEG*DDHOOK( 5, 6)*XL/3.0D0
  36 :       RP( 5, 12)=OMEG*DDHOOK( 5, 6)*XL/6.0D0
  37 : C  MZ1
  38 :       RP( 6, 5)=OMEG*DDHOOK( 6, 5)*XL/3.0D0
  39 :       RP( 6, 11)=OMEG*DDHOOK( 6, 5)*XL/6.0D0
  40 : C  MY2
  41 :       RP( 11, 6)=OMEG*DDHOOK( 5, 6)*XL/6.0D0
  42 :       RP( 11, 12)=OMEG*DDHOOK( 5, 6)*XL/3.0D0
  43 : C  MZ2
  44 :       RP( 12, 5)=OMEG*DDHOOK( 6, 5)*XL/6.0D0
  45 :       RP( 12, 11)=OMEG*DDHOOK( 6, 5)*XL/3.0D0
  46 : C
  47 :       RETURN
  48 :       END
  49 :  
  50 :  
  51 :