Télécharger ecorhm.eso

Retour à la liste

Numérotation des lignes :

  1. C ECORHM SOURCE CHAT 05/01/12 23:25:17 5004
  2. CCC
  3. C **********************************************************************
  4. CCC
  5. SUBROUTINE ECO_RHMC (SIGINI,VARINI,DSIGTR,SIGFIN,VARFIN,
  6. . ddefpl,iplast,ndims,xmat,kerre,
  7. . precis,nitmax,nescri,ues,iterlocal)
  8. IMPLICIT INTEGER(I-N)
  9. integer ndims,kerre,nitmax,nescri,ues,ione,
  10. . iplast,i,iterlocal
  11. real*8 sigini( 6),varini(2),ddefpl( 6),sigtr( 6),
  12. . sigfin( 6),varfin(2),xmat(*),precis,sigtri(6),
  13. . xtri(7),xini(7),lini,void,resu,dsigtr( 6)
  14. void =0.D0
  15. ione =1
  16. kerre =0
  17. iplast=1
  18. do i=1,7
  19. xtri(i)=0.D0
  20. xini(i)=0.D0
  21. enddo
  22. call carac_mate_rhmc(xmat)
  23. do i=1,ndims
  24. sigtri(i)=sigini(i)+dsigtr(i)
  25. enddo
  26. call yielddRHMC(sigtri,ndims,void,ione,resu)
  27. if (resu.le.0.D0) then
  28. if (nescri.eq.1) write(ues,*)' Paso elastico'
  29. iplast=0
  30. do i=1,ndims
  31. sigfin(i)=sigtri(i)
  32. enddo
  33. varfin(1)=varini(1)
  34. varfin(2)=-1.D0
  35. iterlocal=0
  36. return
  37. endif
  38. if (nescri.eq.1) write(ues,*)' Paso plastico'
  39. do i=1,ndims
  40. xtri(i)=sigtri(i)
  41. xini(i)=sigtri(i)
  42. enddo
  43. lini=0.D0
  44. call Integra0RHMC(xtri,xini,ndims,lini,ddefpl,ndims,
  45. . precis,nitmax,nescri,ues,kerre,iterlocal)
  46. varfin(1)=varini(1)+lini
  47. varfin(2)=lini
  48. do i=1,ndims
  49. sigfin(i)=xini(i)
  50. enddo
  51. return
  52. end
  53.  
  54.  
  55.  
  56.  

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