Deallocates a 1D fortan-array, which is GPU host-pinned memory.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=real_8), | DIMENSION(:), POINTER | :: | host_mem |
pointer to array |
||
type(acc_stream_type), | intent(in) | :: | stream |
SUBROUTINE acc_hostmem_dealloc_c8 (host_mem, stream)
!! Deallocates a 1D fortan-array, which is GPU host-pinned memory.
COMPLEX(kind=real_8), DIMENSION(:), POINTER :: host_mem
!! pointer to array
TYPE(acc_stream_type), INTENT(IN) :: stream
IF (SIZE(host_mem) == 0) RETURN
#if defined (__DBCSR_ACC)
CALL acc_hostmem_dealloc_raw(C_LOC(host_mem(1)), stream)
#else
MARK_USED(host_mem)
MARK_USED(stream)
DBCSR_ABORT("acc_hostmem_dealloc_c8: ACC not compiled in.")
#endif
END SUBROUTINE acc_hostmem_dealloc_c8