From 658389f5868e9136ebf06fac2c8a1f16061af5e8 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Sun, 26 Mar 2023 16:08:03 +0200 Subject: [PATCH] src/multipass.f90: improve error wording --- src/multipass.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/multipass.f90 b/src/multipass.f90 index 570c39c..45c069a 100644 --- a/src/multipass.f90 +++ b/src/multipass.f90 @@ -149,8 +149,9 @@ contains iwait = iroff(:,i) ! copy ray status for current beam from global ray status if(all(iwait)) then ! no rays active => stop beam iboff = .true. - else if(.not.all(.not.iwait)) then ! only some rays active - write (msg,'(" beam ",g0,": some rays are active!")') i + else if (any(iwait)) then + ! only some rays active + write (msg,'(" beam ",g0,": only some rays are active!")') i call log_warning(msg, mod='multipass', proc='initbeam') end if