Esope source files

   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
  10 :       call carac_mate_rhmc(xmat)
  11 :       if (lam.le.0.D0) then
  12 :          if (nescri.eq.1) write(ues,*)' Paso elastico'
  13 :          ifl=1
  13 :          call MatHok(Kmat,ndimk,ndims,ifl)
  14 :          return      
  15 :       endif
  16 :       if (nescri.eq.1) write(ues,*)' Paso plastico: sin endurecimiento'
  17 :       ndimv=0
  17 :       call mtc0RHMC(Kmat,ndimk,sig,ndims,ndimv,lam,
  18 :      .              nescri,ues,kerre)
  19 :       return
  20 :       end
  21 :  
  22 :  
  23 :