Initialize the library
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mm_hostdrv_type), | intent(inout) | :: | this | |||
type(dbcsr_work_type), | POINTER | :: | product_wm |
SUBROUTINE dbcsr_mm_hostdrv_init(this, product_wm) !! Initialize the library TYPE(dbcsr_mm_hostdrv_type), INTENT(INOUT) :: this TYPE(dbcsr_work_type), POINTER :: product_wm CHARACTER(len=*), PARAMETER :: routineN = 'dbcsr_mm_hostdrv_init' INTEGER :: handle CALL timeset(routineN, handle) this%data_area = product_wm%data_area CALL timestop(handle) END SUBROUTINE dbcsr_mm_hostdrv_init