Télécharger fibela.eso

Retour à la liste

Numérotation des lignes :

  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.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales