pxfalarm(3F)

NAME
     PXFALARM - 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
     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 ALSO
     alarm(2)

     Application Programmer's Library Reference Manual for the printed
     version of this man page.