Télécharger bst.eso

Retour à la liste

Numérotation des lignes :

  1. C BST SOURCE CB215821 18/09/10 21:15:11 9912
  2.  
  3. C=======================================================================
  4. C= B S T =
  5. C= ----- =
  6. C= =
  7. C= Fonction : =
  8. C= ---------- =
  9. C= Calcul des deformations en un point d'un element fini a partir des =
  10. C= "deplacements" nodaux XDDL et de la matrice gradient BGENE =
  11. C= =
  12. C= Parametres : (E)=Entree (S)=Sortie =
  13. C= ------------ =
  14. C= BGENE (E) Matrice de gradients (B) calculee au point etudie =
  15. C= XDDL (E) Valeurs des DDLs aux neouds de l'element fini =
  16. C= LRE (E) Nombre de DDL de l'element fini =
  17. C= NDEFO (E) Nombre de composantes de contraintes/deformations =
  18. C= XDEFO (S) Valeurs des deformations au point de Gauss =
  19. C=======================================================================
  20.  
  21. SUBROUTINE BST (BGENE,XDDL,LRE,NDEFO,XDEFO)
  22.  
  23. IMPLICIT INTEGER(I-N)
  24. IMPLICIT REAL*8 (A-H,O-Z)
  25.  
  26. DIMENSION BGENE(NDEFO,*),XDEFO(*),XDDL(*)
  27.  
  28. C Remise a ZERO
  29. DO i=1,NDEFO
  30. XDEFO(i)=0.D0
  31. ENDDO
  32.  
  33. C Calcul continu en memoire
  34. DO j=1,LRE
  35. XFLO1=XDDL(j)
  36. DO i=1,NDEFO
  37. XDEFO(i)=XDEFO(i)+XFLO1*BGENE(i,j)
  38. ENDDO
  39. ENDDO
  40.  
  41. RETURN
  42. END
  43.  
  44.  
  45.  

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