Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2ipid(Output) INTEGER(4). The returned PID of the new child process.ierror(Output) INTEGER(4). The error status.If successful, ierror is set to zero; otherwise, an error code.The PXFFORK subroutine creates a child process that differs from the parent process only in itsPID. If successful, the PID of the child process is returned in the parent's thread of execution, anda zero is returned in the child's thread of execution. Otherwise, a –1 is returned in the parent'scontext and no child process is created.See Also: “IPXFWEXITSTATUS”Exampleprogram t1use ifposixinteger(4) ipid, istat, ierror, ipid_ret, istat_retprint *," the child process will be born"call PXFFORK(IPID, IERROR)call PXFGETPID(IPID_RET,IERROR)if(IPID.EQ.0) thenprint *," I am a child process"print *," My child's pid is", IPID_RETcall PXFGETPPID(IPID_RET,IERROR)print *," The pid of my parent is",IPID_RETprint *," Now I have exited with code 0xABCD"call PXFEXIT(Z'ABCD')elseprint *," I am a parent process"print *," My parent pid is ", IPID_RETprint *," I am creating the process with pid", IPIDprint *," Now I am waiting for the end of the child process"call PXFWAIT(ISTAT, IPID_RET, IERROR)print *," The child with pid ", IPID_RET," has exited"if( PXFWIFEXITED(ISTAT) ) thenprint *, " The child exited normally"istat_ret = IPXFWEXITSTATUS(ISTAT)print 10," The low byte of the child exit code is", istat_retend if2-289