Finalizes a multiplication cycle for a set of C-blocks.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mm_sched_type), | intent(inout) | :: | this |
SUBROUTINE dbcsr_mm_sched_dev2host_init(this)
!! Finalizes a multiplication cycle for a set of C-blocks.
TYPE(dbcsr_mm_sched_type), INTENT(INOUT) :: this
CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_mm_sched_dev2host_init'
INTEGER :: handle
CALL timeset(routineN, handle)
IF (has_acc) &
CALL dbcsr_mm_accdrv_dev2host_init(this%accdrv)
CALL timestop(handle)
END SUBROUTINE dbcsr_mm_sched_dev2host_init