PXFALARM(3F) Last changed: 1-6-98
NAMEPXFALARM - Schedule alarm signal
SYNOPSIS
SUBROUTINE PXFALARM(iseconds, isecleft, ierror)
INTEGER iseconds, isecleft, ierror
IMPLEMENTATION
UNICOS, UNICOS/mk, and IRIX systems
DESCRIPTION
The PXFALARM subroutine uses the alarm (2) 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.
On IRIX systems, this routine is in libfortran.so which is linked by
default when compiling programs with the MIPSpro 7 Fortran 90 compiler
or when compiling programs with the -craylibs option to the MIPSpro
7.2 F77 compiler.
When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
kind unless documented otherwise. On UNICOS and UNICOS/mk, default
kind is KIND=8 for integer, real, complex, and logical arguments; on
IRIX systems, the default kind is KIND=4.
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
SEE ALSOalarm(2)
Application Programmer's Library Reference Manual, publication SR-
2165, for the printed version of this man page.
