SUBROUTINE dbcsr_mm_accdrv_barrier()
INTEGER :: ithread
ithread = 0
!$ ithread = OMP_GET_THREAD_NUM()
CALL acc_stream_synchronize(thread_streams(ithread + 1))
END SUBROUTINE dbcsr_mm_accdrv_barrier