oft_local.F90 File Reference

#include "petscconf.h"

Data Types
interface	get_inverse_map
	Generate inverse of sparse indexing. More...
type	oft_1d_comp
	One dimensional complex set. More...
interface	oft_1d_func
	Generic interface for 1D function. More...
type	oft_1d_int
	One dimensional integer set. More...
type	oft_1d_real
	One dimensional real set. More...
interface	oft_2d_func
	Generic interface for 2D function. More...
interface	oft_simple_hash
	Simple in-memory hashing function for dataset checksumming. More...
interface	oft_sleep
	Interface to C sleep function. More...
type	oft_timer
	Simple timer class. More...
interface	xml_get_element
	Generate inverse of sparse indexing. More...
type	xml_node_ptr
	Needs docs. More...
type	xml_nodelist
	Needs docs. More...

Modules
module	oft_local
	Machine and compiler specific settings.

Functions/Subroutines
elemental character(len=1) function	char_to_lower (c)
	Returns the corresponding lowercase letter, if c is an uppercase ASCII character, otherwise c itself.
elemental character(len=1) function	char_to_upper (c)
	Returns the corresponding uppercase letter, if c is an lowercase ASCII character, otherwise c itself.
pure real(r8) function, dimension(3)	cross_product (a, b)
	Compute the cross product of two 3 dimensional vectors.
subroutine	get_inverse_map_i4 (map, n1, imap, n2)
	integer(i4) implementation of get_inverse_map
subroutine	get_inverse_map_i8 (map, n1, imap, n2)
	integer(i8) implementation of get_inverse_map
pure real(r8) function	magnitude (a)
	Compute the 2-norm of an array.
integer(i8) function	oft_time_diff (timein)
	Get difference between timestamps, including wrapping.
integer(i8) function	oft_time_i8 ()
	Get current system time in integer counts.
real(r8) function, private	oft_timer_elapsed (self)
	Set elapsed time since last tick/tock.
integer(i8) function, private	oft_timer_intelapsed (self)
	Get elapsed time since last tick/tock in integer counts.
subroutine, private	oft_timer_start (self)
	Start or reset timer.
logical function, private	oft_timer_timeout (self, timeout)
	Check if time since last tick/tock exceeds a limit.
integer(i4) function	skip_comment_lines (io_unit)
	Skip comment lines in open file.
subroutine	string_to_lower (c)
	Converts a string to all lowercase characters.
subroutine	string_to_upper (c)
	Converts a string to all uppercase characters.
pure character(len=13) function	time_to_string (a)
	Compute the 2-norm of an array.
subroutine	xml_get_element_list (parent, name, elements, error_flag)
	Get all child elements with a specific name within a given XML node.
subroutine	xml_get_element_single (parent, name, element, error_flag, index)
	Get child element with a specific name within a given XML node.

Variables
integer, parameter	c4 =r4
	Single precision complex spec (4 Bytes).
integer, parameter	c8 =r8
	Double precision complex spec (8 Bytes).
integer, parameter	i4 =SELECTED_INT_KIND(9)
	4-Byte integer spec
integer, parameter	i8 =SELECTED_INT_KIND(18)
	8-Byte integer spec
integer, parameter	petsc_addr =i4
real(r8), parameter	pi =3.141592653589793238462643_r8
	\( \pi \)
integer, parameter	r10 =SELECTED_REAL_KIND(18, 4900)
	Extended precision float spec (10 or 16 Bytes depending on platform).
integer, parameter	r4 =SELECTED_REAL_KIND(6, 37)
	Single precision float spec (4 Bytes).
integer, parameter	r8 =SELECTED_REAL_KIND(13, 307)
	Double precision float spec (8 Bytes).