Esope source files

   1 : C TIDEF2    SOURCE    CHAT      05/01/13    03:38:14     5004           
   2 : C TIDEF2    SOURCE    IANIS     95/09/18    21:19:14     1823           
   3 :       SUBROUTINE TIDEF2(V,DEFO,XL,IDEUX)
   4 : C-----------------------------------------------------------------------
   5 : C
   6 : C    ROUTINE DE CALCUL DES DEFORMATIONS DE LA POUTRE DROITE
   7 : C
   8 : C  ENTREE
   9 : C    V       VECTEUR DES DEPLACEMENTS LOCAUX AUX 2 NOEUDS DE LA POUTRE
  10 : C    XL      LONGUEUR
  11 : C    IDEUX   INDICE POUR DEFORMATIONS DU 2-EME ORDRE
  12 : C
  13 : C  SORTIE
  14 : C    DEFO    DEFORMATIONS AU MILIEU  3 PAR NOEUD
  15 : C
  16 : C    PP 4/9/92
  17 : C-----------------------------------------------------------------------
  18 :       IMPLICIT INTEGER(I-N)
  19 :       IMPLICIT REAL*8(A-H,O-Z)
  20 :       DIMENSION DEFO(*),V(*)
  21 :       DATA P5/0.5D0/
  22 : C
  23 :       RL=1.D00/XL
  24 :       RL2=RL*RL
  25 : C
  26 : C  DEFORMATIONS GENERALISEES
  27 : C
  28 :       EPS  = (V(4)-V(1))*RL
  29 :       EPTY = (V(5)-V(2))*RL - (V(3)+V(6))*P5
  30 :       XSIZ =-(V(3)-V(6))*RL
  31 : C
  32 : C  REMPLISSAGE DU TABLEAU DEFO
  33 : C
  34 :       DEFO(1)=EPS
  35 :       DEFO(2)=EPTY
  36 :       DEFO(3)=XSIZ
  37 : C
  38 :       IF(IDEUX.EQ.0) RETURN
  39 : C
  40 : C  TERMES DU SECOND ORDRE pour la membrane
  41 : C
  42 :       AUX1=0.5D0*(EPS**2+((V(5)-V(2))*RL)**2)
  43 :       DEFO(1) = DEFO(1) + AUX1 
  44 :       RETURN
  45 :       END
  46 :  
  47 :  
  48 :