From cc20b044a6920c54dd2c3bf25b833e7d3e5294b0 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 13 Sep 2018 09:27:54 +0200 Subject: [PATCH] forgot to allocate array now used internally only --- src/lattice.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/lattice.f90 b/src/lattice.f90 index a8eacb2f3..cbd4b2e06 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -1264,6 +1264,7 @@ subroutine lattice_init allocate(lattice_structure(Nphases),source = LATTICE_undefined_ID) allocate(trans_lattice_structure(Nphases),source = LATTICE_undefined_ID) allocate(lattice_C66(6,6,Nphases), source=0.0_pReal) + allocate(temp66(6,6,Nphases), source=0.0_pReal) allocate(lattice_C3333(3,3,3,3,Nphases), source=0.0_pReal) allocate(lattice_trans_C66(6,6,Nphases), source=0.0_pReal) allocate(lattice_trans_C3333(3,3,3,3,Nphases), source=0.0_pReal)