From 3f4cbc1ecfdfbe4b955feb1231992fc529090f98 Mon Sep 17 00:00:00 2001
From: Kazuya Ishimura <ishimura.smash@gmail.com>
Date: Sun, 15 Aug 2021 22:58:22 +0900
Subject: [PATCH] Add sleep(5) to iabort

---
 src/machine.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/machine.F90 b/src/machine.F90
index 3a42e1d..1c91814 100644
--- a/src/machine.F90
+++ b/src/machine.F90
@@ -337,6 +337,7 @@ subroutine iabort(datacomp)
       type(typecomp),intent(in) :: datacomp
       character(len=24) :: tdate
 !
+      call sleep(5)
       call fdate(tdate)
       write(datacomp%iout,'(" The job finished at ",a)')tdate
       write(datacomp%iout,'(" ===========================================")')