pxfgetgid(3F)

NAME
     PXFGETGID - Gets the real group ID

SYNOPSIS
     SUBROUTINE PXFGETGID (igid, ierror)
     INTEGER igid, 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
     F77 compiler.

     The PXFGETGID subroutine uses the getgid() system call to get the real
     group ID.

     When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
     UNICOS, UNICOS/mk, or IRIX, 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:

     igid    An output integer variable for the real group ID for the
             current process.

     ierror  An output integer variable that contains zero if PXFGETGID was
             successful.

EXAMPLES
     This example calls PXFGETGID and prints out the current real group ID
     and the returned error.

          program pxftest
          integer igid, ierr
          CALL PXFGETGID(igid,ierr)
          print *,'igid = ',igid,' ierr = ',ierr
          end

SEE ALSO
     Application Programmer's Library Reference Manual for the printed
     version of this man page.