PXFALARM(3F)					       Last changed: 1-6-98

NAME    [Toc]    [Back]

     PXFALARM -	Schedule alarm signal

SYNOPSIS    [Toc]    [Back]

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

IMPLEMENTATION    [Toc]    [Back]

     UNICOS, UNICOS/mk,	and IRIX systems

DESCRIPTION    [Toc]    [Back]

     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    [Toc]    [Back]

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

EXAMPLES    [Toc]    [Back]

	  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    [Toc]    [Back]

     alarm(2)

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