From 9ddf28ecb23af267865ecd3da349a9aedd9eeeef Mon Sep 17 00:00:00 2001 From: Ben Hourahine Date: Fri, 19 Jan 2024 21:02:52 +0000 Subject: [PATCH] Fixes problem in parser for bulk BC read --- src/dftbp/dftbplus/parser.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/dftbp/dftbplus/parser.F90 b/src/dftbp/dftbplus/parser.F90 index 61212f866d..222b6a41ea 100644 --- a/src/dftbp/dftbplus/parser.F90 +++ b/src/dftbp/dftbplus/parser.F90 @@ -6534,7 +6534,7 @@ subroutine readPoisson(pNode, poisson, tPeriodic, latVecs, updateSccAfterDiag) call getChildValue(pNode, "OverrideBulkBC", pTmp, "none") poisson%overrBulkBC(:) = -1 - if (associated(pNode)) then + if (associated(pTmp)) then call getPoissonBoundaryConditionOverrides(pTmp, [ 0, 1, 2 ], poisson%overrBulkBC) end if