cuda_field_t Derived Type

type, public, extends(field_t) :: cuda_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,	device, pointer, contiguous	::	data_d(:,:,:)

Constructor

public interface cuda_field_t

public function cuda_field_init(ngrid, next, id) result(f)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ngrid
type(cuda_field_t),	intent(in),		pointer	::	next
integer,	intent(in)			::	id

Return Value type(cuda_field_t)

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_cuda

public subroutine fill_cuda(self, c)

Arguments

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

procedure, public :: get_shape => get_shape_cuda

public function get_shape_cuda(self) result(dims)

Arguments

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

Return Value integer, (3)

procedure, public :: set_shape => set_shape_cuda

public subroutine set_shape_cuda(self, dims)

Arguments

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