Sets up recursive multiplication
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mm_multrec_type), | intent(inout) | :: | this |
SUBROUTINE dbcsr_mm_multrec_dev2host_init(this)
!! Sets up recursive multiplication
TYPE(dbcsr_mm_multrec_type), INTENT(inout) :: this
! ---------------------------------------------------------------------------
IF (.NOT. this%initialized) &
DBCSR_ABORT("multrec not initialized.")
CALL dbcsr_mm_csr_dev2host_init(this%csr)
END SUBROUTINE dbcsr_mm_multrec_dev2host_init