host2dev_i4_2D Subroutine

private subroutine host2dev_i4_2D(this, hostmem, stream)

Transfers 2D fortran-array from host to GPU devmem.

Arguments

TypeIntentOptionalAttributesName
type(acc_devmem_type), intent(in) :: this
integer(kind=int_4), DIMENSION(:, :), POINTER:: hostmem
type(acc_stream_type), intent(in) :: stream

Contents

Source Code


Source Code

      SUBROUTINE host2dev_i4_2D(this, hostmem, stream)
      !! Transfers 2D fortran-array from host to GPU devmem.

         TYPE(acc_devmem_type), INTENT(IN)        :: this
         INTEGER(kind=int_4), DIMENSION(:, :), POINTER       :: hostmem
         TYPE(acc_stream_type), INTENT(IN)        :: stream

#if ! defined (__DBCSR_ACC)
         MARK_USED(this)
         MARK_USED(hostmem)
         MARK_USED(stream)
         DBCSR_ABORT("__DBCSR_ACC not compiled in.")
#else
         CALL host2dev_raw(this, C_LOC(hostmem(1, 1)), int_4_size*SIZE(hostmem), stream)
#endif
      END SUBROUTINE host2dev_i4_2D