remap_bounds Interface

private interface remap_bounds

Contents

Module Procedures

remap_bounds_1c remap_bounds_2c remap_bounds_3c remap_bounds_1r remap_bounds_2r remap_bounds_3r

Module Procedures

private function remap_bounds_1c(lb1, array) result(ptr)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lb1
complex,	intent(in),		DIMENSION(lb1:), TARGET	::	array

Return Value complex, DIMENSION(:), POINTER

private function remap_bounds_2c(lb1, lb2, array) result(ptr)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lb1
integer,	intent(in)			::	lb2
complex,	intent(in),		DIMENSION(lb1:, lb2:), TARGET	::	array

Return Value complex, DIMENSION(:,:), POINTER

private function remap_bounds_3c(lb1, lb2, lb3, array) result(ptr)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lb1
integer,	intent(in)			::	lb2
integer,	intent(in)			::	lb3
complex,	intent(in),		DIMENSION(lb1:,lb2:,lb3:), TARGET	::	array

Return Value complex, DIMENSION(:,:,:), POINTER

private function remap_bounds_1r(lb1, array) result(ptr)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lb1
real,	intent(in),		DIMENSION(lb1:), TARGET	::	array

Return Value real, DIMENSION(:), POINTER

private function remap_bounds_2r(lb1, lb2, array) result(ptr)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lb1
integer,	intent(in)			::	lb2
real,	intent(in),		DIMENSION(lb1:, lb2:), TARGET	::	array

Return Value real, DIMENSION(:,:), POINTER

private function remap_bounds_3r(lb1, lb2, lb3, array) result(ptr)

FIXME : Add documentation

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	lb1
integer,	intent(in)			::	lb2
integer,	intent(in)			::	lb3
real,	intent(in),		DIMENSION(lb1:,lb2:,lb3:), TARGET	::	array

Return Value real, DIMENSION(:,:,:), POINTER