Esope source files

   1 : C BST       SOURCE    CHAT      05/01/12    21:44:06     5004           
   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 : -INC CCREEL
  27 : 
  28 :       DIMENSION BGENE(NDEFO,*),XDEFO(*),XDDL(*)
  29 : 
  30 :       DO i=1,NDEFO
  31 :         cc=XZero
  32 :         DO j=1,LRE
  33 :           cc=cc+XDDL(j)*BGENE(i,j)
  34 :         ENDDO
  35 :         XDEFO(i)=cc
  36 :       ENDDO
  37 : 
  38 :       RETURN
  39 :       END
  40 : 
  41 :  
  42 :