dbcsr_array_types Module

Array objects with reference counting.

Uses

- dbcsr_base_hooks

Contents

Interfaces

array_new array_hold array_release array_nullify array_exists array_data array_size array_equality array_get

Derived Types

array_i1d_type array_i1d_obj

Functions

array_exists_i1d array_data_i1d array_size_i1d array_equality_i1 array_equality_i1d array_get_i1d array_get_i1

Subroutines

array_new_i1d array_new_i1d_lb array_hold_i1d array_release_i1d array_nullify_i1d

Interfaces

public interface array_new

private subroutine array_new_i1d(array, DATA, gift)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(out)			::	array
integer,			DIMENSION(:), POINTER, CONTIGUOUS	::	DATA
logical,	intent(in),	optional		::	gift

private subroutine array_new_i1d_lb(array, DATA, lb)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(out)			::	array
integer,	intent(in),		DIMENSION(:)	::	DATA
integer,	intent(in)			::	lb

public interface array_hold

private subroutine array_hold_i1d(array)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(inout)			::	array

public interface array_release

private subroutine array_release_i1d(array)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(inout)			::	array

public interface array_nullify

private pure subroutine array_nullify_i1d(array)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(inout)			::	array

public interface array_exists

private pure function array_exists_i1d(array) result(array_exists)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array

Return Value logical

public interface array_data

private function array_data_i1d(array) result(DATA)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array

Return Value integer, DIMENSION(:), POINTER, CONTIGUOUS

public interface array_size

private pure function array_size_i1d(array) result(the_size)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array

Return Value integer

public interface array_equality

private pure function array_equality_i1(array1, array2) result(are_equal)

Arguments

Type	Intent	Optional	Attributes		Name
integer,			DIMENSION(:), POINTER, CONTIGUOUS	::	array1
integer,			DIMENSION(:), POINTER, CONTIGUOUS	::	array2

Return Value logical

private pure function array_equality_i1d(array1, array2) result(are_equal)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array1
type(array_i1d_obj),	intent(in)			::	array2

Return Value logical

public interface array_get

private pure function array_get_i1d(array, index1) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array
integer,	intent(in)			::	index1

Return Value integer

private pure function array_get_i1(array, index1) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		DIMENSION(:), POINTER	::	array
integer,	intent(in)			::	index1

Return Value integer

Derived Types

type, private :: array_i1d_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public,	DIMENSION(:), POINTER, CONTIGUOUS	::	DATA	=>	Null()
integer,	public		::	refcount	=	0

type, public :: array_i1d_obj

Components

Type	Visibility	Attributes		Name		Initial
type(array_i1d_type),	public,	POINTER	::	low	=>	Null()

Functions

private pure function array_exists_i1d(array) result(array_exists)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array

Return Value logical

private function array_data_i1d(array) result(DATA)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array

Return Value integer, DIMENSION(:), POINTER, CONTIGUOUS

private pure function array_size_i1d(array) result(the_size)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array

Return Value integer

private pure function array_equality_i1(array1, array2) result(are_equal)

Arguments

Type	Intent	Optional	Attributes		Name
integer,			DIMENSION(:), POINTER, CONTIGUOUS	::	array1
integer,			DIMENSION(:), POINTER, CONTIGUOUS	::	array2

Return Value logical

private pure function array_equality_i1d(array1, array2) result(are_equal)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array1
type(array_i1d_obj),	intent(in)			::	array2

Return Value logical

private pure function array_get_i1d(array, index1) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(in)			::	array
integer,	intent(in)			::	index1

Return Value integer

private pure function array_get_i1(array, index1) result(value)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		DIMENSION(:), POINTER	::	array
integer,	intent(in)			::	index1

Return Value integer

Subroutines

private subroutine array_new_i1d(array, DATA, gift)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(out)			::	array
integer,			DIMENSION(:), POINTER, CONTIGUOUS	::	DATA
logical,	intent(in),	optional		::	gift

private subroutine array_new_i1d_lb(array, DATA, lb)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(out)			::	array
integer,	intent(in),		DIMENSION(:)	::	DATA
integer,	intent(in)			::	lb

private subroutine array_hold_i1d(array)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(inout)			::	array

private subroutine array_release_i1d(array)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(inout)			::	array

private pure subroutine array_nullify_i1d(array)

Arguments

Type	Intent	Optional	Attributes		Name
type(array_i1d_obj),	intent(inout)			::	array