Skip to content

Commit

Permalink
signal.f90 with patch
Browse files Browse the repository at this point in the history
  • Loading branch information
timfelle committed Dec 4, 2023
1 parent d030fa9 commit d16bdd4
Show file tree
Hide file tree
Showing 2 changed files with 14 additions and 14 deletions.
12 changes: 6 additions & 6 deletions patches/nvhpc_bge.patch
Original file line number Diff line number Diff line change
Expand Up @@ -3,9 +3,9 @@ index 0793c48a0..1419e9378 100644
--- a/src/common/signal.f90
+++ b/src/common/signal.f90
@@ -99,11 +99,11 @@ contains
usr12 = sighdl_usr()

usr12 = sighdl_usr()

- if (bge(usr12, usr)) then
- raised = .true.
- else
Expand All @@ -16,6 +16,6 @@ index 0793c48a0..1419e9378 100644
+ ! else
+ ! raised = .false.
+ ! end if
end function signal_usr

end function signal_usr

16 changes: 8 additions & 8 deletions src/common/signal.f90
Original file line number Diff line number Diff line change
Expand Up @@ -98,25 +98,25 @@ function signal_usr(usr) result(raised)
end if

usr12 = sighdl_usr()

if (bge(usr12, usr)) then
raised = .true.
else
raised = .false.
end if

end function signal_usr

!> Set a timeout after @a seconds
subroutine signal_set_timeout(sec)
integer(kind=c_int) :: sec

if (sighdl_set_timeout(sec) .lt. 0) then
call neko_error('sighdl failed to set SIGALRM')
end if

end subroutine signal_set_timeout

!> Initialize signal handler to trap SIGXCPU
subroutine signal_trap_cpulimit()
logical, save :: initialized = .false.
Expand All @@ -127,7 +127,7 @@ subroutine signal_trap_cpulimit()
end if
initialized = .true.
end if

end subroutine signal_trap_cpulimit

!> Initialize signal handler to trap SIGUSR1 and SIGUSR2
Expand All @@ -140,7 +140,7 @@ subroutine signal_trap_usr()
end if
initialized = .true.
end if

end subroutine signal_trap_usr

end module signal

0 comments on commit d16bdd4

Please sign in to comment.