idle.f90

Go to the documentation of this file.

! Copyright (C) 2026 J. K. Dewhurst and S. Sharma.
! This file is distributed under the terms of the GNU General Public License.
! See the file COPYING for license details.

subroutine idle
use modmain
use modmpi
implicit none
integer i
if (mp_mpi) then
  write(*,*)
  write(*,'("Info(idle): Elk in idle mode for ",I0," seconds")') tidle
  write(*,*)
  write(*,'("Create RESTART and STOP files, in that order, to restart code")')
end if
! set the stop signal to .false.
tstop=.false.
do i=1,tidle/30
! wait for 30 seconds
  call execute_command_line('sleep 30')
! check for STOP file
  call checkstop
  if (tstop) return
end do
if (mp_mpi) then
  write(*,*)
  write(*,'("Info(idle): idle timeout")')
end if
end subroutine