TYPE acc_event_type PRIVATE #if defined (__DBCSR_ACC) TYPE(C_PTR) :: cptr = C_NULL_PTR #else INTEGER :: dummy = 1 #endif END TYPE acc_event_type