Esope source files

   1 : C CMMIEH    SOURCE    CHAT      05/01/12    22:10:47     5004           
   2 : c FEFP models
   3 : c  except RHMC, which is in a specicifc file
   4 : CCC
   5 : C **********************************************************************
   6 : CCC
   7 :       SUBROUTINE CARAC_MATE_MIEHE(XMAT)
   8 :       IMPLICIT INTEGER(I-N)
   9 :       real*8    xmat(*)
  10 :       real*8            you,xnu,sigy0,siginf,kiso,velo,cpar,mpar
  11 :       common /elasdata/ you,xnu
  12 :       common /miehdata/         sigy0,kiso,siginf,velo,cpar,mpar
  13 :       real*8                  kap,xmu,xmu1,alp1,xmu2,alp2,xmu3,alp3
  14 :       logical                 ogden
  15 :       common /elasdata_ogden/ kap,xmu,xmu1,alp1,xmu2,alp2,xmu3,alp3,
  16 :      .                        ogden
  17 :       you    = xmat( 1)
  18 :       xnu    = xmat( 2)
  19 :       sigy0  = xmat( 5)
  20 :       siginf = xmat( 6)
  21 :       kiso   = xmat( 7)
  22 :       velo   = xmat( 8)
  23 :       cpar   = xmat( 9)
  24 :       mpar   = xmat(10)
  25 :       ogden = .true.
  26 :       kap    = xmat(13)
  27 :       if (kap.le.1.D-14) then 
  28 :         ogden=.false.
  29 :         return
  30 :       endif
  31 :       xmu    = xmat(14) 
  32 :       xmu1   = xmat(15) 
  33 :       xmu2   = xmat(16) 
  34 :       xmu3   = xmat(17) 
  35 :       alp1   = xmat(18) 
  36 :       alp2   = xmat(19) 
  37 :       alp3   = xmat(20) 
  38 :       return
  39 :       end
  40 :  
  41 :  
  42 :