pxfgetppid(3F)

NAME
     PXFGETPPID - Gets the parent process ID

SYNOPSIS
     SUBROUTINE PXFGETPPID (ipid, ierror)
     INTEGER ipid, ierror

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     IEEE standard interface for FORTRAN 77

DESCRIPTION
     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.

     The PXFGETPPID subroutine uses the getppid(2) system call to find the
     parent process ID.

     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, the default kind is KIND=4.

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

     ipid      An output integer variable that contains the parent process
               ID of the current process.

     ierror    An output integer variable that contains a status of zero if
               the process ID was successfully acquired.

EXAMPLES
     In this example, PXFGETPPID returns the current process' parent
     process ID.

          program pxftest
          integer ipid, ierror
          CALL PXFGETPPID(ipid, ierror)
          if (ierror .eq. 0) then
             print *,'pid = ',ipid
          else
             print *,'error = ',ierror
          endif
          end

SEE ALSO
     getppid(2)

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