This commit was generated by cvs2svn to compensate for changes in r2,

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

diff --git a/MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getpidf.c b/MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getpidf.c
new file mode 100644 (file)
index 0000000..426f2e9
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/ccgen/os9gs/getpidf.c
@@ -0,0 +1,35 @@
+/*
+ * $Id$
+ *
+ * $Log$
+ * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
+ * Kernlib
+ *
+ */
+/*>    ROUTINE GETPIDF (IPID)
+  CERN PROGLIB# Z265    GETPIDF         .VERSION KERNOS9  1.01  940727
+  ORIG. 22/02/91, JZ
+  Fortran interface routine to _os_id (). 
+  Replaces call to getpid for OS-9 systems.
+  MOD.  27/07/94, MM
+*/
+
+#include <process.h>
+#include <types.h>
+
+void getpidf_(int *pid)
+{
+      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);
+      *pid = proc_id;
+      return;
+}
+/*> END <----------------------------------------------------------*/