From 29771feaaed13bd99c26f77d9b46709e92549c7c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 18 Nov 2021 14:43:05 +0100 Subject: [PATCH] cleaning --- src/phase_mechanical_elastic.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/phase_mechanical_elastic.f90 b/src/phase_mechanical_elastic.f90 index 9c9a159a0..587614865 100644 --- a/src/phase_mechanical_elastic.f90 +++ b/src/phase_mechanical_elastic.f90 @@ -106,7 +106,7 @@ module function elastic_C66(ph,en) result(C66) associate(prm => param(ph)) - C66 = get_C66(ph,en) + C66 = get_C66(ph,en) C66 = math_sym3333to66(math_Voigt66to3333(C66)) ! Literature data is in Voigt notation end associate @@ -126,7 +126,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 @@ -142,7 +142,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