Télécharger la plaquette Cast3M


fr en

Télécharger timgr2.eso

Retour à la liste

Numérotation des lignes : 

timgr2

  1. C TIMGR2    SOURCE    AM        10/09/20    21:15:27     6756
  2.       SUBROUTINE TIMGR2(COORD,DEPLA,GRAD,WORK)
  3. C-----------------------------------------------------------------------
  4. C  ROUTINE DE CALCUL DES GRADIENTS 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 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(4)-WORK(1))/XL
  40.       GRAD(2)=(WORK(5)-WORK(2))/XL
  41.       RETURN
  42.       END
  43.  
  44.  
  45.  
  46.  

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