Sources Esope | Cast3M

mtcrhm
C MTCRHM    SOURCE    CHAT      05/01/13    01:53:55     5004
CCC
C **********************************************************************
CCC
      SUBROUTINE MTC_RHMC (KMAT,NDIMK,SIG,NDIMS,LAM,XMAT,
     .                     nescri,ues,kerre)
      IMPLICIT INTEGER(I-N)
      integer   ndims,kerre,nescri,ues,ndimk,ifl,ndimv
      real*8    sig(ndims),Kmat(*),xmat(*),lam
      kerre=0
      call carac_mate_rhmc(xmat)
      if (lam.le.0.D0) then
         if (nescri.eq.1) write(ues,*)' Paso elastico'
         ifl=1
         call MatHok(Kmat,ndimk,ndims,ifl)
         return
      endif
      if (nescri.eq.1) write(ues,*)' Paso plastico: sin endurecimiento'
      ndimv=0
      call mtc0RHMC(Kmat,ndimk,sig,ndims,ndimv,lam,
     .              nescri,ues,kerre)
      return
      end