Update system_solve_singleton.f90