nosyscalls

Module

Description

$Id$

This module takes care of system calls and provides ANSI-C functionality.

Quick access

Variables:

copy_addr_c, copy_addr_c_bool, directory_exists_c, extract_string_c, get_env_var_c, get_pid_c, ikind8, is_nan_c, mem_usage_c, rkind8, sizeof_real_c, system_c

Routines:

copy_addr_dble(), copy_addr_dble_1d(), copy_addr_int(), copy_addr_int_1d(), copy_addr_int_2d(), copy_addr_log(), copy_addr_log_1d(), copy_addr_real(), copy_addr_real_1d(), copy_addr_real_2d(), copy_addr_real_3d(), copy_addr_real_4d(), copy_addr_torus_rect(), directory_exists(), extract_str(), get_char_arr(), get_env_var(), get_pid(), is_nan_0d(), is_nan_1d(), is_nan_2d(), is_nan_3d(), is_nan_4d(), islink(), memusage(), readlink(), sizeof_real(), sleep(), system_cmd()

Subroutines and functions

function  syscalls/get_pid()

The Fortran95 standard has no means to fetch the real PID. If one needs the real PID, please use the ‘syscalls’ module.

4-aug-10/Bourdin.KIS: coded

Return:

get_pid [integer]

Call to:

sizeof_real(), is_nan_0d(), is_nan_1d(), is_nan_2d(), is_nan_3d(), is_nan_4d()

subroutine  syscalls/get_env_var(name, value)

Reads in an environment variable.

Returns: * String containing the content of a given environment variable name * Empty string, if the variable doesn’t exist

4-aug-10/Bourdin.KIS: implemented

Parameters:

• name [character]

• value [character]

Call to:

sizeof_real(), is_nan_0d(), is_nan_1d(), is_nan_2d(), is_nan_3d(), is_nan_4d()

subroutine  syscalls/system_cmd(command)

Executes a system command.

3-nov-11/MR: coded

Parameters:

command [character]

Call to:

sizeof_real(), is_nan_0d(), is_nan_1d(), is_nan_2d(), is_nan_3d(), is_nan_4d()

function  syscalls/sizeof_real()

Determines the size of a real in bytes.

Returns: * The number of bytes used for a real.

16-Feb-2012/Bourdin.KIS: coded

Return:

sizeof_real [integer]

Call to:

is_nan_0d(), is_nan_1d(), is_nan_2d(), is_nan_3d(), is_nan_4d()

function  syscalls/is_nan_0d(value)

Determines if value is not a number (NaN). This function is a trick to circumvent the lack of isnan in F95.

Usage of the syscalls module is highly recommended, because there, the implementation if is_nan is made with ANSI standard routines.

Returns: * true, if value is not a number (NaN) * false, otherwise

14-jan-2011/Bourdin.KIS: coded

Parameters:

value [real,in]

Return:

is_nan_0d [logical]

Call to:

is_nan_1d(), is_nan_2d(), is_nan_3d(), is_nan_4d()

function  syscalls/is_nan_1d(value)

Determines if value is not a number (NaN). This function is a trick to circumvent the lack of isnan in F95.

Usage of the syscalls module is highly recommended, because there, the implementation if is_nan is made with ANSI standard routines.

Returns: * true, if value is not a number (NaN) * false, otherwise

15-jan-2011/Bourdin.KIS: coded

Parameters:

value (*) [real,in]

Return:

is_nan_1d (size(value, 1) [logical]

Call to:

is_nan_2d(), is_nan_3d(), is_nan_4d()

function  syscalls/is_nan_2d(value)

Determines if value is not a number (NaN). This function is a trick to circumvent the lack of isnan in F95.

Usage of the syscalls module is highly recommended, because there, the implementation if is_nan is made with ANSI standard routines.

Returns: * true, if value is not a number (NaN) * false, otherwise

15-jan-2011/Bourdin.KIS: coded

Parameters:

value (,) [real,in]

Return:

is_nan_2d (size(value, 1,size(value, 2) [logical]

Call to:

is_nan_3d(), is_nan_4d()

function  syscalls/is_nan_3d(value)

Determines if value is not a number (NaN). This function is a trick to circumvent the lack of isnan in F95.

Usage of the syscalls module is highly recommended, because there, the implementation if is_nan is made with ANSI standard routines.

Returns: * true, if value is not a number (NaN) * false, otherwise

15-jan-2011/Bourdin.KIS: coded

Parameters:

value (,,*) [real,in]

Return:

is_nan_3d (size(value, 1,size(value, 2,size(value, 3) [logical]

Call to:

is_nan_4d()

function  syscalls/is_nan_4d(value)

Determines if value is not a number (NaN). This function is a trick to circumvent the lack of isnan in F95.

Usage of the syscalls module is highly recommended, because there, the implementation if is_nan is made with ANSI standard routines.

Returns: * true, if value is not a number (NaN) * false, otherwise

15-jan-2011/Bourdin.KIS: coded

Parameters:

value (,,*,*) [real,in]

Return:

is_nan_4d (size(value, 1,size(value, 2,size(value, 3,size(value, 4) [logical]