dbcsr_mm_hostdrv_init Subroutine

public subroutine dbcsr_mm_hostdrv_init(this, product_wm)

Initialize the library

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mm_hostdrv_type), intent(inout) :: this
type(dbcsr_work_type), POINTER:: product_wm

Contents

Source Code


Source Code

   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