date and time created 81/02/19 09:23:10 by dlw

[unix-history] / usr / src / usr.bin / f77 / libU77 / getuid_.c

/*
char id_getuid[] = "@(#)getuid_.c       1.1";
*
* get user id
*
* calling sequence:
*      integer getuid, uid
*      uid = getuid()
* where:
*      uid will be the real user id
*/

long getuid_()
{
       return((long)getuid());
}