TYPE dbcsr_distribution_obj TYPE(dbcsr_distribution_type), POINTER :: d => Null() END TYPE dbcsr_distribution_obj