TYPE dbcsr_imagedistribution_obj TYPE(dbcsr_imagedistribution_type), POINTER :: i => Null() END TYPE dbcsr_imagedistribution_obj