Helper routine used by setup_stackbuffers() and dbcsr_mm_accdrv_lib_finalize()
SUBROUTINE deallocate_stackbuffers()
!! Helper routine used by setup_stackbuffers() and dbcsr_mm_accdrv_lib_finalize()
INTEGER :: i, ithread
TYPE(stack_buffer_type), DIMENSION(:), POINTER :: stack_buffers
ithread = 0
!$ ithread = OMP_GET_THREAD_NUM()
stack_buffers => all_thread_privates(ithread)%stack_buffers
DO i = 1, SIZE(stack_buffers)
CALL acc_devmem_deallocate(stack_buffers(i)%devmem)
CALL acc_hostmem_deallocate(stack_buffers(i)%hostmem, stack_buffers(i)%stream)
CALL acc_event_destroy(stack_buffers(i)%ready)
CALL acc_event_destroy(stack_buffers(i)%calculated)
END DO
DEALLOCATE (stack_buffers)
END SUBROUTINE deallocate_stackbuffers