Sources Esope | Cast3M

fibela
C FIBELA    SOURCE    CHAT      05/01/12    23:59:27     5004
      SUBROUTINE FIBELA(XMAT,DEPS,SIG0,VAR0,SIGF,VARF)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION XMAT(4),DEPS(3),SIG0(3),VAR0(1),SIGF(3),VARF(3)
C----------------------------------------------------------------------
C
C     COMPORTEMENT DE FIBRE ELASTIQUE (PROTOTYPE)
C----------------------------------------------------------------------
C      Pierre Pegon (ISPRA) Juillet/Aout 1993
C----------------------------------------------------------------------
C
C      XMAT(1) YOUNG
C      XMAT(2) NU
C      XMAT(3) RHO
C      XMAT(4) ALPHA
C
C      DEPS(1) EPXX    SIG0(1) SIGF(1) SMXX
C      DEPS(2) GAXY    SIG0(2) SIGF(2) SMXY
C      DEPS(3) GAXZ    SIG0(3) SIGF(3) SMXZ
C
C                      VAR0(1) VARF(1) EPSE
C
C----------------------------------------------------------------------
       GAMMA=XMAT(1)/2/(XMAT(2)+1)
C
       SIGF(1)=SIG0(1) + XMAT(1) * DEPS(1)
       SIGF(2)=SIG0(2) + GAMMA   * DEPS(2)
       SIGF(3)=SIG0(3) + GAMMA   * DEPS(3)
C
       RETURN
       END