5 * Revision 1.1.1.1 1996/02/15 17:49:31 mclareni
9 /*> ROUTINE GETPIDF (IPID)
10 CERN PROGLIB# Z265 GETPIDF .VERSION KERNOS9 1.01 940727
12 Fortran interface routine to _os_id ().
13 Replaces call to getpid for OS-9 systems.
20 void getpidf_(int *pid)
31 err = _os_id (&proc_id, &priority, &age, &schedule, &group, &user);
35 /*> END <----------------------------------------------------------*/