diff --git a/src/wannier_prog.F90 b/src/wannier_prog.F90 index 2a70180e..427f8842 100644 --- a/src/wannier_prog.F90 +++ b/src/wannier_prog.F90 @@ -171,6 +171,8 @@ program wannier #ifdef MPI call mpi_finalize(ierr) #endif + ! if (rank == 0) write (stderr, *) TRIM(seedname)//'.nnkp', ' file written.' + if (rank == 0) write (stderr, *) 'All done: wannier90 exiting.' stop endif @@ -474,6 +476,7 @@ subroutine write_kmesh(common_data, istdout, istderr, ierr) call prterr(error, ierr, istdout, istderr, common_data%comm) return endif + write (stderr, *) TRIM(seedname)//'.nnkp', ' file written.' endif call comms_sync_err(common_data%comm, error, 0) ! this is necessary since non-root may never enter an mpi collective if root has exited here end subroutine write_kmesh