Helper routine used by dbcsr_mm_accdrv_init()
SUBROUTINE setup_streams()
!! Helper routine used by dbcsr_mm_accdrv_init()
INTEGER :: nthreads
nthreads = 1
!$ nthreads = OMP_GET_MAX_THREADS()
!$OMP MASTER
CALL stream_array_force_size(thread_streams, "Calc stream", n=nthreads)
!$OMP END MASTER
! Other threads have to wait until streams are created
!$OMP BARRIER
END SUBROUTINE setup_streams