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    CB215821  26/08/24    21:18:35     12622          
  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 121 I=1,12
  28.         DO 120 J=1,12
  29.           RP(I,J)=0.D00
  30.   120   CONTINUE
  31.   121 CONTINUE
  32. C
  33. C
  34. C
  35. C  REMPLISSAGE DE LA MATRICE
  36. C  MY1
  37.       RP( 5, 6)=OMEG*DDHOOK( 5, 6)*XL/3.0D0
  38.       RP( 5, 12)=OMEG*DDHOOK( 5, 6)*XL/6.0D0
  39. C  MZ1
  40.       RP( 6, 5)=OMEG*DDHOOK( 6, 5)*XL/3.0D0
  41.       RP( 6, 11)=OMEG*DDHOOK( 6, 5)*XL/6.0D0
  42. C  MY2
  43.       RP( 11, 6)=OMEG*DDHOOK( 5, 6)*XL/6.0D0
  44.       RP( 11, 12)=OMEG*DDHOOK( 5, 6)*XL/3.0D0
  45. C  MZ2
  46.       RP( 12, 5)=OMEG*DDHOOK( 6, 5)*XL/6.0D0
  47.       RP( 12, 11)=OMEG*DDHOOK( 6, 5)*XL/3.0D0
  48. C
  49.       RETURN
  50.       END
  51.  
  52.  
  53.  
  54.  
  55.  

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