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