Télécharger mtc_j2.eso

Retour à la liste

Numérotation des lignes :

  1. C MTC_J2 SOURCE CHAT 05/01/13 01:53:41 5004
  2. CCC
  3. C **********************************************************************
  4. CCC
  5. SUBROUTINE MTC_J2 (KMAT,NDIMK,SIG,NDIMS,VINT,LAM,XMAT,
  6. . nescri,ues,kerre)
  7. IMPLICIT INTEGER(I-N)
  8. integer ndims,kerre,nescri,ues,ndimk,ifl,ndimx,ndimv
  9. real*8 sig(ndims),vint,Kmat(*),xmat(*),x(7),void,lam
  10. real*8 sigy0,kiso,siginf,velo
  11. common /j2j2data/ sigy0,kiso,siginf,velo
  12. kerre=0
  13. do i=1,7
  14. x(i)=0.D0
  15. enddo
  16. call carac_mate_j2(xmat)
  17. if (lam.le.0.D0) then
  18. if (nescri.eq.1) write(ues,*)' Paso elastico'
  19. ifl=1
  20. call MatHok(Kmat,ndimk,ndims,ifl)
  21. return
  22. endif
  23. if (nescri.eq.1) write(ues,*)' Paso plastico'
  24. if ((kiso.eq.0.D0).and.(velo.eq.0.D0)) then
  25. if (nescri.eq.1) write(ues,*)' Plasticidad sin endurecimiento'
  26. ndimv=0
  27. call MTC0J2(Kmat,ndimk,sig,ndims,ndimv,lam,
  28. . nescri,ues,kerre)
  29. return
  30. else
  31. if (nescri.eq.1) write(ues,*)' Plasticidad con endurecimiento'
  32. ndimv=1
  33. ndimx=ndims+1
  34. do i=1,ndims
  35. x(i)=sig(i)
  36. enddo
  37. x(ndimx)=vint
  38. void=0.D0
  39. call MTC1J2(Kmat,ndimk,x,ndimx,ndimv,lam,ndims,
  40. . nescri,ues,kerre)
  41. endif
  42. return
  43. end
  44.  
  45.  
  46.  

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