mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-02 11:25:26 +02:00
48 lines
1.1 KiB
Fortran
48 lines
1.1 KiB
Fortran
BEGIN_PROVIDER [ logical, abort_all ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! If True, all the calculation is aborted
|
|
END_DOC
|
|
call trap_signals
|
|
abort_all = .False.
|
|
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [ logical, abort_here ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! If True, all the calculation is aborted
|
|
END_DOC
|
|
abort_here = abort_all
|
|
END_PROVIDER
|
|
|
|
subroutine trap_signals
|
|
implicit none
|
|
BEGIN_DOC
|
|
! What to do when a signal is caught. Here, trap Ctrl-C and call the control_C subroutine.
|
|
END_DOC
|
|
integer, external :: catch_signal
|
|
integer :: sigusr2, status
|
|
sigusr2 = 12
|
|
call signal (sigusr2, catch_signal,status)
|
|
end subroutine trap_signals
|
|
|
|
integer function catch_signal(signum)
|
|
implicit none
|
|
integer, intent(in) :: signum
|
|
BEGIN_DOC
|
|
! What to do on Ctrl-C. If two Ctrl-C are pressed within 1 sec, the calculation if aborted.
|
|
END_DOC
|
|
double precision, save :: last_time
|
|
double precision :: this_time
|
|
catch_signal = 0
|
|
call wall_time(this_time)
|
|
if (this_time - last_time < 1.d0) then
|
|
print *, 'Caught Signal ', signum
|
|
abort_all = .True.
|
|
endif
|
|
last_time = this_time
|
|
abort_here = .True.
|
|
end
|
|
|