pxfpipe

Date:: 10-20-2011

NAME

PXFPIPE - Create an interprocess channel

SYNOPSIS

INTEGER ireadfd, iwrtfd, ierror
CALL PXFPIPE(ireadfd, iwrtfd, ierror)

IMPLEMENTATION

Cray Linux Environment (CLE)

Standards

IEEE Std 1003.9-1992 standard interface for FORTRAN 77

Description

The subroutine procedure PXFPIPE calls pipe(2) to create a pipe and place file descriptors into ireadfd and iwrtfd. These file descriptors refer to the open file descriptions for the read and write ends of the pipe. All arguments must be of default kind unless documented otherwise. Default kind is KIND=4 for integer, real, complex, and logical arguments.

PXFPIPE accepts the following arguments.

ireadfd: Default integer output variable containing the file descriptor for the read end of the pipe.
iwrtfd: Default integer output variable containing file descriptor for the write end of the pipe.
ierror: Default integer output variable that contains zero if the operation was successful or nonzero if the operation was not successful.

Notes

Replace the use of the function reference PIPE() with the subroutine call to PXFPIPE().

Examples

program pxftest
integer ireadfd, iwrtfd, ierror
ierror = 0
CALL PXFPIPE(ireadfd, iwrtfd, ierror)
if (ierror .ne. 0) then
             print *,'FAILED: PXFPIPE failed with error = ',ierror
else
             print *,'PASSED: PXFPIPE returned no error'
endif
end