pxfalarm(3F)

PXFALARM - Schedule alarm signal

As shipped in IRIX 6.5.30. Last changed in IRIX 6.5.19.

NAME
     PXFALARM - Schedule alarm signal

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

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.

     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.

     All arguments must be of default kind unless documented otherwise. On
     IRIX systems, the default kind is KIND=4.

NOTES
     The PXF_DEFINITIONS module can be used by Fortran 90 users to enable
     caller-callee interface checking.

     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)