Merging the VirtualMC branch to the main development branch (HEAD)

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / os9gs / getuidf.c

diff --git a/MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getuidf.c b/MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getuidf.c
deleted file mode 100644 (file)
index f1d3e24..0000000
--- a/MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getuidf.c
+++ /dev/null
@@ -1,35 +0,0 @@
-/*
- * $Id$
- *
- * $Log$
- * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
- * Kernlib
- *
- */
-/*>    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 <----------------------------------------------------------*/