dbcsr_mm_accdrv_barrier Subroutine

public subroutine dbcsr_mm_accdrv_barrier()

Arguments

None

Source Code

   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