util_mod_cpts_sym Module

Uses

- iso_c_binding
- constants
- SystemData
- SymData
- HElem

Contents

Interfaces

arr_2d_dims arr_2d_ptr ptr_abuse_1d ptr_abuse_2d ptr_abuse_scalar

Functions

arr_2d_dims_sym arr_2d_ptr_sym

Subroutines

ptr_abuse_1d_sym ptr_abuse_2d_sym ptr_abuse_scalar_sym

Interfaces

public interface arr_2d_dims

private function arr_2d_dims_sym(arr) result(dims)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in)			::	arr(:,:)

Return Value integer(kind=int64), (2)

public interface arr_2d_ptr

private function arr_2d_ptr_sym(arr) result(cptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(inout),		target	::	arr(:,:)

Return Value type(c_ptr)

public interface ptr_abuse_1d

private subroutine ptr_abuse_1d_sym(arr, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in),		target	::	arr(:)
integer(kind=int32),	intent(inout),		pointer	::	ptr(:)

public interface ptr_abuse_2d

private subroutine ptr_abuse_2d_sym(arr, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in),		target	::	arr(:,:)
integer(kind=int32),	intent(inout),		pointer	::	ptr(:,:)

public interface ptr_abuse_scalar

private subroutine ptr_abuse_scalar_sym(elem, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in),		target	::	elem
integer(kind=int32),	intent(inout),		pointer	::	ptr

Functions

private function arr_2d_dims_sym(arr) result(dims)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in)			::	arr(:,:)

Return Value integer(kind=int64), (2)

private function arr_2d_ptr_sym(arr) result(cptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(inout),		target	::	arr(:,:)

Return Value type(c_ptr)

Subroutines

private subroutine ptr_abuse_1d_sym(arr, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in),		target	::	arr(:)
integer(kind=int32),	intent(inout),		pointer	::	ptr(:)

private subroutine ptr_abuse_2d_sym(arr, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in),		target	::	arr(:,:)
integer(kind=int32),	intent(inout),		pointer	::	ptr(:,:)

private subroutine ptr_abuse_scalar_sym(elem, ptr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Symmetry),	intent(in),		target	::	elem
integer(kind=int32),	intent(inout),		pointer	::	ptr