acc_hostmem_dealloc_i8_2D Subroutine

private subroutine acc_hostmem_dealloc_i8_2D(host_mem, stream)

Deallocates a 2D fortan-array, which is GPU host-pinned memory.

Arguments

Type IntentOptional Attributes Name
integer(kind=int_8), DIMENSION(:, :), POINTER :: host_mem

pointer to array

type(acc_stream_type), intent(in) :: stream

Source Code

      SUBROUTINE acc_hostmem_dealloc_i8_2D(host_mem, stream)
      !! Deallocates a 2D fortan-array, which is GPU host-pinned memory.

         INTEGER(kind=int_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, 1)), stream)
#else
         MARK_USED(host_mem)
         MARK_USED(stream)
         DBCSR_ABORT("acc_hostmem_dealloc_i8: ACC not compiled in.")
#endif
      END SUBROUTINE acc_hostmem_dealloc_i8_2D