pxfalarm

Date:: 10-20-2011

NAME

PXFALARM - Schedule alarm signal

SYNOPSIS

SUBROUTINE PXFALARM(iseconds, isecleft, ierror)
INTEGER iseconds, isecleft, ierror

IMPLEMENTATION

Cray Linux Environment (CLE)

DESCRIPTION

The PXFALARM subroutine uses the alarm() system call to wait iseconds before generating the SIGALRM signal. If a previous PXFALARM has time remaining, isecleft contains the number of seconds until the SIGALRM would have been generated.

The following is a list of arguments for this routine:

iseconds: Default integer input variable containing the number of real-time seconds to wait before sending the calling process a SIGALRM signal.
isecleft: Default integer output variable containing the number of seconds left until a previous request would have generated a SIGALRM signal.
ierror: Default integer output variable containing the status of zero if PXFALARM was successful.

When using the Cray Fortran compiler, all arguments must be of default kind unless documented otherwise. The default kind is KIND=4 for integer, real, complex, and logical arguments.

NOTES

Replace the subroutine or function reference to alarm() with a subroutine call to PXFALARM.

EXAMPLES

program pxftest
integer iseconds, isecleft, ierror
iseconds = 10
isecleft = 0
ierror = 0
CALL PXFALARM(iseconds, isecleft, ierror)
if (ierror .ne. 0) then
   print *,'FAILED: PXFALARM call failed with error = ',ierror
else
   print *,'PASSED: PXFALARM call returned no error'
endif
if (isecleft .ne. 0) then
   print *,'FAILED: PXFALARM, isecleft not zero, =',isecleft
endif
end