Télécharger ERRREN.INC

Retour à la liste

Numérotation des lignes :

  1. if(ierr_renfort.eq.1) then
  2. print*,'Erreur 1 endo_renfort ds fluendo3d'
  3. print*,'Renfort numero:',i
  4. do j=0,9
  5. print*,'var0(',ivari+j,')=',var0(ivari+j)
  6. end do
  7. print*,'variable pour renfort3d'
  8. print*,'direction'
  9. do j=1,3
  10. print*,'vecr(',i,j,')=',vecr(i,j)
  11. end do
  12. print*,'coeff_nlr(i) av renfort',var0(ivari+3)
  13. print*,istep,NB_RENF,i,epstf33,epsr0(i),
  14. # epsrf(i),eplr0(i),eplrf(i),yor(i),syr(i),sigre0(i),
  15. # sigref(i),hplr(i),tor(i),ekr(i),skr(i),ATRR(i),khir(i),
  16. # gamr(i),sprec(i),teta1,teta2,dt,ppas,theta,eprm0(i),
  17. # eprmf(i),ttaref(i),rhor(i),mu_r0(i),fl3d,errr,xnr(i),
  18. # xmuthr(i),eprk0(i),eprkf(i),tokr(i),yksyr(i),
  19. # plast_seule,epspmf33,spre0(i),
  20. # spref(i),epst033,depsa(i),epleq0(i),epleqf(i),
  21. # epsmf(i),epsm0(i),sigr_nl(i),coeff_nlr(i),eper0(i),
  22. # epart(i),eparv(i),hypo_nl(i),plr_iso,log_H_RENF(i),
  23. # garder,Pb_nl(i),travail_fissure
  24. print*,'variables pour endo_renfort'
  25. print*,sigref(i),eplrf(i),syr(i),sur(i),
  26. # epsrf(i),epu(i),hplr(i),yor(i),wpr(i),longr(i),
  27. # damrt0(i),damrtf(i),damrt1(i),damrt2(i),damrc0(i),
  28. # damrcf(i),refrf(i),eplrt(i),eplrc(i),plr_iso,
  29. # diffr0(i),diffrf(i),yor(i),deqr(i),Hintr(i),
  30. # grad_sigr(i),tauie(i),taur(i),dami0(i),damif(i),
  31. # epsmf(i),eplr0(i),sigre0(i),log_H_RENF(i),epsm0(i),
  32. # epsr0(i),depsa(i),Et0(i),Etf(i),Hs0(i),Hsf(i),sigrf(i),
  33. # spref(i),epart(i),eparv(i),source_nl(i),coeff_nlr(i),
  34. # taui0(i),tauif(i),coeff_nli(i),eprkf(i),
  35. # eprmf(i),hypo_nl(i),istep,err1,garder,
  36. # endo_interface_explicit
  37. print*,'coeff_nlr(i)',coeff_nlr(i)
  38. print*,'coeff_nli(i)',coeff_nli(i)
  39. ierr1=1
  40. return
  41. end if

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