From 2fc66cff5b90f1c81158f424f926d57ce619b03b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 4 Sep 2019 14:30:26 -0700 Subject: [PATCH] better readable --- src/lattice.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 126d76d4d..7a47aa055 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -747,13 +747,13 @@ pure function lattice_symmetrizeC66(struct,C66) case (LATTICE_iso_ID) do k=1,3 forall(j=1:3) lattice_symmetrizeC66(k,j) = C66(1,2) - lattice_symmetrizeC66(k,k) = C66(1,1) + lattice_symmetrizeC66(k,k) = C66(1,1) lattice_symmetrizeC66(k+3,k+3) = 0.5_pReal*(C66(1,1)-C66(1,2)) enddo case (LATTICE_fcc_ID,LATTICE_bcc_ID) do k=1,3 - forall(j=1:3) lattice_symmetrizeC66(k,j) = C66(1,2) - lattice_symmetrizeC66(k,k) = C66(1,1) + forall(j=1:3) lattice_symmetrizeC66(k,j) = C66(1,2) + lattice_symmetrizeC66(k,k) = C66(1,1) lattice_symmetrizeC66(k+3,k+3) = C66(4,4) enddo case (LATTICE_hex_ID)