Adk44: Created page with "Various system functions are included in the porfuncs module, generated from porfuncs.sh. They are documented here as a reference for developers. Please use these subroutines,..."

2019-05-13T12:30:12Z

Created page with "Various system functions are included in the porfuncs module, generated from porfuncs.sh. They are documented here as a reference for developers. Please use these subroutines,..."

New page

Various system functions are included in the porfuncs module, generated from porfuncs.sh. They are documented here as a reference for developers. Please use these subroutines, rather than any of the system calls directly, to maintain compiler independence.

===FLUSH===

<pre>
subroutine flush(unit, istat)
integer, intent(in) :: unit
integer, intent(out), optional :: istat
</pre>

Flushes the output buffer of the stream specified by unit. The optional argument istat does nothing and is present to allow old code to compile. It should be omitted from new code.

===IARGC===

<pre>
subroutine iargc_subr(n)
integer, intent(out) :: n
</pre>

Sets n to be the number of command line arguments which were present when the program was invoked.

===GETARG===

<pre>
subroutine getarg_subr(position, value)
integer, intent(in) :: position
character(len=*), intent(out) :: value
</pre>

Sets value to be the command line argument specified by position.

===FORK===

<pre>
subroutine fork_subr(pid)
integer, intent(inout) :: pid
</pre>

Creates a copy of the current process, with the copy being a child of the current process. In the parent process, pid is set to the process ID of the child process. In the child process, pid is set to zero.

===SYSTEM===

<pre>
subroutine system_subr(jobstring, exitstatus)
character(len=*), intent(in) :: jobstring
integer, intent(out), optional :: exitstatus
</pre>

Execute the command present in jobstring. If the optional argument exitstatus is present, it will be set to the return value of the command.

===WAIT===

<pre>
subroutine wait_subr(pid, exitstatus)
integer, intent(inout) :: pid
integer, intent(inout) :: exitstatus
</pre>

Suspend execution of the current process until one of its child processes exits. pid is set to the process ID of the exiting process. exitstatus is set to the return value of the child process.

===GETPID===

<pre>
subroutine getpid_subr(pid)
integer, intent(out) :: pid
</pre>

Set pid to the process ID of the current process.

===EXIT===

<pre>
subroutine exit_subr(exitstatus)
integer, intent(in) :: exitstatus
</pre>

Terminate the current process, with the return value specified by exitstatus.

Porfuncs Documentation - Revision history

Adk44: Created page with "Various system functions are included in the porfuncs module, generated from porfuncs.sh. They are documented here as a reference for developers. Please use these subroutines,..."