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

1
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