date and time created 81/02/19 18:12:05 by dlw

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

/*
char id_getgid[] = "@(#)getgid_.c       1.1";
*
* get group id
*
* calling sequence:
*      integer getgid, gid
*      gid = getgid()
* where:
*      gid will be the real group id
*/

long getgid_()
{
       return((long)getgid());
}