PXFSLEEP(3F)					      Last changed: 2-24-98

NAME    [Toc]    [Back]

     PXFSLEEP -	Delays process execution

SYNOPSIS    [Toc]    [Back]

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

IMPLEMENTATION    [Toc]    [Back]

     UNICOS, UNICOS/mk,	and IRIX systems

DESCRIPTION    [Toc]    [Back]

     The PXFSLEEP subroutine waits iseconds before generating a	SIGALRM
     signal.  If a previous PXFSLEEP has time remaining, isecleft contains
     the number	of seconds until the signal 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 a status of zero
	       if PXFSLEEP 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 use of	the sleep(3C) function with the	subroutine call	to
     PXFSLEEP().

EXAMPLES    [Toc]    [Back]

	  program pxftest
	  integer iseconds, isecleft, ierror

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

SEE ALSO    [Toc]    [Back]

     alarm(2)
     sleep(3C)

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