pxfkill

Date:: 10-20-2011

NAME

PXFKILL - Sends a signal to a process or group of processes

SYNOPSIS

INTEGER ipid, isig, ierror
CALL PXFKILL (ipid, isig, ierror)

IMPLEMENTATION

Cray Linux Environment (CLE)

STANDARDS

IEEE Std. 1003.9-1992 standard interface for FORTRAN 77

DESCRIPTION

The PXFKILL subroutine uses the kill system call to send a signal to a process or group of processes.

All arguments must be of default kind unless documented otherwise. Default kind is KIND=4 for integer, real, complex, and logical arguments.

The following is a list of valid arguments for this routine:

ipid: A default integer input variable containing the process PID. The signal will be sent to a process or group of processes specified by ipid.
isig: A default integer output variable containing the signal to be sent.
ierror: A default integer output variable that contains zero if PXFKILL was successful and nonzero if PXFKILL was not successful.

NOTES

Replace any Fortran reference to kill() with a subroutine call to PXFKILL.

EXAMPLES

program pxftest
integer ipid, isig, ierror

CALL PXFFORK(ipid,ierror)
if (ierror .ne. 0) then
             print *,'FAILED: PXFFORK call failed with error = ',ierror
             print *,'ipid=',ipid
else
   print *,'PASSED: PXFFORK call returned no error'
endif
CALL PXFCONST("SIGKILL",isig,ierror)
if (ierror .ne. 0) then
    print *, 'PXFCONST FAILED', ierror
    print *,'isig=',isig
else
   print *, 'PXFCONST PASSED'
endif
CALL PXFKILL(ipid, isig, ierror)
if (ierror .ne. 0) then
   print *,'FAILED: PXFKILL call failed with error = ',ierror
   print *,'ipid=',ipid
   print *,'isig=',isig
else
   print *,'PASSED: PXFKILL call returned no error'
endif
end