call getlog( name )

name

character*n

出力 

ユーザーのログイン名。プロセスが端末から切り離されて実行されている場合はすべて空白。n は、もっとも長い名前が入るのに十分な大きさであることが必要

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