date and time created 83/05/20 10:43:19 by nicklin

[unix-history] / usr / src / usr.bin / f77 / libU77 / getpid_.c

/*
char id_getpid[] = "@(#)getpid_.c       1.1";
*
* get process id
*
* calling sequence:
*      integer getpid, pid
*      pid = getpid()
* where:
*      pid will be the current process id
*/

long getpid_()
{
       return((long)getpid());
}