Next: GETPID, Previous: GETGID, Up: Intrinsic Procedures
GETLOG — Get login nameCALL GETLOG(LOGIN)
     | LOGIN | Shall be of type CHARACTER(*). | 
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