1 /*
2 char id_getpid[] = "@(#)getpid_.c 1.1";
3 *
4 * get process id
5 *
6 * calling sequence:
7 * integer getpid, pid
8 * pid = getpid()
9 * where:
10 * pid will be the current process id
11 */
12
13 long getpid_()
14 {
15 return((long)getpid());
16 }
17