Télécharger mtcrhm.eso

Retour à la liste

Numérotation des lignes :

  1. C MTCRHM SOURCE CHAT 05/01/13 01:53:55 5004
  2. CCC
  3. C **********************************************************************
  4. CCC
  5. SUBROUTINE MTC_RHMC (KMAT,NDIMK,SIG,NDIMS,LAM,XMAT,
  6. . nescri,ues,kerre)
  7. IMPLICIT INTEGER(I-N)
  8. integer ndims,kerre,nescri,ues,ndimk,ifl,ndimv
  9. real*8 sig(ndims),Kmat(*),xmat(*),lam
  10. kerre=0
  11. call carac_mate_rhmc(xmat)
  12. if (lam.le.0.D0) then
  13. if (nescri.eq.1) write(ues,*)' Paso elastico'
  14. ifl=1
  15. call MatHok(Kmat,ndimk,ndims,ifl)
  16. return
  17. endif
  18. if (nescri.eq.1) write(ues,*)' Paso plastico: sin endurecimiento'
  19. ndimv=0
  20. call mtc0RHMC(Kmat,ndimk,sig,ndims,ndimv,lam,
  21. . nescri,ues,kerre)
  22. return
  23. end
  24.  
  25.  
  26.  
  27.  

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