Télécharger la plaquette Cast3M


fr en

Télécharger tifal2.eso

Retour à la liste

Numérotation des lignes : 

tifal2

  1. C TIFAL2    SOURCE    CB215821  26/08/24    21:18:31     12622          
  2. C TIFAL2    SOURCE    AM        94/02/25    22:55:09     1061
  3.       SUBROUTINE TIFAL2(RP,XL,LHOOK,DDHOOK)
  4. C-----------------------------------------------------------------------
  5. C
  6. C    ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE D UNE
  7. C    POUTRE DE TIMOSHENKO DROITE MULTI-FIBRE EN AXES LOCAUX
  8. C    D APRES TEDEL
  9. C
  10. C  ENTREE
  11. C    XL      LONGUEUR
  12. C    DDHOOK(LHOOK,LHOOK) MATRICE DE "HOOK"
  13. C
  14. C  SORTIE
  15. C    RP      MATRICE DE MASSE ELEMENTAIRE 12X12
  16. C
  17. C D'APRES TIFALO DC 98
  18. C-----------------------------------------------------------------------
  19.       IMPLICIT INTEGER(I-N)
  20.       IMPLICIT REAL*8(A-H,O-Z)
  21.       DIMENSION RP(6,6)
  22.       DIMENSION DDHOOK(LHOOK,LHOOK)
  23. C
  24. C  INITIALISATIONS
  25. C
  26.       DO 121 I=1,6
  27.       DO 120 J=1,6
  28.       RP(I,J)=0.D00
  29.   120 CONTINUE
  30.   121 CONTINUE
  31. C
  32. C  REMPLISSAGE DE LA MATRICE
  33. C  FX1
  34.       RP( 1, 1)=DDHOOK( 1, 1)*XL/3.0D0
  35.       RP( 1, 3)=DDHOOK( 1, 3)*XL/3.0D0
  36.       RP( 1, 4)=RP( 1, 1)/2.0D0
  37.       RP( 1, 6)=RP( 1, 3)/2.0D0
  38. C  FY1
  39.       RP( 2, 2)=DDHOOK( 2, 2)*XL/3.0D0
  40.       RP( 2, 5)=RP( 2, 2)/2.0D0
  41. C  MZ1
  42.       RP( 3, 3)=DDHOOK( 3, 3)*XL/3.0D0
  43.       RP( 3, 4)=DDHOOK( 3, 1)*XL/6.0D0
  44.       RP( 3, 6)=RP( 3, 3)/2.0D0
  45. C  FX2
  46.       RP( 4, 4)=RP( 1, 1)
  47.       RP( 4, 6)=RP( 1, 3)
  48. C  FY2
  49.       RP( 5, 5)=RP( 2, 2)
  50. C  MZ2
  51.       RP( 6, 6)=RP( 3, 3)
  52. C
  53.       DO 122 I=1,5
  54.       DO 9 J=I+1,6
  55.       RP(J,I)= RP(I,J)
  56.     9 CONTINUE
  57.   122 CONTINUE
  58.       RETURN
  59.       END
  60.  
  61.  
  62.  
  63.  

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