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. |
character*18 name call getlog( name ) write(*,*) "’", name, "’" end |