TYPE mn_local_sizes INTEGER, DIMENSION(:), POINTER, CONTIGUOUS :: sizes => Null() END TYPE mn_local_sizes