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: #include "../libI77/fiodefs.h" 14: 15: ftnint getpid_() 16: { 17: return((ftnint)getpid()); 18: }