Télécharger cmmieh.eso

Retour à la liste

Numérotation des lignes :

  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