Esope source files

   1 : C FIBELA    SOURCE    CHAT      05/01/12    23:59:27     5004           
   2 :       SUBROUTINE FIBELA(XMAT,DEPS,SIG0,VAR0,SIGF,VARF)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)
   5 :       DIMENSION XMAT(4),DEPS(3),SIG0(3),VAR0(1),SIGF(3),VARF(3)
   6 : C----------------------------------------------------------------------
   7 : C
   8 : C     COMPORTEMENT DE FIBRE ELASTIQUE (PROTOTYPE)
   9 : C----------------------------------------------------------------------
  10 : C      Pierre Pegon (ISPRA) Juillet/Aout 1993
  11 : C----------------------------------------------------------------------
  12 : C
  13 : C      XMAT(1) YOUNG
  14 : C      XMAT(2) NU
  15 : C      XMAT(3) RHO
  16 : C      XMAT(4) ALPHA
  17 : C
  18 : C      DEPS(1) EPXX    SIG0(1) SIGF(1) SMXX
  19 : C      DEPS(2) GAXY    SIG0(2) SIGF(2) SMXY
  20 : C      DEPS(3) GAXZ    SIG0(3) SIGF(3) SMXZ
  21 : C                    
  22 : C                      VAR0(1) VARF(1) EPSE
  23 : C
  24 : C----------------------------------------------------------------------
  25 :        GAMMA=XMAT(1)/2/(XMAT(2)+1)
  26 : C
  27 :        SIGF(1)=SIG0(1) + XMAT(1) * DEPS(1)
  28 :        SIGF(2)=SIG0(2) + GAMMA   * DEPS(2)
  29 :        SIGF(3)=SIG0(3) + GAMMA   * DEPS(3)
  30 : C
  31 :        RETURN
  32 :        END
  33 :