From 4af3459424bf3a590fe5d1d86f61ceb98ad4f0b2 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Tue, 8 Jul 2014 01:02:29 +0000 Subject: [PATCH] fixed bug in symmetrizing 2nd order tensor --- code/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 43d0bc989..068597e5e 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -1281,7 +1281,7 @@ pure function lattice_symmetrize33(struct,T33) lattice_symmetrize33(3,3) = T33(3,3) case (LATTICE_ort_ID) lattice_symmetrize33(1,1) = T33(1,1) - lattice_symmetrize33(2,2) = T33(2,3) + lattice_symmetrize33(2,2) = T33(2,2) lattice_symmetrize33(3,3) = T33(3,3) case default lattice_symmetrize33 = T33