diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90 index d7b8d5d1c..afde0b087 100644 --- a/src/phase_mechanical_elastic.f90 +++ b/src/phase_mechanical_elastic.f90 @@ -102,6 +102,7 @@ module function elastic_C66(ph,en) result(C66) en real(pReal), dimension(6,6) :: C66 + C66 = math_sym3333to66(math_Voigt66to3333(get_C66(ph,en))) ! Literature data is in Voigt notation end function elastic_C66 @@ -119,7 +120,7 @@ module function elastic_mu(ph,en) result(mu) mu - mu = lattice_equivalent_mu(get_C66(ph,en),'voigt') + mu = lattice_equivalent_mu(get_C66(ph,en),'voigt') end function elastic_mu @@ -135,7 +136,7 @@ module function elastic_nu(ph,en) result(nu) nu - nu = lattice_equivalent_nu(get_C66(ph,en),'voigt') + nu = lattice_equivalent_nu(get_C66(ph,en),'voigt') end function elastic_nu