tem_grow_array_module

Module to provide simple growing data structures. The dynamic arrays provided by this module are capable of handling lists of values, which might need to grow over time. Removal of entries is not possible directly. The complete module might be put into a CoCo Text template, to create new modules of this object for different types. For now, two different templates are used for the declaration part and the implementation part.

Uses

- env_module
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Interfaces

public interface init

initialize the dynamic array

public subroutine init_ga_logical(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_logical(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_logical(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_logical(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_logical(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_logical_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the elements starting from the requested position will be replaced up to the element at position pos + size(val) - 1.

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_logical(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_logical_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_logical(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga_long(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_long(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_long(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_long(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_long(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_long_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_long(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_long_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_long(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga_int(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_int(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_int(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_int(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_int(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_int_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_int(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_int_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_int(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga_real(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_real(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_real(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_real(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_real(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_real_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_real(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_real_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_real(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga_dtint2d(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_dtint2d(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_dtint2d(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_dtint2d(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_dtint2d(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_dtint2d_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_dtint2d(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_dtint2d_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_dtint2d(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga_label(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_label(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_label(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_label(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_label(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_label_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_label(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_label_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_label(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga_char(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public interface truncate

truncate the array, meaning cut off the trailing empty entries

public subroutine truncate_ga_char(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type)				::	me

public interface empty

empty the entries without changing arrays

public subroutine empty_ga_char(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type)				::	me

public interface destroy

destroy the dynamic array

public subroutine destroy_ga_char(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type),	intent(inout)			::	me

public interface placeat

insert an element at a given position

public subroutine placeat_ga_char(me, val, pos, length)

adds the value to a given position inside the growing array.

if the requested position is outside the current array bounds, the array will be resized accordingly. if it is inside the current array bounds, the element at the requested position will be replaced.

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_char_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface append

append a value to the dynamic array and return its position.

public subroutine append_ga_char(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_char_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga_char(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga2d_char(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public interface destroy

destroy the dynamic array

public subroutine destroy_ga2d_char(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_char2darray_type),	intent(inout)			::	me	dynamic array to init

public interface append

append a value to the dynamic array and return its position.

public subroutine append_singlega2d_char(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_char(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public interface placeat

public subroutine placeat_singlega2d_char(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_char(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga2d_char(me, length)

expand the growing 2d array

first reset all entries

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_char2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga2d_logical(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public interface destroy

destroy the dynamic array

public subroutine destroy_ga2d_logical(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logical2darray_type),	intent(inout)			::	me	dynamic array to init

public interface append

append a value to the dynamic array and return its position.

public subroutine append_singlega2d_logical(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_logical(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public interface placeat

public subroutine placeat_singlega2d_logical(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_logical(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga2d_logical(me, length)

expand the growing 2d array

first reset all entries

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logical2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga2d_long(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public interface destroy

destroy the dynamic array

public subroutine destroy_ga2d_long(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_long2darray_type),	intent(inout)			::	me	dynamic array to init

public interface append

append a value to the dynamic array and return its position.

public subroutine append_singlega2d_long(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_long(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public interface placeat

public subroutine placeat_singlega2d_long(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_long(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga2d_long(me, length)

expand the growing 2d array

first reset all entries

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_long2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga2d_int(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public interface destroy

destroy the dynamic array

public subroutine destroy_ga2d_int(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_int2darray_type),	intent(inout)			::	me	dynamic array to init

public interface append

append a value to the dynamic array and return its position.

public subroutine append_singlega2d_int(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_int(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public interface placeat

public subroutine placeat_singlega2d_int(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_int(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga2d_int(me, length)

expand the growing 2d array

first reset all entries

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_int2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public interface init

initialize the dynamic array

public subroutine init_ga2d_real(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public interface destroy

destroy the dynamic array

public subroutine destroy_ga2d_real(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_real2darray_type),	intent(inout)			::	me	dynamic array to init

public interface append

append a value to the dynamic array and return its position.

public subroutine append_singlega2d_real(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_real(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public interface placeat

public subroutine placeat_singlega2d_real(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_real(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public interface expand

increase the size of the container for the array.

public subroutine expand_ga2d_real(me, length)

expand the growing 2d array

first reset all entries

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_real2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

Derived Types

type, public :: intArray2d_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public,	allocatable	::	val(:,:)

type, public :: grw_logicalarray_type

growing array type for logical

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
logical,	public,	allocatable	::	val(:)

type, public :: grw_longarray_type

growing array type for integer(kind=long_k)

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer(kind=long_k),	public,	allocatable	::	val(:)

type, public :: grw_intarray_type

growing array type for integer

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer,	public,	allocatable	::	val(:)

type, public :: grw_realarray_type

growing array type for real(kind=rk)

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
real(kind=rk),	public,	allocatable	::	val(:)

type, public :: grw_dtint2darray_type

growing array type for type(intarray2d_type)

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
type(intArray2d_type),	public,	allocatable	::	val(:)

type, public :: grw_labelarray_type

growing array type for character(len=labellen)

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
character(len=labellen),	public,	allocatable	::	val(:)

type, public :: grw_chararray_type

growing array type for character

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
character(len=1),	public,	allocatable	::	val(:)

type, public :: grw_char2darray_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer,	public		::	containerwidth	=	0
character(len=1),	public,	allocatable	::	val(:,:)

type, public :: grw_logical2darray_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer,	public		::	containerwidth	=	0
logical,	public,	allocatable	::	val(:,:)

type, public :: grw_long2darray_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer,	public		::	containerwidth	=	0
integer(kind=long_k),	public,	allocatable	::	val(:,:)

type, public :: grw_int2darray_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer,	public		::	containerwidth	=	0
integer,	public,	allocatable	::	val(:,:)

type, public :: grw_real2darray_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public		::	nvals	=	0
integer,	public		::	containersize	=	0
integer,	public		::	containerwidth	=	0
real(kind=rk),	public,	allocatable	::	val(:,:)

Subroutines

public subroutine init_ga_logical(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_logical(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type),	intent(inout)			::	me

public subroutine truncate_ga_logical(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type)				::	me

public subroutine empty_ga_logical(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logicalarray_type)				::	me

public subroutine placeat_ga_logical(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_logical_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_logical(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_logical_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
logical,	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_logical(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_logicalarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga_long(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_long(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type),	intent(inout)			::	me

public subroutine truncate_ga_long(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type)				::	me

public subroutine empty_ga_long(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_longarray_type)				::	me

public subroutine placeat_ga_long(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_long_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_long(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_long_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer(kind=long_k),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_long(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_longarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga_int(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_int(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type),	intent(inout)			::	me

public subroutine truncate_ga_int(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type)				::	me

public subroutine empty_ga_int(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_intarray_type)				::	me

public subroutine placeat_ga_int(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_int_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_int(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_int_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_int(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_intarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga_real(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_real(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type),	intent(inout)			::	me

public subroutine truncate_ga_real(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type)				::	me

public subroutine empty_ga_real(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_realarray_type)				::	me

public subroutine placeat_ga_real(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_real_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_real(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_real_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
real(kind=rk),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_real(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_realarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga_dtint2d(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_dtint2d(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type),	intent(inout)			::	me

public subroutine truncate_ga_dtint2d(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type)				::	me

public subroutine empty_ga_dtint2d(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_dtint2darray_type)				::	me

public subroutine placeat_ga_dtint2d(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_dtint2d_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_dtint2d(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_dtint2d_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
type(intArray2d_type),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_dtint2d(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_dtint2darray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga_label(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_label(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type),	intent(inout)			::	me

public subroutine truncate_ga_label(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type)				::	me

public subroutine empty_ga_label(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_labelarray_type)				::	me

public subroutine placeat_ga_label(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_label_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_label(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_label_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
character(len=labellen),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_label(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_labelarray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga_char(me, length)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type),	intent(out)			::	me
integer,	intent(in),	optional		::	length

public subroutine destroy_ga_char(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type),	intent(inout)			::	me

public subroutine truncate_ga_char(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type)				::	me

public subroutine empty_ga_char(me)

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_chararray_type)				::	me

public subroutine placeat_ga_char(me, val, pos, length)

adds the value to a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_ga_char_vec(me, val, pos, length)

adds the values starting from a given position inside the growing array.

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val(:)
integer,	intent(in)		::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_char(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_ga_char_vec(me, val, length)

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
character(len=1),	intent(in)		::	val(:)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga_char(me, pos, length)

Arguments

Type	Intent	Optional		Name
type(grw_chararray_type)			::	me
integer,	intent(in),	optional	::	pos
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine init_ga2d_char(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public subroutine destroy_ga2d_char(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_char2darray_type),	intent(inout)			::	me	dynamic array to init

public subroutine append_singlega2d_char(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_char(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public subroutine placeat_singlega2d_char(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_char(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_char2darray_type)			::	me	array to append the value to
character(len=1),	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga2d_char(me, length)

expand the growing 2d array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_char2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public subroutine init_ga2d_logical(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public subroutine destroy_ga2d_logical(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logical2darray_type),	intent(inout)			::	me	dynamic array to init

public subroutine append_singlega2d_logical(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_logical(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public subroutine placeat_singlega2d_logical(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_logical(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_logical2darray_type)			::	me	array to append the value to
logical,	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga2d_logical(me, length)

expand the growing 2d array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_logical2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public subroutine init_ga2d_long(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public subroutine destroy_ga2d_long(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_long2darray_type),	intent(inout)			::	me	dynamic array to init

public subroutine append_singlega2d_long(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_long(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public subroutine placeat_singlega2d_long(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_long(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_long2darray_type)			::	me	array to append the value to
integer(kind=long_k),	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga2d_long(me, length)

expand the growing 2d array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_long2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public subroutine init_ga2d_int(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public subroutine destroy_ga2d_int(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_int2darray_type),	intent(inout)			::	me	dynamic array to init

public subroutine append_singlega2d_int(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_int(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public subroutine placeat_singlega2d_int(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_int(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_int2darray_type)			::	me	array to append the value to
integer,	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga2d_int(me, length)

expand the growing 2d array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_int2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

public subroutine init_ga2d_real(me, width, length)

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type),	intent(out)		::	me	dynamic array to init
integer,	intent(in)		::	width	width of the container
integer,	intent(in),	optional	::	length	initial length of the container

public subroutine destroy_ga2d_real(me)

destroy the 2d growing array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_real2darray_type),	intent(inout)			::	me	dynamic array to init

public subroutine append_singlega2d_real(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(out),	optional	::	pos2	the position in second dimension the element were added to
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine append_arrayga2d_real(me, val, length, pos)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val(:)	array of values to append
integer,	intent(in),	optional	::	length	optional length to expand the array
integer,	intent(out),	optional	::	pos	the position in second dimension the elements were added to

public subroutine placeat_singlega2d_real(me, val, pos1, pos2, length)

append a single value to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val	value to append
integer,	intent(in)		::	pos1	position in first dimension (cannot grow)
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine placeat_arrayga2d_real(me, val, pos2, length)

append an array of values to the growing 2d array.

Arguments

Type	Intent	Optional		Name
type(grw_real2darray_type)			::	me	array to append the value to
real(kind=rk),	intent(in)		::	val(:)	array of values to append
integer,	intent(in)		::	pos2	position in second dimension (can grow)
integer,	intent(in),	optional	::	length	optional length to expand the array

public subroutine expand_ga2d_real(me, length)

expand the growing 2d array

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_real2darray_type)				::	me	array to resize
integer,	intent(in),	optional		::	length	optional length to expand the array

tem_grow_array_module Module

Contents

Interfaces

Derived Types

Subroutines

Uses

Used by

Interfaces

public interface init

public subroutine init_ga_logical(me, length)

Arguments

public interface truncate

public subroutine truncate_ga_logical(me)

Arguments

public interface empty

public subroutine empty_ga_logical(me)

Arguments

public interface destroy

public subroutine destroy_ga_logical(me)

Arguments

public interface placeat

public subroutine placeat_ga_logical(me, val, pos, length)

Arguments

public subroutine placeat_ga_logical_vec(me, val, pos, length)

Arguments

public interface append

public subroutine append_ga_logical(me, val, length)

Arguments

public subroutine append_ga_logical_vec(me, val, length)

Arguments

public interface expand

public subroutine expand_ga_logical(me, pos, length)

Arguments

public interface init

public subroutine init_ga_long(me, length)

Arguments

public interface truncate

public subroutine truncate_ga_long(me)

Arguments

public interface empty

public subroutine empty_ga_long(me)

Arguments

public interface destroy

public subroutine destroy_ga_long(me)

Arguments

public interface placeat

public subroutine placeat_ga_long(me, val, pos, length)

Arguments

public subroutine placeat_ga_long_vec(me, val, pos, length)

Arguments

public interface append

public subroutine append_ga_long(me, val, length)

Arguments

public subroutine append_ga_long_vec(me, val, length)

Arguments

public interface expand

public subroutine expand_ga_long(me, pos, length)

Arguments

public interface init

public subroutine init_ga_int(me, length)

Arguments

public interface truncate

public subroutine truncate_ga_int(me)

Arguments

public interface empty

public subroutine empty_ga_int(me)

Arguments

public interface destroy

public subroutine destroy_ga_int(me)

Arguments

public interface placeat

public subroutine placeat_ga_int(me, val, pos, length)

Arguments

public subroutine placeat_ga_int_vec(me, val, pos, length)

Arguments

public interface append

public subroutine append_ga_int(me, val, length)

Arguments

public subroutine append_ga_int_vec(me, val, length)

Arguments