open Util let make ?guess simulation = if Electrons.multiplicity @@ Simulation.electrons simulation = 1 then RHF.make ?guess simulation else ROHF.make ?guess simulation let to_string = HartreeFock_type.to_string