Télécharger la plaquette Cast3M


fr en

Télécharger cmmieh.eso

Retour à la liste

Numérotation des lignes : 

cmmieh

  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.  
  43.  

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