From 22a232ad0860e6ec19a8c7af8b96e6877532bdc9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 25 Aug 2018 15:50:43 +0200 Subject: [PATCH 1/2] bug: memory access out of bounds introduced when moderninzing reading in of parameters --- src/lattice.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index ca1cd597a..550b4c5c9 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -1278,7 +1278,7 @@ subroutine lattice_init integer(pInt) :: Nphases character(len=65536) :: & tag = '' - integer(pInt) :: section = 0_pInt,i,p + integer(pInt) :: i,p real(pReal), dimension(:), allocatable :: & temp, & CoverA, & !< c/a ratio for low symmetry type lattice @@ -1388,9 +1388,9 @@ subroutine lattice_init tag = config_phase(p)%getString('trans_lattice_structure',defaultVal=tag) select case(trim(tag)) case('bcc') - trans_lattice_structure(section) = LATTICE_bcc_ID + trans_lattice_structure(p) = LATTICE_bcc_ID case('hex','hexagonal') - trans_lattice_structure(section) = LATTICE_hex_ID + trans_lattice_structure(p) = LATTICE_hex_ID end select lattice_C66(1,1,p) = config_phase(p)%getFloat('c11',defaultVal=0.0_pReal) From a4638881569e17945d6c0bbc35ab383a5a10f3a9 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 25 Aug 2018 15:51:28 +0200 Subject: [PATCH 2/2] test in PRIVATE improved --- PRIVATE | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PRIVATE b/PRIVATE index dfd67ea44..81fd7109f 160000 --- a/PRIVATE +++ b/PRIVATE @@ -1 +1 @@ -Subproject commit dfd67ea44ba88ee1e0a33266a3986c64137908cf +Subproject commit 81fd7109fea8456b8eecaaef0eec041edcce7792