omptgt_field_t Derived Type

type, public, extends(field_t) :: omptgt_field_t

Inherits

Help

Components

Type	Visibility	Attributes		Name		Initial
class(field_t),	public,	pointer	::	next
real(kind=dp),	public,	pointer, contiguous	::	data(:,:,:)
integer,	public		::	dir
integer,	public		::	data_loc
integer,	public		::	refcount	=	0
integer,	public		::	id			An integer identifying the memory block.
real(kind=dp),	public,	pointer, contiguous	::	data_tgt(:,:,:)	=>	null()

Finalization Procedures

final :: omptgt_field_destroy

private subroutine omptgt_field_destroy(self)

Arguments

Type	Intent	Optional	Attributes		Name
type(omptgt_field_t)				::	self

Type-Bound Procedures

procedure, public :: set_data_loc

public subroutine set_data_loc(self, data_loc)

Arguments

Type	Intent	Optional	Attributes		Name
class(field_t)				::	self
integer,	intent(in)			::	data_loc

procedure, public :: fill => fill_omptgt

private subroutine fill_omptgt(self, c)

Arguments

Type	Intent	Optional	Attributes		Name
class(omptgt_field_t)				::	self
real(kind=dp),	intent(in)			::	c

procedure, public :: get_shape => get_shape_omptgt

private function get_shape_omptgt(self) result(dims)

Arguments

Type	Intent	Optional	Attributes		Name
class(omptgt_field_t)				::	self

Return Value integer, (3)

procedure, public :: set_shape => set_shape_omptgt

private subroutine set_shape_omptgt(self, dims)

Arguments

Type	Intent	Optional	Attributes		Name
class(omptgt_field_t)				::	self
integer,	intent(in)			::	dims(3)