Télécharger la plaquette Cast3M


fr en

Télécharger tifylo.eso

Retour à la liste

Numérotation des lignes : 

tifylo

  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.  
  52.  

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