Transfers GPU devmem to 1D fortran-array.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(acc_devmem_type), | intent(in) | :: | this | |||
complex(kind=real_4), | DIMENSION(:), POINTER | :: | hostmem | |||
type(acc_stream_type), | intent(in) | :: | stream |
SUBROUTINE dev2host_c4_1D(this, hostmem, stream) !! Transfers GPU devmem to 1D fortran-array. TYPE(acc_devmem_type), INTENT(IN) :: this COMPLEX(kind=real_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 dev2host_raw(this, C_LOC(hostmem(1)), 2*real_4_size*SIZE(hostmem), stream) #endif END SUBROUTINE dev2host_c4_1D