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

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