!Dummy routine

subroutine user_signal(flag, is_set)
implicit none
integer :: flag
logical :: is_set

is_set = .false.

end subroutine