`getlog`: Get User's Login Name

The subroutine is called by:

`call getlog(` `name` `)`
`name`	`character*n`	Output	User's login name, or all blanks if the process is running detached from a terminal. `n` should be large enough to hold the longest name.

Example: getlog:

    character*18 name
    call getlog( name )
    write(*,*) "'", name, "'"
    end

getlog: Get User's Login Name