Esope source files

   1 : C TIGYLO    SOURCE    CHAT      05/01/13    03:39:44     5004           
   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 120 I=1,144
  32 :   120 RP(I,1)=0.D00
  33 : C
  34 : C
  35 :       RHOGI = RHO*XINX
  36 :       RG1P = (RHOGI*XL)/(3.D0)
  37 :       RG1M = (RHOGI*XL)/(-3.D0)
  38 :       RG2P = (RHOGI*XL)/(6.D0)
  39 :       RG2M = (RHOGI*XL)/(-6.D0)
  40 : C
  41 : C  REMPLISSAGE DE LA MATRICE
  42 : C  MY1
  43 :       RP(5,6)=RG1P
  44 :       RP(5,12)=RG2P
  45 : C  MZ1
  46 :       RP(6,5)=RG1M
  47 :       RP(6,11)=RG2M
  48 : C  MY2
  49 :       RP(11,6)=RG2P
  50 :       RP(11,12)=RG1P
  51 : C  MZ2
  52 :       RP(12,5)=RG2M
  53 :       RP(12,11)=RG1M
  54 : C
  55 :       RETURN
  56 :       END
  57 :  
  58 :