cuda_field_t Derived Type

type, public, extends(field_t) :: cuda_field_t


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 IntentOptional 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 IntentOptional Attributes Name
    class(field_t) :: self
    integer, intent(in) :: data_loc

procedure, public :: fill => fill_cuda

  • public subroutine fill_cuda(self, c)

    Arguments

    Type IntentOptional 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 IntentOptional 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 IntentOptional Attributes Name
    class(cuda_field_t) :: self
    integer, intent(in) :: dims(3)