Télécharger la plaquette Cast3M


fr en

Télécharger timgf2.eso

Retour à la liste

Numérotation des lignes : 

timgf2

  1. C TIMGF2    SOURCE    AM        10/09/20    21:15:25     6756
  2.       SUBROUTINE TIMGF2(COORD,DEPLA,GRAD,WORK)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE CALCUL DES GRADIENTSDE FLEXION  POUR LA POUTRE DROITE
  5. C  DE TIMOSHENKO SIMPLE OU MULTI-FIBRE
  6. C
  7. C  ENTREE
  8. C          DEPLA   DEPLACEMENTS
  9. C          COORD   COORDONNEES DES 2 NOEUDS
  10. C
  11. C  SORTIE
  12. C          GRAD    GRADIENTS DE FLEXION  AU CENTRE
  13. C  TRAVAIL
  14. C          WORK(300)
  15. C-----------------------------------------------------------------------
  16.       IMPLICIT INTEGER(I-N)
  17.       IMPLICIT REAL*8(A-H,O-Z)
  18.       DIMENSION WORK(*)
  19.       DIMENSION GRAD(*),COORD(3,*),P(2,2),
  20.      .          XE(2),YE(2),DEPLA(*)
  21. C
  22.       DO I=1,2
  23.         XE(I)=COORD(1,I)
  24.         YE(I)=COORD(2,I)
  25.       ENDDO
  26.       XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2
  27.       XL=SQRT(XL)
  28. C
  29. C  CALCUL DE LA MATRICE DE PASSAGE
  30. C
  31.       CALL POUPA2(XE,YE,P,KERRE)
  32. C
  33. C  PASSAGE DES DEPLACEMENTS EN AXES LOCAUX
  34. C
  35.       CALL POUVE2(DEPLA,WORK,P,1)
  36. C
  37. C  CALCUL DES GRADIENTS AU CENTRE
  38. C
  39.       GRAD(1)=(WORK(6)-WORK(3))/XL
  40.       RETURN
  41.       END
  42.  
  43.  
  44.  
  45.  

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