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