/*
 * $Id$
 *
 * $Log$
 * Revision 1.1  1996/02/15 17:49:30  mclareni
 * Initial revision
 *
 */
/*>    ROUTINE GETUIDF
  CERN PROGLIB# Z265    GETUIDF         .VERSION KERNOS9  1.01  940727
  ORIG. 01/04/93, JS
  Fortran interface routine to _os_id ().
  Replaces call to getuid for OS-9 systems.
  MOD.  27/07/94, MM
*/

#include <process.h>
#include <types.h>

void getuidf_(int *uid)
{
      process_id      proc_id;
      u_int16         priority;
      u_int16         age;
      int32           schedule;
      u_int16         group;
      u_int16         user;

      error_code      err;

      err = _os_id (&proc_id, &priority, &age, &schedule, &group, &user);
      *uid = user;
      return;
}
/*> END <----------------------------------------------------------*/
