1: /* 2: char id_getgid[] = "@(#)getgid_.c 1.1"; 3: * 4: * get group id 5: * 6: * calling sequence: 7: * integer getgid, gid 8: * gid = getgid() 9: * where: 10: * gid will be the real group id 11: */ 12: 13: #include "../libI77/fiodefs.h" 14: 15: ftnint getgid_() 16: { 17: return((ftnint)getgid()); 18: }