223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

simplified

This commit is contained in:
Martin Diehl 2021-11-18 16:59:23 +01:00
parent f7a42bdc1a
commit 4d29393ced
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/phase_mechanical_elastic.f90
View File

@ -102,6 +102,7 @@ module function elastic_C66(ph,en) result(C66)
en en
real(pReal), dimension(6,6) :: C66 real(pReal), dimension(6,6) :: C66
C66 = math_sym3333to66(math_Voigt66to3333(get_C66(ph,en))) ! Literature data is in Voigt notation C66 = math_sym3333to66(math_Voigt66to3333(get_C66(ph,en))) ! Literature data is in Voigt notation
end function elastic_C66 end function elastic_C66
@ -119,7 +120,7 @@ module function elastic_mu(ph,en) result(mu)
mu mu
mu = lattice_equivalent_mu(get_C66(ph,en),'voigt') mu = lattice_equivalent_mu(get_C66(ph,en),'voigt')
end function elastic_mu end function elastic_mu
@ -135,7 +136,7 @@ module function elastic_nu(ph,en) result(nu)
nu nu
nu = lattice_equivalent_nu(get_C66(ph,en),'voigt') nu = lattice_equivalent_nu(get_C66(ph,en),'voigt')
end function elastic_nu end function elastic_nu