Télécharger DECREN.INC

Retour à la liste

Numérotation des lignes :

  1. c ***** declaration parametres materiaux des renforts repartis *****
  2. logical plr_iso
  3. c vrai si les renforts ont un ecrouissage isotrope
  4. c faux si l ecrouissage des aciers est cinematique
  5. parameter (plr_iso=.false.)
  6.  
  7. c parametres des renforts pour chaque direction
  8. real*8 rhor(NB_RENF),deqr(NB_RENF),yor(NB_RENF),syr(NB_RENF),rhov
  9. real*8 taur(NB_RENF),vecr(NB_RENF,3),Hintr(NB_RENF)
  10. real*8 lsr(NB_RENF),lfr(NB_RENF),longr(NB_RENF),lcr(NB_RENF)
  11. real*8 hplr(NB_RENF),tor(NB_RENF),ekr(NB_RENF),skr(NB_RENF)
  12. real*8 ATRR(NB_RENF),khir(NB_RENF),gamr(NB_RENF),sprec(NB_RENF)
  13. real*8 ttaref(NB_RENF),xnr(NB_RENF),xmuthr(NB_RENF)
  14. real*8 refr0(NB_RENF),refr1(NB_RENF),refrf(NB_RENF)
  15. real*8 eprp1(NB_RENF)
  16. c gradient de la contrainte dans le renfort
  17. real*8 grad_sigr(NB_RENF),coeff_nlr(NB_RENF),coeff_nli(NB_RENF)
  18. c variable pour l endommagement des renforts
  19. real*8 sur(NB_RENF),epu(NB_RENF),wpr(NB_RENF)
  20. real*8 damrt0(NB_RENF),damrt1(NB_RENF),damrt2(NB_RENF)
  21. real*8 damrtf(NB_RENF)
  22. real*8 damrc0(NB_RENF),damrcf(NB_RENF)
  23. c contrainte de cisaillement et endommagement interface renforts
  24. real*8 tauie(NB_RENF),dami0(NB_RENF),damif(NB_RENF)
  25. real*8 taui0(NB_RENF),tauif(NB_RENF)
  26. real*8 epsm0(NB_RENF),epsmf(NB_RENF)
  27. c nombre de renfort effectivement consideres pour un calcul
  28. c on doit avoir NRENF00<=NB_RENF
  29. integer NRENF00
  30. c predicteur pour les renforts non locaux
  31. real*8 Et0(NB_RENF),Etf(NB_RENF)
  32. real*8 Hs0(NB_RENF),Hsf(NB_RENF)
  33. real*8 diffr0(NB_RENF),diffrf(NB_RENF)
  34.  
  35. c *** declaration variables internes pour les renforts *************
  36. real*8 epsr0(NB_RENF),epsrf(NB_RENF),eplr0(NB_RENF),eplrf(NB_RENF)
  37. real*8 sigr0(NB_RENF),sigrf(NB_RENF),spre0(NB_RENF),spref(NB_RENF)
  38. real*8 sigr_nl(NB_RENF),sigr_nl0(NB_RENF)
  39. real*8 eprm0(NB_RENF),eprmf(NB_RENF),depsa(NB_RENF)
  40. real*8 source_nl(NB_RENF),eper0(NB_RENF)
  41. real*8 epart(NB_RENF),eparv(NB_RENF)
  42. real*8 sigrfissp(NB_RENF,3,3),mu_r0(NB_RENF),eperf(NB_RENF)
  43. real*8 eprk0(NB_RENF),eprkf(NB_RENF),tokr(NB_RENF),yksyr(NB_RENF)
  44. real*8 epleq0(NB_RENF),epleqf(NB_RENF)
  45. real*8 eplrt(NB_RENF),eplrc(NB_RENF)
  46. c contraintes effective dans les renforts
  47. real*8 sigref(NB_RENF),sigre0(NB_RENF)
  48. c hypothese ecoulement
  49. real*8 Pb_nl(NB_RENF),hypo_nl(NB_RENF)
  50. c resultante des effets de renforts traversant les fissures
  51. real*8 sigrd33(3,3),sigrd6(6),sigrd33p(3,3),sigrd6p(6)
  52. c declaration supplementaires pour le traitement non local des renforts
  53. logical log_H_RENF(NB_RENF)
  54. integer Num_H_RENF(NB_RENF)
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  

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