Esope source files

   1 : C TIFCOL    SOURCE    KK2000    05/05/25    21:15:29     5088           
   2 :       SUBROUTINE TIFCOL(RP,XL,LHOOK,DDHOOK,VROTL)
   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    (REPERE TOURNANT)
   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 RAIDEUR ELEMENTAIRE 12X12
  15 : C
  16 : C-----------------------------------------------------------------------
  17 : C     Didier Combescure Mars 2003
  18 : C-----------------------------------------------------------------------
  19 :       IMPLICIT INTEGER(I-N)
  20 :       IMPLICIT REAL*8(A-H,O-Z)
  21 : -INC CCREEL
  22 :       DIMENSION RP(12,12),VROTL(3),ROME(6,6)
  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 :       DO 121 I=1,6
  32 :       DO 121 J=1,6
  33 :   121 ROME(I,J)=0.D00
  34 : C
  35 :       ROME(1,2) = (-1.)*VROTL(3)
  36 :       ROME(1,3) = VROTL(2)
  37 :       ROME(2,3) = (-1.)*VROTL(1)
  38 :       ROME(2,1) = VROTL(3)
  39 :       ROME(3,1) = (-1.)*VROTL(2)
  40 :       ROME(3,2) = VROTL(1)
  41 : C      ROME(4,5) = (-1.)*VROTL(3)
  42 : C      ROME(4,6) = VROTL(2)
  43 : C      ROME(5,6) = (-1.)*VROTL(1)
  44 : C      ROME(5,4) = VROTL(3)
  45 : C      ROME(6,4) = (-1.)*VROTL(2)
  46 : C      ROME(6,5) = VROTL(1)
  47 : C
  48 : C
  49 : C  REMPLISSAGE DE LA MATRICE
  50 : C  
  51 :       DO 201 I=1,3 
  52 :         DO 201 J=1,3 
  53 :         RP(I,J) =  DDHOOK( J, J)*ROME(I,J)*XL/3.
  54 :         RP(I+6,J) =DDHOOK( J, J)*ROME(I,J)*XL/6.
  55 :         RP(I,J+6) =DDHOOK( J, J)*ROME(I,J)*XL/6.
  56 :         RP(I+6,J+6) =DDHOOK( J, J)*ROME(I,J)*XL/3.
  57 :   201 CONTINUE
  58 : C
  59 :       RETURN
  60 :       END
  61 :  
  62 :  
  63 :  
  64 :  
  65 :