Télécharger la plaquette Cast3M


fr en

Télécharger tifcol.eso

Retour à la liste

Numérotation des lignes : 

tifcol

  1. C TIFCOL    SOURCE    CB215821  26/08/24    21:18:33     12622          
  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 202 I=1,12
  28.       DO 120 J=1,12
  29.       RP(I,J)=0.D00
  30.   120 CONTINUE
  31.   202 CONTINUE
  32. C
  33.       DO 203 I=1,6
  34.       DO 121 J=1,6
  35.       ROME(I,J)=0.D00
  36.   121 CONTINUE
  37.   203 CONTINUE
  38. C
  39.       ROME(1,2) = (-1.)*VROTL(3)
  40.       ROME(1,3) = VROTL(2)
  41.       ROME(2,3) = (-1.)*VROTL(1)
  42.       ROME(2,1) = VROTL(3)
  43.       ROME(3,1) = (-1.)*VROTL(2)
  44.       ROME(3,2) = VROTL(1)
  45. C      ROME(4,5) = (-1.)*VROTL(3)
  46. C      ROME(4,6) = VROTL(2)
  47. C      ROME(5,6) = (-1.)*VROTL(1)
  48. C      ROME(5,4) = VROTL(3)
  49. C      ROME(6,4) = (-1.)*VROTL(2)
  50. C      ROME(6,5) = VROTL(1)
  51. C
  52. C
  53. C  REMPLISSAGE DE LA MATRICE
  54. C
  55.       DO 204 I=1,3
  56.         DO 201 J=1,3
  57.         RP(I,J) =  DDHOOK( J, J)*ROME(I,J)*XL/3.
  58.         RP(I+6,J) =DDHOOK( J, J)*ROME(I,J)*XL/6.
  59.         RP(I,J+6) =DDHOOK( J, J)*ROME(I,J)*XL/6.
  60.         RP(I+6,J+6) =DDHOOK( J, J)*ROME(I,J)*XL/3.
  61.   201 CONTINUE
  62.   204 CONTINUE
  63. C
  64.       RETURN
  65.       END
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales