From 4d29393cedf21e47f51febcc2120c356034d1243 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 18 Nov 2021 16:59:23 +0100 Subject: [PATCH] simplified --- src/phase_mechanical_elastic.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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