Télécharger baepex.eso

Retour à la liste

Numérotation des lignes :

  1. C BAEPEX SOURCE CHAT 05/01/12 21:31:24 5004
  2. C BAEPEX SOURCE DJER 93/03/02 22:54:40
  3. SUBROUTINE BAEPEX(DEPLA,TGL,AL,DEFO,LRE)
  4. C-----------------------------------------------------------------------
  5. C ROUTINE DE CALCUL DES DEFORMATIONS POUR LA BARRE
  6. C
  7. C ENTREE
  8. C DEPLA DEPLACEMENTS
  9. C COORD COORDONNEES DES 2 NOEUDS
  10. C
  11. C SORTIE
  12. C DEFO DEFORMATION AUX 2 NOEUDS
  13. C-----------------------------------------------------------------------
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8(A-H,O-Z)
  16. DIMENSION DEFO(*),DEPLA(*),DEP2(2),TGL(2,LRE)
  17. C
  18. DEP2(1)=0.D0
  19. DEP2(2)=0.D0
  20. DO 1 I=1,2
  21. DO 2 K=1,LRE
  22. 2 DEP2(I)=DEP2(I)+TGL(I,K)*DEPLA(K)
  23. 1 CONTINUE
  24. EPS=(DEP2(2)-DEP2(1))/AL
  25. DEFO(1)=EPS
  26. DEFO(2)=EPS
  27. RETURN
  28. END
  29.  
  30.  
  31.  

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