fix set_distributed_matrix.f90