Télécharger barpaa.eso

Retour à la liste

Numérotation des lignes :

  1. C BARPAA SOURCE CHAT 05/01/12 21:34:50 5004
  2. C
  3. SUBROUTINE BARPAA(XMAT,XCAR,DEPST,SIG0,VAR0,SIGF,VARF,DEFP)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6.  
  7. DIMENSION XMAT(14),VAR0(8),VARF(8)
  8. C----------------------------------------------------------------------
  9. C
  10. C DRIVER DU MODELE D'ANCRAGE POUR DES ELEMENTS DE BARRE
  11. C LE MODELE ACIER PLASTIQUE PARFAIT
  12. C LOI D'ADHERENCE ACIER-BETON D'ELIGEHAUSEN
  13. C D'APRES BARPAR et ELIGEH
  14. C----------------------------------------------------------------------
  15. C Didier COMBESCURE - EMSI - MAI 2000
  16. C----------------------------------------------------------------------
  17. C
  18. C XMAT( 1) YOUNG
  19. C XMAT( 2) NU
  20. C XMAT( 3) RHO
  21. C XMAT( 4) ALPHA
  22. C XMAT( 5) FY
  23. C XMAT( 6) HH
  24. C
  25. C XMAT( 7) KS
  26. C XMAT( 8) S1T
  27. C XMAT( 9) S2T
  28. C XMAT(10) S3T
  29. C XMAT(11) T1T
  30. C XMAT(12) T3T
  31. C XMAT(13) ALFA
  32. C XMAT(14) LANC
  33. C
  34. C
  35. C SIGF STRESS
  36. C DEPST,DEFP
  37. C
  38. C VAR0( 1) VARF( 1) EPSE DEFORMATION PLASTIQUE
  39. C VAR0( 3) VARF( 3) EPPP
  40. C VAR0( 4) VARF( 4) EPPM
  41. C VAR0( 5) VARF( 5) EPSOA
  42. C VAR0( 6) VARF( 6) KSTAN
  43. C VAR0( 7) VARF( 7) NITER
  44. C VAR0( 8) VARF( 8) XLAMBDA
  45. C
  46. C----------------------------------------------------------------------
  47. C
  48. C
  49. XSECT = XCAR
  50. XSIG0 = SIG0/XSECT
  51. C
  52. C
  53. CALL PARANC(XMAT,XSECT,DEPST,XSIG0,VAR0,XSIGF,VARF,DEFP)
  54. C
  55. C
  56. SIGF = XSECT*XSIGF
  57. C
  58. C
  59. RETURN
  60. END
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  

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