Create system_solve_singleton.f90