From 561c3109236837392b8a8fc155adfbb8337360fb Mon Sep 17 00:00:00 2001 From: Jerome Jackson Date: Tue, 14 Jan 2025 22:43:01 +0000 Subject: [PATCH] correct higher order shells printout --- src/kmesh.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/kmesh.F90 b/src/kmesh.F90 index b84bbd90..277197d8 100644 --- a/src/kmesh.F90 +++ b/src/kmesh.F90 @@ -261,9 +261,9 @@ subroutine kmesh_get(kmesh_input, kmesh_info, print_output, kpt_latt, real_latti if (print_output%iprint > 0) then if (kmesh_input%higher_order_nearest_shells) then - write (stdout, '(1x,a)', advance='no') '| The following shells are used: ' - else write (stdout, '(1x,a)', advance='no') '| The following shells and their multiples are used: ' + else + write (stdout, '(1x,a)', advance='no') '| The following shells are used: ' endif do ndnn = 1, kmesh_input%num_shells if (ndnn .eq. kmesh_input%num_shells) then