From b9eec519db9f4d2ea49fb13abbc1677f98c3e7c5 Mon Sep 17 00:00:00 2001 From: Weiyuan Jiang Date: Thu, 25 Mar 2021 11:45:41 -0400 Subject: [PATCH] fixed counting the number of backend processes --- CHANGELOG.md | 3 ++- base/ServerManager.F90 | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index eb285742b3a6..ea09f44e3428 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -13,7 +13,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Fixed -- Fix size of unallocated array for gfortran +- Fixed size of unallocated array for gfortran +- Fixed counting of backend npes for assert ### Removed diff --git a/base/ServerManager.F90 b/base/ServerManager.F90 index abe7dd2c86d1..82b354e33644 100644 --- a/base/ServerManager.F90 +++ b/base/ServerManager.F90 @@ -104,10 +104,10 @@ subroutine initialize(this, comm, unusable, application_size, nodes_input_server if (present(isolate_nodes)) isolated_ = isolate_nodes if (oserver_type_ == "multilayer" .or. oserver_type_ == 'multigroup') then - _ASSERT(npes_out_backend >=2, "captain-soldier need at lease two beckend") + _ASSERT(nodes_out(1)*npes_out_backend >=2, "captain-soldier needs at least two backend") endif if (oserver_type_ == "multicomm") then - _ASSERT(npes_out_backend >=1, "need at lease one beckend for multicomm server") + _ASSERT(npes_out_backend >=1, "needs at least one backend for multicomm server") endif