Intel® Fortran Compiler 16.0 User and Reference Guide
POSIX Subroutine: Gets the real group ID of the current process.
USE IFPOSIX
CALL PXFGETGID (igid,ierror)
| igid | (Output) INTEGER(4). The returned real group ID. | 
| ierror | (Output) INTEGER(4). The error status. | 
If successful, ierror is set to zero; otherwise, an error code.
The real ID corresponds to the ID of the calling process.
See the example in PXFGETGROUPS