C CMMIEH    SOURCE    CHAT      05/01/12    22:10:47     5004
c FEFP models
c  except RHMC, which is in a specicifc file
CCC
C **********************************************************************
CCC
      SUBROUTINE CARAC_MATE_MIEHE(XMAT)
      IMPLICIT INTEGER(I-N)
      real*8    xmat(*)
      real*8            you,xnu,sigy0,siginf,kiso,velo,cpar,mpar
      common /elasdata/ you,xnu
      common /miehdata/         sigy0,kiso,siginf,velo,cpar,mpar
      real*8                  kap,xmu,xmu1,alp1,xmu2,alp2,xmu3,alp3
      logical                 ogden
      common /elasdata_ogden/ kap,xmu,xmu1,alp1,xmu2,alp2,xmu3,alp3,
     .                        ogden
      you    = xmat( 1)
      xnu    = xmat( 2)
      sigy0  = xmat( 5)
      siginf = xmat( 6)
      kiso   = xmat( 7)
      velo   = xmat( 8)
      cpar   = xmat( 9)
      mpar   = xmat(10)
      ogden = .true.
      kap    = xmat(13)
      if (kap.le.1.D-14) then
        ogden=.false.
        return
      endif
      xmu    = xmat(14)
      xmu1   = xmat(15)
      xmu2   = xmat(16)
      xmu3   = xmat(17)
      alp1   = xmat(18)
      alp2   = xmat(19)
      alp3   = xmat(20)
      return
      end