merge some if statements in main program

JeromeCCP9 · Jan 15, 2025 · 2193508 · 2193508
1 parent 6027da1
commit 2193508
Showing 1 changed file with 5 additions and 4 deletions.
diff --git 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)