Add sleep(5) to iabort

cmsi · Aug 15, 2021 · 3f4cbc1 · 3f4cbc1
1 parent 9e87c2f
commit 3f4cbc1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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,'(" ===========================================")')