GETPID — Process ID functionRESULT = GETPID()
GETPID is an INTEGER of the default
kind.
program info
print *, "The current process ID is ", getpid()
print *, "Your numerical user ID is ", getuid()
print *, "Your numerical group ID is ", getgid()
end program info