diff --git a/source/KKRnano/source/KKRnano.F90 b/source/KKRnano/source/KKRnano.F90 index e498678a0c9cfe31bbed4ab4b83bda234eb8e8f3..4118a7ec29be4448e5e263f96714714d35ff7194 100644 --- a/source/KKRnano/source/KKRnano.F90 +++ b/source/KKRnano/source/KKRnano.F90 @@ -268,7 +268,7 @@ program KKRnano enddo ! ila ! Core relaxation - only mastergroup needs results - if (mp%isInMasterGroup) then + if (mp%isInMasterGroup.and.params%npol /= 0) then ! Not threadsafe: intcor, intin, intout have a save statement ebot = emesh%E1; if (any(params%npntsemi > 0)) ebot = emesh%EBOTSEMI !!!$omp parallel do private(ila, atomdata)