GETLOG — Get login name ¶Gets the username under which the program is running.
GNU extension
Subroutine
CALL GETLOG(C)
| C | Shall be of type CHARACTERand of default kind. | 
Stores the current user name in C.  (On systems where POSIX
functions geteuid and getpwuid are not available, and 
the getlogin function is not implemented either, this will
return a blank string.)
PROGRAM TEST_GETLOG CHARACTER(32) :: login CALL GETLOG(login) WRITE(*,*) login END PROGRAM