Télécharger la plaquette Cast3M


fr en

Télécharger barpaa.eso

Retour à la liste

Numérotation des lignes : 

barpaa

  1. C BARPAA    SOURCE    PV        18/06/20    21:15:03     9860           
  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(*),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.  
  67.  

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