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