util_mod_cpts_doub Module

Uses

- constants
- SystemData
- HElem
- iso_c_binding
- SymData

Contents

Interfaces

arr_2d_dims arr_2d_ptr ptr_abuse_1d ptr_abuse_2d ptr_abuse_scalar

Functions

arr_2d_dims_doub arr_2d_ptr_doub

Subroutines

ptr_abuse_1d_doub ptr_abuse_2d_doub ptr_abuse_scalar_doub

Interfaces

public interface arr_2d_dims

private function arr_2d_dims_doub(arr) result(dims)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	arr(:,:)

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

public interface arr_2d_ptr

private function arr_2d_ptr_doub(arr) result(cptr)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		target	::	arr(:,:)

Return Value type(c_ptr)

public interface ptr_abuse_1d

private subroutine ptr_abuse_1d_doub(arr, ptr)

Arguments

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

public interface ptr_abuse_2d

private subroutine ptr_abuse_2d_doub(arr, ptr)

Arguments

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

public interface ptr_abuse_scalar

private subroutine ptr_abuse_scalar_doub(elem, ptr)

Arguments

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

Functions

private function arr_2d_dims_doub(arr) result(dims)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	arr(:,:)

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

private function arr_2d_ptr_doub(arr) result(cptr)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		target	::	arr(:,:)

Return Value type(c_ptr)

Subroutines

private subroutine ptr_abuse_1d_doub(arr, ptr)

Arguments

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

private subroutine ptr_abuse_2d_doub(arr, ptr)

Arguments

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

private subroutine ptr_abuse_scalar_doub(elem, ptr)

Arguments

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