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