/* 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 */ #include "../libI77/fiodefs.h" ftnint getuid_() { return((ftnint)getuid()); }