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