From 21935088414de9d57ca56a147aafe2e252545c56 Mon Sep 17 00:00:00 2001
From: Jerome Jackson <jerome@neuroplug.net>
Date: Tue, 17 Sep 2024 14:43:02 +0100
Subject: [PATCH] merge some if statements in main program

---
 src/wannier_prog.F90 | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/wannier_prog.F90 b/src/wannier_prog.F90
index 7fb4a08d..4c6b0bb3 100644
--- a/src/wannier_prog.F90
+++ b/src/wannier_prog.F90
@@ -343,10 +343,11 @@ program wannier
 
   call print_times(common_data, stdout)
 
-  if (rank == 0) close (unit=stderr, status='delete')
-
-  if (rank == 0) write (stdout, '(1x,a)') 'All done: wannier90 exiting'
-  if (rank == 0) close (unit=stdout)
+  if (rank == 0) then
+    close (unit=stderr, status='delete')
+    write (stdout, '(1x,a)') 'All done: wannier90 exiting'
+    close (unit=stdout)
+  endif
 
 #ifdef MPI
   call mpi_finalize(ierr)