Télécharger la plaquette Cast3M


fr en

Télécharger bst.eso

Retour à la liste

Numérotation des lignes : 

bst

  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