Télécharger la plaquette Cast3M


fr en

Télécharger timal2.eso

Retour à la liste

Numérotation des lignes : 

timal2

  1. C TIMAL2    SOURCE    CB215821  26/08/24    21:18:38     12622          
  2. C TIMAL2    SOURCE    AM        93/01/12    21:35:51     781
  3.       SUBROUTINE TIMAL2(RP,XL,RHO,SD,XINZ)
  4. C-----------------------------------------------------------------------
  5. C
  6. C    ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE D UNE
  7. C    POUTRE DROITE EN AXES LOCAUX
  8. C    D APRES TEDEL
  9. C    DANS CETTE VERSION,ON PREND EN COMPTE LES INERTIES DE ROTATION
  10. C    MAIS PAS LA DEFORMABILITE A L EFFORT TRANCHANT
  11. C
  12. C  ENTREE
  13. C    XL      LONGUEUR
  14. C    SD      SECTION DROITE
  15. C    XINZ    INERTIE IZ
  16. C    RHO     MASSE VOLUMIQUE
  17. C  SORTIE
  18. C    RP      MATRICE DE MASSE ELEMENTAIRE 6X6
  19. C
  20. C    D'APRES TIMALO DC 98
  21. C
  22. C-----------------------------------------------------------------------
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8(A-H,O-Z)
  25.       DIMENSION RP(6,6)
  26. C
  27. C  INITIALISATIONS
  28. C
  29.       DO 121 J=1,6
  30.         DO 120 I=1,6
  31.           RP(I,J)=0.D0
  32.   120   CONTINUE
  33.   121 CONTINUE
  34. C
  35.       RHOSL=RHO*SD*XL
  36.       RSP1= RHO*SD*  XL*0.333333333333333333
  37.       RSP2= RHO*SD*  XL*0.166666666666666666
  38.       FLZ1= RHO*XINZ*XL*0.333333333333333333
  39.       FLZ2= RHO*XINZ*XL*0.166666666666666666
  40. C
  41. C  REMPLISSAGE DE LA MATRICE
  42. C  FX1
  43.       RP(1,1)=RSP1
  44.       RP(1,4)=RSP2
  45. C  FY1
  46.       RP(2,2)=RSP1
  47.       RP(2,5)=RSP2
  48. C  MZ1
  49.       RP(3,3)=FLZ1
  50.       RP(3,6)=FLZ2
  51. C  FX2
  52.       RP(4,4)=RSP1
  53. C  FY2
  54.       RP(5,5)=RSP1
  55. C  MZ2
  56.       RP(6,6)=FLZ1
  57. C
  58.       DO 122 I=1,6
  59.         DO 9 J=I,6
  60.           RP(J,I)= RP(I,J)
  61.     9   CONTINUE
  62.   122 CONTINUE
  63.       RETURN
  64.       END
  65.  
  66.  
  67.  
  68.  
  69.  

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