dev2host_r8_1D Subroutine

private subroutine dev2host_r8_1D(this, hostmem, stream)

Transfers GPU devmem to 1D fortran-array.

Arguments

Type IntentOptional Attributes Name
type(acc_devmem_type), intent(in) :: this
real(kind=real_8), DIMENSION(:), POINTER :: hostmem
type(acc_stream_type), intent(in) :: stream

Source Code

      SUBROUTINE dev2host_r8_1D(this, hostmem, stream)
      !! Transfers GPU devmem to 1D fortran-array.

         TYPE(acc_devmem_type), INTENT(IN)        :: this
         REAL(kind=real_8), 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 dev2host_raw(this, C_LOC(hostmem(1)), real_8_size*SIZE(hostmem), stream)
#endif
      END SUBROUTINE dev2host_r8_1D